sm44ms قام بنشر بالامس في 10:00 قام بنشر بالامس في 10:00 السلام عليكم يا اصدقائي الاعزاء عندي نموذجين كالتالي FINISHED CAED TEMPLATE نموذج رئيسي افتحتة للعرض FINISHED CAED نموذج صغير يفتح فقط عند فتح الرئيسي ولكن صادفتني مشكلة انه يفتح النموذج الصغير في الخلف وليس في الامام انا اريدة عند فتح النموذج الرئيسي يفتح النموذج الصغير في الامام سويت كود له ولكن لم يفتح - مرفق لكم الكود الكود معمول عند الفتح الفتح للنموذج الرئيسي Private Sub Form_Open(Cancel As Integer) Dim db As DAO.Database Dim rst As DAO.Recordset Dim expiredCount As Long Dim activeCount As Long Set db = CurrentDb ' عد البطاقات المنتهية Set rst = db.OpenRecordset("SELECT COUNT(*) AS ExpiredCount FROM Table11 WHERE Expiry_Date < Date()") expiredCount = rst!expiredCount rst.Close ' عد البطاقات النشطة Set rst = db.OpenRecordset("SELECT COUNT(*) AS ActiveCount FROM Table11 WHERE Expiry_Date >= Date()") activeCount = rst!activeCount rst.Close Set rst = Nothing Set db = Nothing ' افتح النموذج المصغر الصغير DoCmd.OpenForm "FINISHED CAED", acNormal ' مرر البيانات إلى الحقول في النموذج المصغر FORMS("FINISHED CAED").Controls("EXP").Value = expiredCount FORMS("FINISHED CAED").Controls("FAL").Value = activeCount ' تشغيل المؤقت المؤقت لتقديم النموذج المصغر للأمام بعد الفتح Me.TimerInterval = 100 ' 100 مللي ثانية ' يمكنك تعليق رسالة MsgBox لأنك تعرض البيانات في النموذج الصغير ' MsgBox "لديك " & expiredCount & " من البطاقات المنتهية." & vbCrLf & _ ' "ولديك " & activeCount & " من البطاقات النشطة في النظام والان يتم عرض المنتهية فقط.", vbInformation, "حالة البطاقات" End Sub
Foksh قام بنشر بالامس في 10:36 قام بنشر بالامس في 10:36 وعليكم السلام ورحمة الله وبركاته ,, من تبويب ( Other - أخرى ) من خصائص النموذج ، اجعل قيمة ( مشروط - Modal ) = نعم
sm44ms قام بنشر بالامس في 10:39 الكاتب قام بنشر بالامس في 10:39 اي من النماذج الذي اسوي له هذه الخاصية مع اني جربتها كله وخاصه في النموذج الصغير وقام البرنامج يلق ولايفتح ولايتسكر الا باغلاق القاعده كلها
Foksh قام بنشر بالامس في 10:47 قام بنشر بالامس في 10:47 7 دقائق مضت, sm44ms said: اي من النماذج الذي اسوي له هذه الخاصية مع اني جربتها كله وخاصه في النموذج الصغير وقام البرنامج يلق ولايفتح ولايتسكر الا باغلاق القاعده كلها ارسل ملفك !!
kkhalifa1960 قام بنشر بالامس في 21:49 قام بنشر بالامس في 21:49 استاذ @sm44ms تفضل الشرح والمرفق وبدون أكواد . DDOpen2Forms.rar
sm44ms قام بنشر منذ 19 ساعات الكاتب قام بنشر منذ 19 ساعات (معدل) الفكره حلوه وممتازة واشكرك عليها - ولكن طلبي ياصديقي هو عند فتح النموذج الرئيسي يفتح مع بعض ويكون النموذج الصغير في الامام مثال اذا ضغطت على FINISHED CAED TEMPLATE لقتحة يفتح مع بعض FINISHED CAED ويكون FINISHED CAED في الامام نفس فكرتك تم تعديل منذ 19 ساعات بواسطه sm44ms
jjafferr قام بنشر منذ 16 ساعات قام بنشر منذ 16 ساعات وعليكم السلام في نهاية كودك ، وقبل الرسالة ، اكتب هذا السطر: FORMS("FINISHED CAED").setfocus FORMS("FINISHED CAED").Controls("FAL").setfocus وتقدر تختار اي كائن يصير ال التركيز عليه ، مو شرط الحقل اللي كتبته لك.
jjafferr قام بنشر منذ 16 ساعات قام بنشر منذ 16 ساعات اما اذا اردت النموذج الصغير دائما في المقدمة ، افتحه بهذه الطريقة DoCmd.OpenForm "FINISHED CAED",,,,,acDialog بدلا عن DoCmd.OpenForm "FINISHED CAED",acNormal 2
kkhalifa1960 قام بنشر منذ 12 ساعات قام بنشر منذ 12 ساعات (معدل) 6 ساعات مضت, sm44ms said: طلبي ياصديقي هو عند فتح النموذج الرئيسي يفتح مع بعض ويكون النموذج الصغير في الامام مثال اذا ضغطت على FINISHED CAED TEMPLATE لقتحة يفتح مع بعض FINISHED CAED ويكون FINISHED CAED في الامام من وجهة نظري بعدما جربت محاولات كثيرة لنفسي أولاً ومنها حلول استاذي ومعلمي استاذ @jjafferr مايصير طلبك إلا من خلال زر من نموذج أخر مثلما سويت بأول المشاركة. لكن ممكن بجوار بعض اذا مساحة الشاشة تسمح بذلك . وممكن تتحكم في ارساء كل منهم بالكود بالفورم (FINISHED CAED TEMPLATE) تفضل الشرح والمرفق . ووافني بالرد. DDOpen2Forms-1.rar تم تعديل منذ 12 ساعات بواسطه kkhalifa1960 ارفاق الشرح
شايب قام بنشر منذ 9 ساعات قام بنشر منذ 9 ساعات 6 ساعات مضت, jjafferr said: DoCmd.OpenForm "FINISHED CAED",,,,,acDialog احسنت اخي جعفر بهذة الطريقة يبقى الفورم في المقدمة دائما ويمكن وضع القيمة مباشرة في البارميتر الخامس ليكون الامر DoCmd.OpenForm "FINISHED CAED", , , , , 3 او تجاوز البارامترات وكتابة الامر DoCmd.OpenForm "FINISHED CAED", WindowMode:=3 اخونا الشايب 1
kkhalifa1960 قام بنشر منذ 5 ساعات قام بنشر منذ 5 ساعات تفضل استاذ @sm44ms تفضل الشرح والمرفق بطلبك بالضبط . ووافني بالرد DDOpen2Forms-2.rar
jjafferr قام بنشر منذ 5 ساعات قام بنشر منذ 5 ساعات واقعا الموضوع سهل ، اذا بدأنا بطريقة معينة : 1. اجعل النماذج متراكمة ، 2. فقط اجعل النموذج الصغير يكون منبثق ، وافتحه بالطريقة العادية عند فتح النموذج الكبير 1629.Front.accdb
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.