[hqom]

(27-05-18, 04:06 PM)mrnooo2000 كتب : أضف تكست للنموذج و ليكن اسمه txtmonth و يتم ادحال الشهر المطلوب به 

كود :

Retrieve2("Select * FROM Table1 Where Month(data1) = " & Val(txtmonth.text))

أو يمكنك ادخل الشهر عن طريق صندوق ادخال 

كود :

           Dim reslt As String = InputBox("الشهر المطلوب هو", "حدد الشهر", Today.Date.Month, Me.Left, Me.Top)
        If reslt.Trim.Length = 0 Then Exit Sub
        Retrieve2("Select * FROM Table1 Where Month(data1) = " & Val(reslt.Trim))

تمام بارك الله بك اخي الغالي