تغير البيانات على الحقول

فقط اكتب الكود التالي:

Private Sub txtText_LostFocus()

If Len(Me.txtText) > 0 Then

MsgBox "No need to add any data"

Else

' do nothing

End If

End Sub

مشكور يااخى

ولكن ممكن تعديل الكود بى (نعم) او (لا)

لانى لو حبيت اعدل على الحقل فلن استطيع

أضف Yes\No الى msgbox ففي حالة ال يس افعل كدا وفي حالة النو افعل كدا

مشكور ياخى لمتابعتك الموضوع

ولكن ممكن لى كتابة الكود لانى لا اعرف الطريقه

شكرا للك ياخى لمحاولتك مساعدتى

جربت الكود ولكن يظهر لى رسالة خطا