كيف اخفي رسالة ذي

[sofiane05552]

السلام عليكم

لدي  مشكلة  كيف اخفي رسالة ذي عندما اضغط على "Annuler" 

تضهر رسالة الي بصورة

 

[kanory]

وعليكم السلام ...... يبدو والله أعلم أن هناك السجل الحالي مفقود أو غير موجود أو ان مربع النص خالي

[sofiane05552]

1 دقيقه مضت, kanory said:

وعليكم السلام ...... يبدو والله أعلم أن هناك السجل الحالي مفقود أو غير موجود أو ان مربع النص خالي

لا شغالة كل شئ تمام فقط اذا ضغطت Annuler تضهر رسالة ذي 

[kanory]

عفوا ماهي التغليمة البرمجية التي هي تحت هذا الزر

[sofiane05552]

34 دقائق مضت, kanory said:

عفوا ماهي التغليمة البرمجية التي هي تحت هذا الزر

DoCmd.RunSQL "DELETE friends.NameOfFriends " & vbCrLf & _
"FROM friends " & vbCrLf & _
"WHERE (((friends.NameOfFriends)=[ادخل الاسم]));"
Me.Requery
Me.Refresh

[kanory]

اخي الكود سليم ...

[sofiane05552]

3 دقائق مضت, kanory said:

اخي الكود سليم ...

عند الضغط على الغاء تضهر رسالة خطأ

[kanory]

26 دقائق مضت, sofiane05552 said:

عند الضغط على الغاء تضهر رسالة خطأ

 

اضف هذا السطر في بداية الكود

On Error Resume Next

[ابو ياسين المشولي]

اتفضل  اذا طلعت رساله خطاء اخبرني

 

On Error GoTo MyErr

DoCmd.RunSQL "DELETE friends.NameOfFriends " & vbCrLf & _
"FROM friends " & vbCrLf & _
"WHERE (((friends.NameOfFriends)=[ادخل الاسم]));"
Me.Requery
Me.Refresh
MyErr:
If Err.Number = 25 Then
MsgBox " يـجـب عليك ادخال الاسم " & _
Chr(13) _
& "تم الغاء الحـذف" _
, vbInformation, _
"مع تحيات ابو ياسين المشولي"
Cancel = True
End If

 

تم تعديل فبراير 7, 2018 بواسطه ابو ياسين المشولي

[Shivan Rekany]

57 دقائق مضت, sofiane05552 said:

عند الضغط على الغاء تضهر رسالة خطأ

استخدم دالة if 
اي اذا اخترت الغاء بيعمل Exit Sub واذا اخترت نعم بيعمل عمله

[sofiane05552]

14 دقائق مضت, ابو ياسين المشولي said:

اتفضل  اذا طلعت رساله خطاء اخبرني

 

On Error GoTo MyErr

DoCmd.RunSQL "DELETE friends.NameOfFriends " & vbCrLf & _
"FROM friends " & vbCrLf & _
"WHERE (((friends.NameOfFriends)=[ادخل الاسم]));"
Me.Requery
Me.Refresh
MyErr:
If Err.Number = 25 Then
MsgBox " يـجـب عليك ادخال الاسم " & _
Chr(13) _
& "تم الغاء اـلحـذف" _
, vbInformation, _
"مع تحيات ابو ياسين المشولي"
Cancel = True
End If
 

بارك الله فيك اخي اشتغل كود بدون مشاكل

12 دقائق مضت, Shivan Rekany said:

استخدم دالة if 
اي اذا اخترت الغاء بيعمل Exit Sub واذا اخترت نعم بيعمل عمله

جزاك الله خيرا استاذ اشتغل كود

45 دقائق مضت, kanory said:

 

اضف هذا السطر في بداية الكود

On Error Resume Next

بارك الله فيك