طريقة فتح نموذجين مع بعض

[hh88]

السلام عليكم ورحمة الله وبركاتة 

اساتذتي الكرام 

هل من طريقة لفتح نموذجين في وقت واحد عند فتح البرنامج 

وتحديد النموذج المراد إظهاره في الامام 

 

ولكم خالص الشكر 

[Shivan Rekany]

11 ساعات مضت, hh88 said:

هل من طريقة لفتح نموذجين في وقت واحد عند فتح البرنامج 

وتحديد النموذج المراد إظهاره في الامام 

اتفضل 
في القاعدة بها ماكرو 
افتحه في وضع التصميم واي نموذج تختار ان يفتحه في الاخير هو راح يكون في الامام

Dcoun.rar

[hh88]

1 hour ago, Shivan Rekany said:

اتفضل 
في القاعدة بها ماكرو 
افتحه في وضع التصميم واي نموذج تختار ان يفتحه في الاخير هو راح يكون في الامام

Dcoun.rar

الف شكر أستاذي العزيز شفان 

هل في طريقة يكون فيها باستخدام كود 

 

وهل هذي الطريقة تبطئ من فتح النموذجين 

 

ولك جزيل الشكر 

 

[Shivan Rekany]

11 ساعات مضت, hh88 said:

هل في طريقة يكون فيها باستخدام كود

نعم اتفضل
عملت موديول جديد وكتبت فيها هذا السطر من الكود فقط

Option Compare Database
Public OpenNum As Integer

في الخصائص القاعدة البيانات الحالية اخترت احد النماذج لكي يفتح في البداية فتح القاعدة البيانات

بعديف وفي ذلك النموذج في حدث عند الفتح كتبت هذا الكود

Private Sub Form_Open(Cancel As Integer)
    OpenNum = OpenNum + 1
    If OpenNum = 1 Then DoCmd.OpenForm "Tabil_Visitors", acNormal, "", "", , acNormal
End Sub

 

11 ساعات مضت, hh88 said:

وهل هذي الطريقة تبطئ من فتح النموذجين

هذا شيء برأيي متعلة بمصدر النموذجين ... والله يعلم

Dcoun (1).rar

[hh88]

15 minutes ago, Shivan Rekany said:

نعم اتفضل
عملت موديول جديد وكتبت فيها هذا السطر من الكود فقط

Option Compare Database
Public OpenNum As Integer

في الخصائص القاعدة البيانات الحالية اخترت احد النماذج لكي يفتح في البداية فتح القاعدة البيانات

بعديف وفي ذلك النموذج في حدث عند الفتح كتبت هذا الكود

Private Sub Form_Open(Cancel As Integer)
    OpenNum = OpenNum + 1
    If OpenNum = 1 Then DoCmd.OpenForm "Tabil_Visitors", acNormal, "", "", , acNormal
End Sub

 

هذا شيء برأيي متعلة بمصدر النموذجين ... والله يعلم

Dcoun (1).rar

الف الف مليون شكر استاذي العزيز شفان 

الله يبارك فيك ويسعدك ويكتب لك الأجر على ماتقدمه