عبد اللطيف سلوم قام بنشر يونيو 8, 2018 مشاركة قام بنشر يونيو 8, 2018 السلام عليكم ارجو التكرم بتزويدي بكود حيث عند القيام بحذف سجل تظهر رسالة تأكيد نعم / لا وفي حال اختيار نعم يتم طلب سري وبعد ادخال الرقم السري يتم الحذف جزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
عبد اللطيف سلوم قام بنشر يونيو 8, 2018 الكاتب مشاركة قام بنشر يونيو 8, 2018 If MsgBox("هل تريد حذف الإدخال الحالي", vbYesNo, "حذف السجل") = vbNo Then DoCmd.CancelEvent Me.Undo Me.txtName.SetFocus Else DoCmd. ?????????????????????? DoCmd.Close End If ارجو المساعدة مش زابطه معي ؟؟ رابط هذا التعليق شارك More sharing options...
ابو ياسين المشولي قام بنشر يونيو 8, 2018 مشاركة قام بنشر يونيو 8, 2018 اتفضل 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 عدل مسميات النموذج والحقول 1 رابط هذا التعليق شارك More sharing options...
عبد اللطيف سلوم قام بنشر يونيو 8, 2018 الكاتب مشاركة قام بنشر يونيو 8, 2018 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 رابط هذا التعليق شارك More sharing options...
kanory قام بنشر يونيو 8, 2018 مشاركة قام بنشر يونيو 8, 2018 السلام عليكم ورحمة الله وبركاته أسمحوا لي بمشاركتم أخي @عبد اللطيف سلوم و أخي @ابو ياسين المشولي بهذا الكود 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 2 1 رابط هذا التعليق شارك More sharing options...
عبد اللطيف سلوم قام بنشر يونيو 8, 2018 الكاتب مشاركة قام بنشر يونيو 8, 2018 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 جاري التجربة ............... رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر يونيو 8, 2018 مشاركة قام بنشر يونيو 8, 2018 السلام عليكم وتفضلوا ايضا 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 يبدوا اننا كنا نعمل في وقت واحد 2 رابط هذا التعليق شارك More sharing options...
kanory قام بنشر يونيو 8, 2018 مشاركة قام بنشر يونيو 8, 2018 Hتفضل أخي @عبد اللطيف سلوم ملفك ... ارجو اني وفقت Ka_mas.accdb 2 رابط هذا التعليق شارك More sharing options...
عبد اللطيف سلوم قام بنشر يونيو 8, 2018 الكاتب مشاركة قام بنشر يونيو 8, 2018 تمت العملية بنجاح هذا هو المطلوب اشكرك اخي @kanory واشكر جميع الاخوة اللي ساهموا معي بالحل 1 دقيقه مضت, kanory said: Hتفضل أخي @عبد اللطيف سلوم ملفك ... ارجو اني وفقت Ka_mas.accdb تمت العملية بنجاح 1 رابط هذا التعليق شارك More sharing options...
kanory قام بنشر يونيو 8, 2018 مشاركة قام بنشر يونيو 8, 2018 سباق في الخيرا أخي @ابوخليل ههههه بارك في الجهود الحمد لله رب العالمين 1 رابط هذا التعليق شارك More sharing options...
عبد اللطيف سلوم قام بنشر يونيو 8, 2018 الكاتب مشاركة قام بنشر يونيو 8, 2018 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 يبدوا اننا كنا نعمل في وقت واحد الله يجزيك الخير اخي ابو خليل رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر يونيو 8, 2018 مشاركة قام بنشر يونيو 8, 2018 الحمد لله شكرا للجميع 2 1 رابط هذا التعليق شارك More sharing options...
ابو ياسين المشولي قام بنشر يونيو 8, 2018 مشاركة قام بنشر يونيو 8, 2018 اتفضل test0772008174s.accdb 3 رابط هذا التعليق شارك More sharing options...
ابو البشر قام بنشر يونيو 9, 2018 مشاركة قام بنشر يونيو 9, 2018 شكرا لكم جميعا 1 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان