السلام عليكم اساتذة
لقد عملت بالكود المعدل لفتح فورم من طرف الاستاذين Moosak و ابوخليل لفتح التقرير
فوجدت صعوبة في ذلك
Private Sub TxtMonth_DblClick(Cancel As Integer)
If Me.TheValue <> 0 Then
DoCmd.Close
Dim stDocName As String
stDocName = "rptTransfer_BEA_Ccp"
DoCmd.OpenReport stDocName, acPreview, , , "month([TxtMonth]) =" & Year([TxtMonth])
Abou_Taha
End If
End Sub