مثالك هذا من كنوز ابي هادي ، فكيف عثرت عليه ؟
Private Sub CmdRunQuery_Click()
' هذه الطريقة من صنع المبدع الكبير أبو هادي
Dim QueryName As String
On Error Resume Next
QueryName = "Q_fahad"
DoCmd.DeleteObject acQuery, QueryName
With CurrentDb.CreateQueryDef(QueryName, "SELECT *, Sumمنduration FROM contss WHERE Sumمنduration " & [Forms]![Fahad]![ch3])
.Close
End With
DoCmd.OpenQuery QueryName
End Sub
مطلوبك يتحقق بتبديل السطر الاخير بهذا
DoCmd.OpenReport "Q_fahad", acViewPreview
وضع معيار 2.rar