ممكن تصحيح للكود

[safaa salem5]

عندى ليست بوكس  داخل فورم عايزه لما اقف على اى عنصر فيها وبعدين اضغط زرار دليت يتحذف

مع العلم ان فيه حقل غير منضم فى الفورم الرئيسى اسمه

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

[M.Abd Allah]

ممكن طبعا

    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

 

[safaa salem5]

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

هو تمام شغال بس هو بيدينى رساله تم حذف العنصر حتى لو انا مش واقفه على اى عنصر

 

[M.Abd Allah]

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

 

[safaa salem5]

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

 

طيب ممكن نضيف للكود لو القايمه فاضيه تخرج رساله لا يوجد عناصر للحذف

[M.Abd Allah]

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

 

[safaa salem5]

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)

[M.Abd Allah]

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

 

[safaa salem5]

تسلم ايدك يا باشمهندس

متشكره جدا لحضرتك 🌷

[M.Abd Allah]

الشكر لله انا معملتش حاجه