safaa salem5 قام بنشر يونيو 25 مشاركة قام بنشر يونيو 25 (معدل) عندى ليست بوكس داخل فورم عايزه لما اقف على اى عنصر فيها وبعدين اضغط زرار دليت يتحذف مع العلم ان فيه حقل غير منضم فى الفورم الرئيسى اسمه code بتيجى قيمته من الليست بوكس اثناء اختيار احد العناصر Dim strSQL1 As String strSQL1 = "DELETE fixedresults_tbl.code, fixedresults_tbl.* " & _ "from fixedresults_tbl" & _ "WHERE (((fixedresults_tbl.code)=" & [Forms]![Fixed_frm]![Resultlist] & "));" تم تعديل يونيو 25 بواسطه safaa salem5 رابط هذا التعليق شارك More sharing options...
M.Abd Allah قام بنشر يونيو 25 مشاركة قام بنشر يونيو 25 ممكن طبعا Dim strSQL1 As String Dim db As DAO.Database Dim codeValue As Variant ' الحصول على القيمة المحددة في ListBox codeValue = Me.Resultlist.Value ' التحقق من أن هناك عنصر محدد If IsNull(codeValue) Then MsgBox "يرجى تحديد عنصر من القائمة للحذف.", vbExclamation Exit Sub End If ' إنشاء استعلام SQL لحذف السجل strSQL1 = "DELETE FROM fixedresults_tbl WHERE code = " & codeValue & ";" ' فتح قاعدة البيانات وتنفيذ استعلام الحذف Set db = CurrentDb db.Execute strSQL1, dbFailOnError ' إبلاغ المستخدم بالنجاح MsgBox "تم حذف العنصر بنجاح!", vbInformation ' تحديث ListBox لإزالة العنصر المحذوف Me.Resultlist.Requery ' تحديث الحقل غير المنضم في النموذج الرئيسي إذا كان يحتوي على القيمة المحذوفة If Me.code.Value = codeValue Then Me.code.Value = Null End If ' إغلاق الاتصال بقاعدة البيانات Set db = Nothing رابط هذا التعليق شارك More sharing options...
safaa salem5 قام بنشر يونيو 25 الكاتب مشاركة قام بنشر يونيو 25 7 minutes ago, M.Abd Allah said: ممكن طبعا Dim strSQL1 As String Dim db As DAO.Database Dim codeValue As Variant ' الحصول على القيمة المحددة في ListBox codeValue = Me.Resultlist.Value ' التحقق من أن هناك عنصر محدد If IsNull(codeValue) Then MsgBox "يرجى تحديد عنصر من القائمة للحذف.", vbExclamation Exit Sub End If ' إنشاء استعلام SQL لحذف السجل strSQL1 = "DELETE FROM fixedresults_tbl WHERE code = " & codeValue & ";" ' فتح قاعدة البيانات وتنفيذ استعلام الحذف Set db = CurrentDb db.Execute strSQL1, dbFailOnError ' إبلاغ المستخدم بالنجاح MsgBox "تم حذف العنصر بنجاح!", vbInformation ' تحديث ListBox لإزالة العنصر المحذوف Me.Resultlist.Requery ' تحديث الحقل غير المنضم في النموذج الرئيسي إذا كان يحتوي على القيمة المحذوفة If Me.code.Value = codeValue Then Me.code.Value = Null End If ' إغلاق الاتصال بقاعدة البيانات Set db = Nothing هو تمام شغال بس هو بيدينى رساله تم حذف العنصر حتى لو انا مش واقفه على اى عنصر رابط هذا التعليق شارك More sharing options...
M.Abd Allah قام بنشر يونيو 25 مشاركة قام بنشر يونيو 25 2 دقائق مضت, safaa salem5 said: تمام ضيفنا شرط أنه يتحقق من تحديد العنصر قبل الحذف Dim strSQL1 As String Dim db As DAO.Database Dim codeValue As Variant ' التحقق من أن هناك عنصر محدد If Me.Resultlist.ListIndex = -1 Then MsgBox "يرجى تحديد عنصر من القائمة للحذف.", vbExclamation Exit Sub End If ' الحصول على القيمة المحددة في ListBox codeValue = Me.Resultlist.Value ' التحقق من أن القيمة ليست Null If IsNull(codeValue) Then MsgBox "يرجى تحديد عنصر من القائمة للحذف.", vbExclamation Exit Sub End If ' إنشاء استعلام SQL لحذف السجل strSQL1 = "DELETE FROM fixedresults_tbl WHERE code = " & codeValue & ";" ' فتح قاعدة البيانات وتنفيذ استعلام الحذف Set db = CurrentDb db.Execute strSQL1, dbFailOnError ' إبلاغ المستخدم بالنجاح MsgBox "تم حذف العنصر بنجاح!", vbInformation ' تحديث ListBox لإزالة العنصر المحذوف Me.Resultlist.Requery ' تحديث الحقل غير المنضم في النموذج الرئيسي إذا كان يحتوي على القيمة المحذوفة If Me.code.Value = codeValue Then Me.code.Value = Null End If ' إغلاق الاتصال بقاعدة البيانات Set db = Nothing رابط هذا التعليق شارك More sharing options...
safaa salem5 قام بنشر يونيو 25 الكاتب مشاركة قام بنشر يونيو 25 4 minutes ago, M.Abd Allah said: تمام ضيفنا شرط أنه يتحقق من تحديد العنصر قبل الحذف Dim strSQL1 As String Dim db As DAO.Database Dim codeValue As Variant ' التحقق من أن هناك عنصر محدد If Me.Resultlist.ListIndex = -1 Then MsgBox "يرجى تحديد عنصر من القائمة للحذف.", vbExclamation Exit Sub End If ' الحصول على القيمة المحددة في ListBox codeValue = Me.Resultlist.Value ' التحقق من أن القيمة ليست Null If IsNull(codeValue) Then MsgBox "يرجى تحديد عنصر من القائمة للحذف.", vbExclamation Exit Sub End If ' إنشاء استعلام SQL لحذف السجل strSQL1 = "DELETE FROM fixedresults_tbl WHERE code = " & codeValue & ";" ' فتح قاعدة البيانات وتنفيذ استعلام الحذف Set db = CurrentDb db.Execute strSQL1, dbFailOnError ' إبلاغ المستخدم بالنجاح MsgBox "تم حذف العنصر بنجاح!", vbInformation ' تحديث ListBox لإزالة العنصر المحذوف Me.Resultlist.Requery ' تحديث الحقل غير المنضم في النموذج الرئيسي إذا كان يحتوي على القيمة المحذوفة If Me.code.Value = codeValue Then Me.code.Value = Null End If ' إغلاق الاتصال بقاعدة البيانات Set db = Nothing طيب ممكن نضيف للكود لو القايمه فاضيه تخرج رساله لا يوجد عناصر للحذف رابط هذا التعليق شارك More sharing options...
أفضل إجابة M.Abd Allah قام بنشر يونيو 25 أفضل إجابة مشاركة قام بنشر يونيو 25 2 دقائق مضت, safaa salem5 said: طيب ممكن نضيف للكود لو القايمه فاضيه تخرج رساله لا يوجد عناصر للحذف ولا تزعلى نفسك Dim strSQL1 As String Dim db As DAO.Database Dim codeValue As Variant ' التحقق من أن القائمة ليست فارغة If Me.Resultlist.ListCount = 0 Then MsgBox "لا يوجد عناصر للحذف.", vbExclamation Exit Sub End If ' التحقق من أن هناك عنصر محدد If Me.Resultlist.ListIndex = -1 Then MsgBox "يرجى تحديد عنصر من القائمة للحذف.", vbExclamation Exit Sub End If ' الحصول على القيمة المحددة في ListBox codeValue = Me.Resultlist.Value ' التحقق من أن القيمة ليست Null If IsNull(codeValue) Then MsgBox "يرجى تحديد عنصر من القائمة للحذف.", vbExclamation Exit Sub End If ' إنشاء استعلام SQL لحذف السجل strSQL1 = "DELETE FROM fixedresults_tbl WHERE code = " & codeValue & ";" ' فتح قاعدة البيانات وتنفيذ استعلام الحذف Set db = CurrentDb db.Execute strSQL1, dbFailOnError ' إبلاغ المستخدم بالنجاح MsgBox "تم حذف العنصر بنجاح!", vbInformation ' تحديث ListBox لإزالة العنصر المحذوف Me.Resultlist.Requery ' تحديث الحقل غير المنضم في النموذج الرئيسي إذا كان يحتوي على القيمة المحذوفة If Me.code.Value = codeValue Then Me.code.Value = Null End If ' إغلاق الاتصال بقاعدة البيانات Set db = Nothing 1 رابط هذا التعليق شارك More sharing options...
safaa salem5 قام بنشر يونيو 25 الكاتب مشاركة قام بنشر يونيو 25 7 minutes ago, M.Abd Allah said: ولا تزعلى نفسك Dim strSQL1 As String Dim db As DAO.Database Dim codeValue As Variant ' التحقق من أن القائمة ليست فارغة If Me.Resultlist.ListCount = 0 Then MsgBox "لا يوجد عناصر للحذف.", vbExclamation Exit Sub End If ' التحقق من أن هناك عنصر محدد If Me.Resultlist.ListIndex = -1 Then MsgBox "يرجى تحديد عنصر من القائمة للحذف.", vbExclamation Exit Sub End If ' الحصول على القيمة المحددة في ListBox codeValue = Me.Resultlist.Value ' التحقق من أن القيمة ليست Null If IsNull(codeValue) Then MsgBox "يرجى تحديد عنصر من القائمة للحذف.", vbExclamation Exit Sub End If ' إنشاء استعلام SQL لحذف السجل strSQL1 = "DELETE FROM fixedresults_tbl WHERE code = " & codeValue & ";" ' فتح قاعدة البيانات وتنفيذ استعلام الحذف Set db = CurrentDb db.Execute strSQL1, dbFailOnError ' إبلاغ المستخدم بالنجاح MsgBox "تم حذف العنصر بنجاح!", vbInformation ' تحديث ListBox لإزالة العنصر المحذوف Me.Resultlist.Requery ' تحديث الحقل غير المنضم في النموذج الرئيسي إذا كان يحتوي على القيمة المحذوفة If Me.code.Value = codeValue Then Me.code.Value = Null End If ' إغلاق الاتصال بقاعدة البيانات Set db = Nothing سؤال اخير هو ليه حضرتك ما استخدمتش الحقل اللى اسمه كود فى الفورم الرئيسى واستدعيته من داخل الليسته مع انى بستدعيه اثناء اختيار العنصر بالكود دا code.Value = Resultlist.Column(0) رابط هذا التعليق شارك More sharing options...
M.Abd Allah قام بنشر يونيو 25 مشاركة قام بنشر يونيو 25 6 دقائق مضت, safaa salem5 said: سؤال اخير هو ليه حضرتك ما استخدمتش الحقل اللى اسمه كود فى الفورم الرئيسى واستدعيته من داخل الليسته مع انى بستدعيه اثناء اختيار العنصر بالكود دا code.Value = Resultlist.Column(0) لا ابدا كل الطرق زي مبيقولو تأدي الي روما تقدري تعتمدي عليه لو حبيتي من خلال الكود ده Dim strSQL1 As String Dim db As DAO.Database Dim codeValue As Variant ' التحقق من أن القائمة ليست فارغة If Me.Resultlist.ListCount = 0 Then MsgBox "لا يوجد عناصر للحذف.", vbExclamation Exit Sub End If ' التحقق من أن هناك عنصر محدد في القائمة وأن الحقل غير المنضم 'code' يحتوي على قيمة If IsNull(Me.code.Value) Or Me.code.Value = "" Then MsgBox "يرجى تحديد عنصر من القائمة للحذف.", vbExclamation Exit Sub End If ' الحصول على القيمة من الحقل غير المنضم 'code' codeValue = Me.code.Value ' إنشاء استعلام SQL لحذف السجل strSQL1 = "DELETE FROM fixedresults_tbl WHERE code = " & codeValue & ";" ' فتح قاعدة البيانات وتنفيذ استعلام الحذف Set db = CurrentDb db.Execute strSQL1, dbFailOnError ' إبلاغ المستخدم بالنجاح MsgBox "تم حذف العنصر بنجاح!", vbInformation ' تحديث ListBox لإزالة العنصر المحذوف Me.Resultlist.Requery ' تحديث الحقل غير المنضم في النموذج الرئيسي Me.code.Value = Null ' إغلاق الاتصال بقاعدة البيانات Set db = Nothing رابط هذا التعليق شارك More sharing options...
safaa salem5 قام بنشر يونيو 25 الكاتب مشاركة قام بنشر يونيو 25 تسلم ايدك يا باشمهندس متشكره جدا لحضرتك 🌷 1 رابط هذا التعليق شارك More sharing options...
M.Abd Allah قام بنشر يونيو 25 مشاركة قام بنشر يونيو 25 الشكر لله انا معملتش حاجه 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان