[تركي الحلواني]

السلام عليكم ورحمة الله وبركاته
أولاً أشكر أخي وزميلي (asemshahen5) على المبادرة في طرح الحلول وأستأذنكم في طرحي
كما فهمت من السؤال يريد الإستعلام عن مبالغ العقد بين تواريخ العقد (البداية والنهاية) من تاريخين يحددهما المستخدم
الموضوع ليس بالصعب باليحتاج الى طريقة معينة :
أولاً يجب ان يكون الإستعلام عن تاريخ البداية فقط وعن عرض النتائج يتم ابحث فيها عن تاريخ النهاية للتوضيح :

كود :

Dim d1, d2 As String

d1 = Format(Me.DTform, "yyyy/mm/dd")

d2 = Format(Me.DTTo, "yyyy/mm/dd")

rs.Open "Select * From Table where Dat1 Between '" & (d1) & "' AND '" & (d2) & "' and Dat2 <='" & (d2) & "'", dB, adOpenStatic, adLockReadOnly

للتوضيح :
dat1 تاريخ بداية العقد
dat2 تاريخ نهاية العقد