Dragi druže!
Meni se čini da je tebi teško napisati šta ti konkretno treba pa si u jednoj šturoj rečenici pokušao strpati svoje želje. Mi bismo sad trebali pogađati šta je pisac htio ovim da kaže.
Ja pretpostavljam da ti treba štampanje aktivnog rekorda iz neke tvoje forme (ekvivalent onome što ti nazivaš red iz baze) odnosno rekorda u koji gledaš dok ti je forma otvorena. Ako je tako onda prvo moraš napraviti izvještaj (Report- u kodu ti se zove rptForm) u koji ćeš uključiti sve podatke koji su ti potrebni za taj izvještaj tako što ćeš za Record Source izabrati tabelu iz koje pozivaš podatke. Nemoj da te zbuni što ćeš u tom izvještaju vidjeti sve podatke iz tabele jer ćeš njihovo filtriranje riješiti kodom.
Na formi sa koje ćeš pozivati izvještaj kreiraj taster "Štampaj" za koji ćeš kodom na događaj OnClick dodati sljedeće:
Code:
Private Sub Štampaj_Click()
'Otvaranje izvještaja direktno iz aktivne forme sa uslovom aktivnog rekorda
Dim strReportName As String
Dim strCriteria As String
If NewRecord Then 'dio koda koji presreće situaciju ako se izabere new record
MsgBox "Rekord koji ste izabrali ne sadrži podatke!" & vbCr & vbCr & "Izaberite rekord koji ima unesene podatke!" _
, vbInformation, "Sistemska poruka!"
Exit Sub
Else
strReportName = "rptForm"
strCriteria = "[RedniID]= " & Me![RedniID]
DoCmd.OpenReport strReportName, acViewPreview, , strCriteria
End If
End Sub
Ja mislim da je to što ti treba.
P.S. Drugi put napiši malo detaljnije u čemu je problem da se ne mora pogađati!