الاخ الفاضل kkhalifa1960
دي صورة الود بعد التعديل بس مش بيفتح حاولت اعدل فيه لكن مش مظبوط
On Error Resume Next
If Me.t1 = Me.username And Me.t2 = Me.password And em_25 = -1 Then
DoCmd.OpenForm "pop", acNormal
Me.Visible = Falsed
Else
MsgBox "يرجي ادخال اسم المستخدم وكلمة المرور بصورة صحيحية او ان هذا المستخدم موقوف حاليا", vbCritical, "تحذير"
DoCmd.CancelEvent
End If
'If Len(Me.t1 & "") = 0 Then
' MsgBox "أدخل اسم المستخدم"
'Undo
'Me.t1.SetFocus
'Exit Sub
'End If
''''''''''
'If Len(Me.t2 & "") = 0 Then
' MsgBox "أدخل رمز المرور"
' Undo
' Me.t2.SetFocus
' Exit Sub
'End If
'''''''''
' If Me.[t2] = "rlmhguhgl" And Me.[t1] = "Admin" Then
' DoCmd.OpenForm "pop"
' DoCmd.Close acForm, "FrmEnter"
'Else
' MsgBox "دخول غير صحيح"
'Undo
'Me.t2.SetFocus
'Exit Sub
'End If
في سؤال اخر مهم بعد الفترة الموجودة والبرنامج قفل
طريقة فتحه مرة اخري هل تكون بتعديل تاريخ الجدول
شاكر فضلك جدا