اذهب الي المحتوي
أوفيسنا

رسالة تأكيد نعم لا عند القيام بحذف سجل وفيها رقم سري


الردود الموصى بها

السلام عليكم 

ارجو التكرم بتزويدي بكود حيث عند القيام بحذف سجل تظهر رسالة تأكيد نعم / لا 

وفي حال اختيار نعم يتم طلب سري 

وبعد ادخال الرقم السري يتم الحذف 

جزاكم الله خيرا

حذف.jpg

رابط هذا التعليق
شارك

If MsgBox("هل تريد حذف  الإدخال الحالي", vbYesNo, "حذف السجل") = vbNo Then
        DoCmd.CancelEvent
        Me.Undo
        Me.txtName.SetFocus
Else
        DoCmd. ??????????????????????
        DoCmd.Close
End If

ارجو المساعدة مش زابطه معي ؟؟

رابط هذا التعليق
شارك

اتفضل

Dim x
x = MsgBox("(  هـل تـريـد حـذ ف بـيـانـات الـعـمـيـل " & " ( " & [اسم العميل] & "  " & vbCrLf & _
"إضغط  موافق  للحذف  أوإضغط  لا  لعدم  الحذف  أو  إضغط  الغاء الأمر", _
vbInformation + vbMsgBoxRight + vbYesNoCancel, _
"( تنبيـــه : سـوف يـتـم  حـذف بيانات العميل  ( " & [اسم العميل] & "  ")
If x = vbYes Then

Retry:
TimerId = SetTimer(0, 0, 1, AddressOf TimerProc)
Dim MyPassword As String
str_Title = "بـرنـامـج الـخـيـاط"
str_Prompt = "أدخـل كـلـمـة الـسـر لـحــذف بـيـانـات الـعـمـيـل"
MyPassword = InputBox(str_Prompt, str_Title)
Select Case MyPassword
Case "123"
Beep
MsgBox "الأن... يـمكـنـك  حــذف بـيـانـات الـعـمـيـل""( " & [اسم العميل] & " )  ", vbOKOnly + vbInformation, "           تبيه     "

Case Else
Beep
If MsgBox("    عــفــوا .. كــلــمــة الــســر خــاطــئــة  " & vbCrLf & "    مــن  حــســن  إســـلام الـمــرء  تــركــه  مــا لا يــعــنــيــه  ", vbInformation + vbRetryCancel, "    تبيه  ") = vbRetry Then GoTo Retry
        
 Exit Sub
 MsgBox "تم الرجوع", vbInformation, "إلغاء العملية"

End Select

Me.Refresh
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE data.* FROM data where nofatora = [forms]![data]![رقم الفاتورة2];"
Me.Requery
If Not IsNull(Me.[اسم العميل]) Then
Dim strdeleterMssage As String
strdeleterMssage = "تـم حـذ ف بـيـانـات الـعـمـيـل "
strdeleterMssage = strdeleterMssage & "  بـنـجـاح"
MsgBox (strdeleterMssage), vpInFormation, "           تنبيه     "
DoCmd.SetWarnings True
DoCmd.GoToRecord , , acLast
End If
End If
End If

عدل مسميات النموذج والحقول

  • Like 1
رابط هذا التعليق
شارك

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

اتفضل


Dim x
x = MsgBox("(  هـل تـريـد حـذ ف بـيـانـات الـعـمـيـل " & " ( " & [اسم العميل] & "  " & vbCrLf & _
"إضغط  موافق  للحذف  أوإضغط  لا  لعدم  الحذف  أو  إضغط  الغاء الأمر", _
vbInformation + vbMsgBoxRight + vbYesNoCancel, _
"( تنبيـــه : سـوف يـتـم  حـذف بيانات العميل  ( " & [اسم العميل] & "  ")
If x = vbYes Then

Retry:
TimerId = SetTimer(0, 0, 1, AddressOf TimerProc)
Dim MyPassword As String
str_Title = "بـرنـامـج الـخـيـاط"
str_Prompt = "أدخـل كـلـمـة الـسـر لـحــذف بـيـانـات الـعـمـيـل"
MyPassword = InputBox(str_Prompt, str_Title)
Select Case MyPassword
Case "123"
Beep
MsgBox "الأن... يـمكـنـك  حــذف بـيـانـات الـعـمـيـل""( " & [اسم العميل] & " )  ", vbOKOnly + vbInformation, "           تبيه     "

