كيف احط شرط اذا ماتوفق الشرط يطلع لي رسالة خطاء +صوره

أولاً في بداية الإجراء اكتب :

on error goto error_debugging

حيث ينتقل إلى العنوان error_debugging في حال الخطأ وهذا العنوان طبعاً يمكنك استبداله بأي عنوان آخر مثل abd

والآن بعد القيام بعملية البحث اكتب في نفس الإجراء :

exit sub
error_debugging :
msgbox "enter a word to look for ! "

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

ثاني شي الكود ماظبط معي على ان كود البحث عندي

Private Sub Command1_Click()
Data1.RecordSource = "Select * from [as] where [a] like '" & Text1.Text & "*'"
Data1.Refresh
End Sub

فيليت الافاده

انا في الانتظار شاكر لك

كده الكود يصير :

private sub command1_click()
On Error GoTo error_debugging
 data1.recordsource = " select * from [as] where [a] like "" & text1.text & "*"
data1.refresh
Exit sub
error_debugging :
msgbox "enter a word to look for !"
end sub

يعني أنا خليت الكود تبعك مثل ما هو بس ضفتله أكواد تفادي الأخطاء ويلي هي :

On Error GoTo error_debugging

قبل الكود و :

Exit sub
error_debugging :
msgbox "enter a word to look for !"

بعد الكود . جربه ورح ينفع هذا الكود لما تضغط إنت على الزر بيبحث هل صار في error ? إذا في error فوراً بيتجاهل عملية البحث وبينتقل للإجراء error_debugging يلي بيظهر المسج بوكس أما إذا ما صار error فهو بينفذ عملية البحث عادي وبعدين بيخرج من الإجراء بالعبارة exit sub قبل ما يقوم بتنفيذ معالجة الأخطاء

يعطيك العافيه وشاكر لك

سلام