فتح نموذج من الواجهة رئيسة

[ishak19]

سلام عليكم. اريد كود فتح نموذج فقط من  نموذج الواجهة الرئيسة ومنع فتحه بشكل مبارشر . عند فتحه بشكل مباشر تضهر رسالة خطأ  وشكرا

[محمد احمد لطفى]

جرب لعل و عسى
 

    If CurrentProject.AllForms("YourFormName").IsLoaded = True Then
          do something
    Else:
         do something else
    End If

 

[ishak19]

18 دقائق مضت, محمد احمد لطفى said:

جرب لعل و عسى
 

    If CurrentProject.AllForms("YourFormName").IsLoaded = True Then
          do something
    Else:
         do something else
    End If

 

هل يمكن ان ترسلي مثال صغير . وتشكر

[ishak19]

هل ممكن اعطاء  كود لمثال يفتح نموذج اسمو (t1)انطلاقا من نموذج (t2)ولايمكن فتحه الى من خلال النوذج. 

[ishak19]

شكرا تم البنجاح