Case Else
Beep
If MsgBox("    عــفــوا .. كــلــمــة الــســر خــاطــئــة  " & vbCrLf & "    مــن  حــســن  إســـلام الـمــرء  تــركــه  مــا لا يــعــنــيــه  ", vbInformation + vbRetryCancel, "    تبيه  ") = vbRetry Then GoTo Retry
        
 Exit Sub
 MsgBox "تم الرجوع", vbInformation, "إلغاء العملية"

End Select

Me.Refresh
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE data.* FROM data where nofatora = [forms]![data]![رقم الفاتورة2];"
Me.Requery
If Not IsNull(Me.[اسم العميل]) Then
Dim strdeleterMssage As String
strdeleterMssage = "تـم حـذ ف بـيـانـات الـعـمـيـل "
strdeleterMssage = strdeleterMssage & "  بـنـجـاح"
MsgBox (strdeleterMssage), vpInFormation, "           تنبيه     "
DoCmd.SetWarnings True
DoCmd.GoToRecord , , acLast
End If
End If
End If

عدل مسميات النموذج والحقول

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

لاني مش عارف

test0772008174s.accdb

رابط هذا التعليق
شارك

السلام عليكم ورحمة الله وبركاته

أسمحوا لي بمشاركتم أخي @عبد اللطيف سلوم و أخي @ابو ياسين المشولي بهذا الكود

If MsgBox("سيتم حذف السجل " & vbCrLf & _
    "هل تريد المتابعة ؟؟", _
    vbInformation + vbYesNo, _
    "تحذير") = vbYes Then
Dim strPWord As String
   
       strPWord = InputBox("فضلا ادخل الرقم السري", "الرقم السري")
       If strPWord = "123" Then

DoCmd.SetWarnings False
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
DoCmd.SetWarnings True
End If
Else
Exit Sub
End If
  • Like 2
  • Thanks 1
رابط هذا التعليق
شارك

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

السلام عليكم ورحمة الله وبركاته

أسمحوا لي بمشاركتم أخي @عبد اللطيف سلوم و أخي @ابو ياسين المشولي بهذا الكود


If MsgBox("سيتم حذف السجل " & vbCrLf & _
    "هل تريد المتابعة ؟؟", _
    vbInformation + vbYesNo, _
    "تحذير") = vbYes Then
Dim strPWord As String
   
       strPWord = InputBox("فضلا ادخل الرقم السري", "الرقم السري")
       If strPWord = "123" Then

DoCmd.SetWarnings False
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
DoCmd.SetWarnings True
End If
Else
Exit Sub
End If

جاري التجربة ...............  

رابط هذا التعليق
شارك

السلام عليكم

وتفضلوا ايضا 

If MsgBox("هل ترغب في حذف السجل", vbInformation + vbYesNo) = vbYes Then
str_Title = "حذف سجل"
   str_Prompt = "ادخل كلمة المرور"
paswrd = InputBox(str_Prompt, str_Title)
   If paswrd = "123" Then
  DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
     Else
     Exit Sub
      End If
   End If

يبدوا اننا كنا نعمل في وقت واحد

  • Like 2
رابط هذا التعليق
شارك

تمت العملية بنجاح 

هذا هو المطلوب 

اشكرك اخي @kanory

واشكر جميع الاخوة اللي ساهموا معي بالحل 

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

Hتفضل أخي @عبد اللطيف سلوم ملفك ... ارجو اني وفقت

Ka_mas.accdb

تمت العملية بنجاح 

  • Thanks 1
رابط هذا التعليق
شارك

5 دقائق مضت, ابوخليل said:

السلام عليكم

وتفضلوا ايضا 


If MsgBox("هل ترغب في حذف السجل", vbInformation + vbYesNo) = vbYes Then
str_Title = "حذف سجل"
   str_Prompt = "ادخل كلمة المرور"
paswrd = InputBox(str_Prompt, str_Title)
   If paswrd = "123" Then
  DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
     Else
     Exit Sub
      End If
   End If

يبدوا اننا كنا نعمل في وقت واحد

الله يجزيك الخير اخي ابو خليل

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information