Sta prepraviti u kodu da mi u izvjestaj stavi sve rekorde koje sam dobio pretragom??
Private Sub Stampaj_Click()
Dim strReportName As String
Dim strCriteria As String
If NewRecord Then
MsgBox "Rekord koji ste izabrali ne sadrži podatke!" & vbCr & vbCr & "Izaberite rekord koji ima unesene podatke!" _
, vbInformation, "Sistemska poruka!"
Exit Sub
Else
strReportName = "Report2"
strCriteria = "ID= " & Me!ID
DoCmd.OpenReport strReportName, acViewPreview, , strCriteria
End If
End Sub
Hvala