مساعده في البحث باستخدام ليست بوكس

[dr_bioman]

السلام عليكم جميعا

محتاج مساعده في المرفق وهو البحث بين تاريخين واظهار النتائج في ليست بوكسlistbox.rarlistbox.rar

[محمد أبوعبدالله]

وعليكم السلام ورحمة الله وبركاته

تفضل اخي الكريم

ضع الكود التالي في زر الامر

        Me.list0.RowSource = "SELECT data.ID, data.pname, request.Age, data.Telephone, request.rdate, request.[no], request.Doctor, request.Price " & vbCrLf & _
        "FROM data INNER JOIN request ON data.ID = request.id WHERE (((request.rdate) Between [Forms]![mm]![FROM] And [Forms]![mm]![To])) ORDER BY data.ID;"
        
        Me.list0.Requery
        Me.text5 = Me.list0.ListCount - 1
        
        Dim XSum As Integer
        Dim i As Integer
        XSum = 0
        For i = 1 To Me.list0.ListCount - 1
            XSum = XSum + Me.list0.Column(7, i)
        Next
        
        Me!soso = XSum

listbox.rar

تحياتي

[dr_bioman]

اشكرك اخي الكريم

ماشاء الله

عندي طلب اخير

عندي المرضي نوعين كشف او اعاده 

وهي موجوده علي شكل حرف (ك) و (ع) 

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

وعدد المرضي ع. بناءا علي التاريخ المختار بين 

From   to

يوجد مربعي نص كشف واعاده في النموزج

يعني يحسب عدد المرضي واجمالي المبلغ زي ماحضرتك عملته 

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

واسف عالاطاله

 

[dr_bioman]

الحمد لله 

تم الحل