تفضل
Private Sub أمر69_Click()
If Me.Itar = 1 Then
DoCmd.OpenReport "par", acViewPreview, , "[id] like '" & [id] & "*'"
ElseIf Me.Itar = 2 Then
DoCmd.OpenReport "parcods", acViewPreview, , "[id] like '" & [id] & "*'"
ElseIf Me.Itar = 3 Then
DoCmd.OpenReport "s parcods", acViewPreview, , "[id] like '" & [id] & "*'"
End If
::بالتوفيق::،،
sdert2.rar