كيف يتم فتح نموذج بشرط

عدل الكود الى الاتى

If IsNull(Me.a) Then

MsgBox "ÇÏÎá ÑÞã ÇáÚãíá"

Else

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = "tbltafaseltalapiat"

DoCmd.OpenForm stDocName, , , stLinkCriteria

End If

شكرا لك يا اخ mrnooo2000 فعلا هذا هو المطلوب لكن

إذا ممكن تشرح لي ما معنى كلى سطر في الكود

تفضل اخى الشرح مع الكود

حساب العميل.rar

شكرا لك وضحت الفكرة

تمت الاجابة