عدم غلق النموذج الرئيسي اذا كان أكثر من نموذج مفتوح

[kkhalifa1960]

مرفق محاولتي لعدم غلق النموذج الرئيسي اذا كان أكثر من نموذج مفتوح نجحت الطريقة معي لنموذج واحد فقط أما المطلوب عدم الغلق اذا كان عدة نماذج مفتوحة

MyTest.rarFetching info...

[ناقل]

  في 3‏/11‏/2021 at 20:12, kkhalifa1960 said:

مرفق محاولتي لعدم غلق النموذج الرئيسي اذا كان أكثر من نموذج مفتوح نجحت الطريقة معي لنموذج واحد فقط أما المطلوب عدم الغلق اذا كان عدة نماذج مفتوحة

Expand  

 

With Application.Forms
      If .Count - 1 = 0 Then
      DoCmd.Close
      Else
        For I = .Count - 1 To 0 Step -1
           With .Item(I)
               If .Name <> "Main_Form" Then
               MsgBox .Name
               End If
           End With
       Next I
End If
End With

 

تم تعديل نوفمبر 3, 2021 بواسطه ناقل

[طاهر الوليدي]

المطلوب طريقة لفتح لتطبيق مره واحدة فقط حيث يتم فتح عدة مرات تطبيق واحد بسبب النقر المتكرر.

 

[ناقل]

 

  في 4‏/11‏/2021 at 09:57, طاهر الوليدي said:

المطلوب طريقة لفتح لتطبيق مره واحدة فقط حيث يتم فتح عدة مرات تطبيق واحد بسبب النقر المتكرر.

 

Expand  

تفضل تابع هذا الموضوع

  في 19‏/12‏/2016 at 16:54, Shivan Rekany said:

روعة يا استاذ
انا جربت و نجحت 100%

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

تشغيل برامج اكسس لمرة واحدة على جهاز في ان واحد.rarFetching info...

Expand  

 

 

 

 

 

[kkhalifa1960]

شكراً لكم استاذ ناقل المحترم نعم هو المطلوب تماماً 

ولي طلب ..............هل ممكن ظهور form.caption في الماسج بدلا من Form.Name

تم تعديل نوفمبر 4, 2021 بواسطه kkhalifa1960
طلب في نفس الموضوع

[ناقل]

  في 4‏/11‏/2021 at 16:06, kkhalifa1960 said:

شكراً لكم استاذ ناقل المحترم نعم هو المطلوب تماماً 

ولي طلب ..............هل ممكن ظهور form.caption في الماسج بدلا من Form.Name

Expand  

استبدلها بهذا .......

 

MsgBox .Caption

 

ولكن يجب كتابة التسمية التوضيحية للنماذج !!!!!!!!!!!!!!!!!!!!!!!!!

[kkhalifa1960]

جزاك الله كل الخير ومرفق الموضوع مكتمل ليستفيد غيري

MyTest_Last.rarFetching info...