منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

()Private Sub Command12_Click
& "#"(Set rs = db.OpenRecordset("select * from tbl1 where Date_To Between #" & (Text21.Text) & "# and #" & (Text22.Text  
If rs.RecordCount = 0 Then MsgBox "áÇíæÌÏ äÊÇÆÌ ááÈÍË" : Exit Sub
rs.Close
DoCmd.OpenReport "Report2", acViewPreview
End Sub