رسالة عند غلق النموذج

[tarooq]

اخوانى اريد مسج تظهر لى عندما اقوم باغلاق نموذج معين تظهر لى مسج تقول بانك لا يمكنك غلق النموذج الا عند ادخالك الكود الخاص بالالة فمثلا عندى نموذج اقوم بادخال كود الالة واسم الالة فى هذا النموذج اريده اذا قمت بادخال الاسم فقط ولم ادخل الكود ان يظهر لى مسج عند لاغلاق تقول لى هذه الرسالة لا يمكنك غلق البرنامج الا عند ادخال الكود

فكيف لى اخوانى ان اصنع هذا الكود او الامر ولكم جزيل الشكر

[Bluemind]

اخوي طارق

في حدث un load

ضع الكود التالي:

If Len(Trim$(Me![Code] & vbNullString)) = 0 Then
MsgBox ("  لا يمكنك غلق النموذج الا عند ادخالك الكود الخاص بالالة  ")
Me.Code.SetFocus

Cancel = True

ElseIf IsNull(Me.MachName) Then
MsgBox ("  لا يمكنك غلق النموذج الا عند ادخالك الاسم الخاص بالالة   ")
Me.MachName.SetFocus

Cancel = True
End If

طبعا

 هو اسم مربع نص "كود الاله" و [MachName] هو اسم مربع نص "اسم الاله"

غيرها حسب اسماء مربعات النص الي عندك.