عدم التكرار في استعلام الالحاق

[ahmedabuzena]

22 ساعات مضت, jjafferr said:

وعليكم السلام 🙂

 

عملت حقل اختيار صح/خطأ ، تسميته "اختيار الكل" ، فلما تختاره ، يختار القائمة كاملة ، ولما تشيل الاختيار عنه ، يلغي اختيار القائمة ،

وهذا الكود يعمل اللازم :

Private Sub chk_Select_All_AfterUpdate()

    Dim i As Integer
    
    If Me.chk_Select_All = -1 Then
        
        'Selete All
        For i = 0 To Me.lst_invoices.ListCount - 1
            Me.lst_invoices.Selected(i) = True
        Next i
        
    Else
        
        'DeSelete All
        For i = 0 To Me.lst_invoices.ListCount - 1
            Me.lst_invoices.Selected(i) = False
        Next i
            
    End If
    
End Sub

.

وشفت عندك استعلام ما تريده يعرض عدد كبير من المعلومات ،

فعملت لك جدول خاص بالمعلومات اللي ما نريدها ، واضفت لك اسم/رقم المجموعة iGroup حتى تقدر تضيف معلومات لإستعلامات اخرى

.

فأصبح الاستعلام

.

جعفر

1513.2.Not in final.accdb.zip 462.7 kB · 11 downloads

جزاكم الله خيرا ربنا يباركلك كدة تمام شكرا جزيلا