متفرقات عن الاكسس

مثال لعمل شاشة ترحيب أو Splashscreen لمسة برمجية تضفى على قاعدتك شىء من التميز


لمثال التالى يقوم بعمل SplashScreen

فكرة العمل:
تم عمل نموذج باسم frmSplashScreen يحتوى على Check Box

فى حدث عند الفتح يقوم الكود التالى بالتأكد من خاصية Check Box
plain text
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


وفى حدث عند الاغلاق يتم وضع الكود التالى
expand | plain text
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
وفى حالة عدم الاختيار يتم ظهور هذه النافذة فى كل مرة يتم فتح القاعدة

بسم الله الرحمن الرحيم
وعلى بركة الله .... نبدأ بإفتتاح مكتبة قسم الاكسيس
1. خمسون ماكرو في قمة الروعه
2. تسعة طرق للبحث لابو هاجر
3. اله حاسبة بها امكانية النسخ واللصق
4. اله حاسبة كيميائيه للاخت جنان
5. التاريخ مطروح منه 55 يوم وايضا هناك نموذج لا يقيدك بعدد الايام بل اطرح منه اي رقم تريد ليظهر لك الناتج مباشره
6. السحب والافلات بين المربعات
7. النسبة والتقدير لنتائج الطلاب
8. جميع دوال الاكسيس في نموذج بالشرح
9. الخصم والاضافه في كميات الاصناف
10 . المكتبة العربية من اروع المكتبات لابو عقيل
11. ثلاث طرق للطباعة
12. من اروع الامثله على دوال المجال التجميعية
13. من اروع الامثله على تغيير الوان السجلات في النماذج المستمره
14. ثلاثه امثله من اروع ما يمكن لتدفق البرنامج مثل التقدير والجنسيه وغيرها لابو هاجر
15 . مثال على استخدام ADO ويظهر لك رسائل تخبرك اين موقع المعامللات وفي اي درج
16. مثال على استعلام تحديد بالاختيار من قائمه لعادل القاسمي

اختكم
زهره
ملف مرفق(ملفات)
50micro.rar (31.46كيلو )
عدد مرات التحميل : 10903 9_serch.rar (373.94كيلو )
عدد مرات التحميل : 13058 Calculatrice.rar (44.8كيلو )
عدد مرات التحميل : 7283 chemcalc1.rar (24.69كيلو )
عدد مرات التحميل : 5640 Date_55.rar (15.23كيلو )
عدد مرات التحميل : 5664 DragAndDrp_.rar (81.7كيلو )
عدد مرات التحميل : 8499 PalancAndGr.rar (31.78كيلو )
عدد مرات التحميل : 6844 function.rar (132.69كيلو )
عدد مرات التحميل : 13527 Fatoorh2000.rar (26.38كيلو )
عدد مرات التحميل : 7047 PrintCurrentRecord2000.rar (30.39كيلو )
عدد مرات التحميل : 7505 Aggregate2000_.rar (44.27كيلو )
عدد مرات التحميل : 6939 ColorRecords2000.rar (73.48كيلو )
عدد مرات التحميل : 8116 Tdafuq2000_.rar (19.69كيلو )
عدد مرات التحميل : 5771 ExampleADO2000.rar (16.69كيلو )
عدد مرات التحميل : 6318 Creating_a_Query.rar (23.75كيلو )
عدد مرات التحميل :