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

[عبد اللطيف سلوم]

السلام عليكم 

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

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

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

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

[عبد اللطيف سلوم]

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

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

[عبد اللطيف سلوم]

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

[kanory]

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

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

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

[عبد اللطيف سلوم]

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

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

[kanory]

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

Ka_mas.accdb

[عبد اللطيف سلوم]

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

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

اشكرك اخي @kanory

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

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

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

Ka_mas.accdb

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

[kanory]

سباق في الخيرا أخي @ابوخليل  ههههه بارك في الجهود

الحمد لله رب العالمين

[عبد اللطيف سلوم]

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

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

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

[ابوخليل]

الحمد لله

   شكرا للجميع  

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

اتفضل

 

test0772008174s.accdb

[ابو البشر]

شكرا لكم جميعا