كيف يمكن فتح النموذج المنبثق في الأعلى دائماً ؟

[sm44ms]

السلام عليكم يا اصدقائي الاعزاء
عندي نموذجين كالتالي

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]

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

من تبويب ( Other - أخرى ) من خصائص النموذج ، اجعل قيمة ( مشروط - Modal ) = نعم 

[sm44ms]

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

[Foksh]

7 دقائق مضت, sm44ms said:

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

ارسل ملفك !!

[sm44ms]

الملف كبير حاولت ولم اقدر ارفعه

[kkhalifa1960]

استاذ @sm44ms تفضل الشرح والمرفق وبدون أكواد .

                                                                                           

DDOpen2Forms.rar

[sm44ms]

الفكره حلوه وممتازة واشكرك عليها - ولكن

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

مثال اذا ضغطت على FINISHED CAED TEMPLATE لقتحة يفتح مع بعض FINISHED CAED 

ويكون FINISHED CAED في الامام نفس فكرتك

 

تم تعديل منذ 2 ساعات بواسطه sm44ms