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

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

قام بنشر (معدل)

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

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

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
قام بنشر

ممكن طبعا

    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

 

قام بنشر
  في 25‏/6‏/2024 at 13:20, 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

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

Expand  

 

قام بنشر
  في 25‏/6‏/2024 at 13:29, safaa salem5 said:

 

Expand  

تمام ضيفنا شرط أنه يتحقق من تحديد العنصر قبل الحذف

    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

 

قام بنشر
  في 25‏/6‏/2024 at 13:33, 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

 

Expand  

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

  • تمت الإجابة
قام بنشر
  في 25‏/6‏/2024 at 13:39, safaa salem5 said:

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

Expand  

ولا تزعلى نفسك 

    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
قام بنشر
  في 25‏/6‏/2024 at 13:42, 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

 

Expand  

سؤال اخير هو ليه حضرتك ما استخدمتش الحقل اللى اسمه كود فى الفورم الرئيسى واستدعيته من داخل الليسته 

مع انى بستدعيه اثناء اختيار العنصر بالكود دا

 

code.Value = Resultlist.Column(0)

قام بنشر
  في 25‏/6‏/2024 at 13:52, safaa salem5 said:

سؤال اخير هو ليه حضرتك ما استخدمتش الحقل اللى اسمه كود فى الفورم الرئيسى واستدعيته من داخل الليسته 

مع انى بستدعيه اثناء اختيار العنصر بالكود دا

 

code.Value = Resultlist.Column(0)

Expand  

لا ابدا كل الطرق زي مبيقولو تأدي الي روما 

تقدري تعتمدي عليه لو حبيتي من خلال الكود ده 

    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

 

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