بیرون کردن کاربر غیر مجاز و یا بیرون کردن کاربران جهت اعمال تعغیرات در شبکه

[مهدی قربانی]

سلام
این نمونه تکمیل شده نمونه قبلیه که در این تاپیک قرار داده بودم ، نکات اضافه شده به برنامه :

اول اضافه کردن یک کامند باتون جدید روی فرم Frm_StartUp با عنوان بستن برنامه کاربران
و قراردان کدهای زیر در On Click اون

On Error GoTo Check



Dim strUPD As String



strUPD = "UPDATE tb_log_users SET tb_log_users.active = True WHERE" & _

"(((tb_log_users.username)<>[forms]![frm_startup]![text6]));"



If DCount("username", "tb_log_users", "username <>" & """" & "m.ghorbani" & """") = 0 Then



MsgBox "ÏÑ ÍÇá ÍÇÖÑ åí ˜ÇÑÈÑí ÂäáÇíä äíÓÊ", vbExclamation + vbMsgBoxRight, "ÊæÌå"

Exit Sub



End If



DoCmd.SetWarnings False

DoCmd.RunSQL (strUPD)

DoCmd.SetWarnings True

MsgBox "ÚãáíÇÊ ÈÇ ãæÝÞíÊ ÇäÌÇã ÔÏ"

Check:

If Err.Number = 3085 Then

MsgBox "ÏÑ ÍÇá ÍÇÖÑ åí ˜ÇÑÈÑí ÂäáÇíä äíÓÊ", vbExclamation + vbMsgBoxRight, "ÊæÌå"

Exit Sub

ElseIf Err.Number = 0 Then

Exit Sub

Else

MsgBox Err.Description

Exit Sub

End If

دوم اضافه کردن تکه کد زیر در رخداد On Load فرم Frm_StatrUp
نام کاربری که در تکه کد زیر قرمز شده باید به نام کاربری شبکه کاربر Admin ست بشه

If Me.Text6 = "m.ghorbani" Then

Me.Command9.Visible = True

Else

Me.Command9.Visible = False

End If

سوم اضافه کردن کد زیر به رخداد On timer فرم Frm_StatrUp
ضمناً نام کاربری قرمز شده باید مثل مرحله دوم با نام کاربری شبکه شخص Admin ست بشه

Dim RstQ As DAO.Recordset

Dim strSQL1 As String



strSQL1 = "SELECT tb_log_users.active FROM tb_log_users WHERE" & _

"(((tb_log_users.active)=True));"



Set RstQ = CurrentDb.OpenRecordset(strSQL1)



If RstQ.RecordCount > 0 And Me.Text6.Value <> "m.ghorbani" Then

DoCmd.Quit

End If