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

[kkhalifa1960]

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

MyTest.rar

[ناقل]

2 ساعات مضت, kkhalifa1960 said:

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

 

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 بواسطه ناقل

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

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

 

[ناقل]

 

2 ساعات مضت, طاهر الوليدي said:

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

 

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

في ١٩‏/١٢‏/٢٠١٦ at 19:54, Shivan Rekany said:

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

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

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

 

 

 

 

 

[kkhalifa1960]

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

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

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

[ناقل]

1 ساعه مضت, kkhalifa1960 said:

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

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

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

 

MsgBox .Caption

 

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

[kkhalifa1960]

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

MyTest_Last.rar