شاشة الدخول الرئيسية
1- في الحالي نضع الكود التالي
Private Sub Form_Current()
fSetAccessWindow (SW_SHOWMINIMIZED)
End Sub
2- عند الفتح نضع الكود التالي
DoCmd.ShowToolbar "ribbon", acToolbarNo
3- عند ادخال الاسم والرقم السري والضغط على مفتاح دخول
نضع الامر التالي
If Me.password = DLookup("[password]", "users", "[username]='" & Me.username & "'") Then
MsgBox "تم تسجيل الدخول بنجاح"
DoCmd.OpenForm "f"
DoCmd.Close acForm, "login"
Else
MsgBox "تأكد من صحة اسم المستخجم وكلمة المرور ..... وحاول مرة اخرى"
End If
************************
نموذج f هو من يفتح على حجم الشاشة وتستطيع تغيير الاسم حسب النموذج الموجود عندك
حمل وشاهد هذا الفيديو
اذا هذا طلبك او لا
http://www.mediafire.com/file/lx7f9394h23fo8w/%D8%AA%D9%83%D8%A8%D9%8A%D8%B1_%D8%AA%D8%B5%D8%BA%D9%8A%D8%B1.mp4/file