ألف تحية طيبة لمحبى الفريق العربى للبرمجة
المثال التالى يقوم بعمل SplashScreen
فكرة العمل:
تم عمل نموذج باسم frmSplashScreen يحتوى على Check Box
فى حدث عند الفتح يقوم الكود التالى بالتأكد من خاصية Check Box
Private Sub Form_Open(Cancel As Integer)
On Error GoTo FormOpen_Err
If (CurrentDb().Properties("StartupForm") = "frmSplashScreen" Or _
CurrentDb().Properties("StartupForm") = "Form.frmSplashScreen") Then
Forms!frmSplashScreen!chkHideSplash = False
Else
Forms!frmSplashScreen!chkShowHide = True
End If
FormOpen_Exit:
Exit Sub
FormOpen_Err:
If Err = 3270 Then
Forms!frmSplashScreen!chkShowHide = True
Resume FormOpen_Exit
End If
End Subوفى حدث عند الاغلاق يتم وضع الكود التالى
Private Sub Form_Close()
On Error GoTo Form_Close_Err
If Forms!frmSplashScreen!chkShowHide Then
CurrentDb().Properties("StartupForm") = "frmMain"
Else
CurrentDb().Properties("StartupForm") = "frmSplashScreen"
End If
Exit Sub
Form_Close_Err:
If Err = 3270 Then
Dim db As DAO.Database
Dim prop As DAO.Property
Set db = CurrentDb()
Set prop = db.CreateProperty("StartupForm", dbText, "frmSplashScreen")
db.Properties.Append prop
Resume Next
End If
End Subفى حالة التأكد من اختيار الـ Check Box يتم إخفاء النموذج frmSplashScreen ومن ثم فتح نموذج الواجهة frmMain
وفى حالة عدم الاختيار يتم ظهور هذه النافذة فى كل مرة يتم فتح القاعدة
والسلام ختام
