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

[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 في الامام نفس فكرتك

 

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

[jjafferr]

وعليكم السلام

 

في نهاية كودك ، وقبل الرسالة ، اكتب هذا السطر:

FORMS("FINISHED CAED").setfocus
FORMS("FINISHED CAED").Controls("FAL").setfocus

وتقدر تختار اي كائن يصير ال التركيز عليه ، مو شرط الحقل اللي كتبته لك.

 

[jjafferr]

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

DoCmd.OpenForm "FINISHED CAED",,,,,acDialog
  
  بدلا عن
  
  DoCmd.OpenForm "FINISHED CAED",acNormal

 

[kkhalifa1960]

6 ساعات مضت, sm44ms said:

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

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

ويكون FINISHED CAED في الامام

من وجهة نظري  بعدما جربت محاولات كثيرة لنفسي أولاً  ومنها حلول استاذي ومعلمي استاذ @jjafferr مايصير طلبك إلا من خلال زر من نموذج أخر مثلما سويت بأول المشاركة.

لكن ممكن بجوار بعض اذا مساحة الشاشة تسمح بذلك . وممكن تتحكم في ارساء كل منهم بالكود بالفورم (FINISHED CAED TEMPLATE) تفضل الشرح والمرفق . ووافني بالرد.

                                                                                      

DDOpen2Forms-1.rar

تم تعديل منذ 3 ساعات بواسطه kkhalifa1960
ارفاق الشرح

[شايب]

6 ساعات مضت, jjafferr said:

DoCmd.OpenForm "FINISHED CAED",,,,,acDialog

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

ويمكن وضع القيمة مباشرة في البارميتر الخامس ليكون الامر

DoCmd.OpenForm "FINISHED CAED", , , , , 3

او تجاوز البارامترات وكتابة الامر

DoCmd.OpenForm "FINISHED CAED", WindowMode:=3

اخونا الشايب