27-05-18, 04:06 PM
(آخر تعديل لهذه المشاركة : 27-05-18, 04:23 PM {2} بواسطة 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))
