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

[sofiane05552]

السلام عليكم

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

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

 

[kanory]

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

[sofiane05552]

  في 7‏/2‏/2018 at 12:37, kanory said:

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

Expand  

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

[kanory]

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

[sofiane05552]

  في 7‏/2‏/2018 at 12:41, kanory said:

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

Expand  

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

[kanory]

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

[sofiane05552]

  في 7‏/2‏/2018 at 13:36, kanory said:

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

Expand  

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

[kanory]

  في 7‏/2‏/2018 at 13:40, sofiane05552 said:

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

Expand  

 

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

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]

  في 7‏/2‏/2018 at 13:40, sofiane05552 said:

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

Expand  

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

[sofiane05552]

  في 7‏/2‏/2018 at 14:38, ابو ياسين المشولي 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
 

Expand  

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

  في 7‏/2‏/2018 at 14:40, Shivan Rekany said:

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

Expand  

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

  في 7‏/2‏/2018 at 14:07, kanory said:

 

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

On Error Resume Next

Expand  

بارك الله فيك