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

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

safaa salem5

بواسطه safaa salem5
في قسم الأكسيس Access

 مشاركة
إذهب إلى أفضل إجابة Solved by M.Abd Allah,

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

safaa salem5

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] & "));"

تم تعديل بواسطه safaa salem5
رابط هذا التعليق
شارك
M.Abd Allah

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

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

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

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

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

 

  • Like 1
رابط هذا التعليق
شارك
safaa salem5

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

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

 

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
 مشاركة
الذهاب الي قائمه المواضيع

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

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

Important Information

  I accept