اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

قام بنشر

السلام عليكم 

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

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

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

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

حذف.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

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

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information