hh88 قام بنشر يناير 17, 2018 مشاركة قام بنشر يناير 17, 2018 السلام عليكم ورحمة الله وبركاتة اساتذتي الكرام هل من طريقة لفتح نموذجين في وقت واحد عند فتح البرنامج وتحديد النموذج المراد إظهاره في الامام ولكم خالص الشكر رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر يناير 18, 2018 مشاركة قام بنشر يناير 18, 2018 11 ساعات مضت, hh88 said: هل من طريقة لفتح نموذجين في وقت واحد عند فتح البرنامج وتحديد النموذج المراد إظهاره في الامام اتفضل في القاعدة بها ماكرو افتحه في وضع التصميم واي نموذج تختار ان يفتحه في الاخير هو راح يكون في الامام Dcoun.rar 1 رابط هذا التعليق شارك More sharing options...
hh88 قام بنشر يناير 18, 2018 الكاتب مشاركة قام بنشر يناير 18, 2018 1 hour ago, Shivan Rekany said: اتفضل في القاعدة بها ماكرو افتحه في وضع التصميم واي نموذج تختار ان يفتحه في الاخير هو راح يكون في الامام Dcoun.rar الف شكر أستاذي العزيز شفان هل في طريقة يكون فيها باستخدام كود وهل هذي الطريقة تبطئ من فتح النموذجين ولك جزيل الشكر رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر يناير 18, 2018 مشاركة قام بنشر يناير 18, 2018 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 1 رابط هذا التعليق شارك More sharing options...
hh88 قام بنشر يناير 18, 2018 الكاتب مشاركة قام بنشر يناير 18, 2018 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 الف الف مليون شكر استاذي العزيز شفان الله يبارك فيك ويسعدك ويكتب لك الأجر على ماتقدمه 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان