เตะ user ออก จากระบบ Database
Posted: Wed Oct 31, 2012 5:23 pm
พอดีตอนนี้ระบบผมมีปัญหาเรื่องการเปิดหน้าจอ ฝั่ง Client ค้างไว้ ผมเลยอยากจะเขียน Code VBA ให้ เตะ User ออกหาก Log in เข้ามา เกิน 30 นาที เป็นต้น ผมเลย ลองไป Search หา วิธีและลองมาเขียน โดยให้
text6 เก็บค่า Now() ตอน Form_load และ ลองเขียน Code Form_timer ไว้ประมาณนี้ แต่ พอเวลาผ่านไป 1 นาที มันไม่เตะออกให้ ผมไม่รู้ว่า จะแก้อย่างไรดีครับ (ผมลองแค่นาทีนะครับ)
Private Sub Form_Timer()
Dim dtKickout As Date
dtKickout = Text6.value + (1 * (1 / 24)) / 60
If dtKickout - Me.Text6.value < 0 Then
Application.Quit
End If
End Sub
อยากจะรบกวนขอคำแนะนำอาจารย์หน่อยครับ
text6 เก็บค่า Now() ตอน Form_load และ ลองเขียน Code Form_timer ไว้ประมาณนี้ แต่ พอเวลาผ่านไป 1 นาที มันไม่เตะออกให้ ผมไม่รู้ว่า จะแก้อย่างไรดีครับ (ผมลองแค่นาทีนะครับ)
Private Sub Form_Timer()
Dim dtKickout As Date
dtKickout = Text6.value + (1 * (1 / 24)) / 60
If dtKickout - Me.Text6.value < 0 Then
Application.Quit
End If
End Sub
อยากจะรบกวนขอคำแนะนำอาจารย์หน่อยครับ
