Vise rekorda u izvjestaj

Nasao sam ovaj kod na forumu I on mi pravi izvjestaj iz forme na osnovu rezultata pretrage. To radi dobro dok mi je rezultat pretrage jedan record, ali kad imam vise rekorda ( i sve ih zelim u jednom izvjestaju ) opet u izvjestaju dobijam jedan record (prvi).
Sta prepraviti u kodu da mi u izvjestaj stavi sve rekorde koje sam dobio pretragom??




Hvala

Stavu u Default View forme Continuous Forms ! kako bih se prikazali svi rekordi !

Mislim da imaš pogrešan pristup. Ako želiš izveštaj sa svim slogovima koji zadovoljavaju neki kriterijum, onda napravi upit sa željenim kriterijumom nad tabelom ili tabelama koje nose podatke . Potom u Record Source izveštaja postavi taj novo kreirani upit.

Potpis

https://mzahorjanski.wixsite.com/mzahorjanski
https://www.fiverr.com/miroljubzahorja?up_rollout=true
https://www.youtube.com/@miroljubzahorjanski

Mislim da me niste razumjeli.Nije meni problem pretraga. Evo napravio sam neki mali primjer pa ako mozete pogledajte.

Onako kako je napisan kod normalno je da ti pokazuje samo jedan rekord, ali ne mora biti prvi vec onaj koji je selektovan nakon filtriranja forme (po pravilu se nakon filtriranja postavlja na prvi rekord). Ako sam dobro razumeo tvoje pitanje ti zelis da ti report prikaze listu kao i na formi nakon filtriranja. Za to je potreban opet neki kod kao i za formu.

Da, upravo tako.

Zelim da mi report prikaze listu kao i na formi nakon filtriranja. Pa ako bi neko htio da mi napise kod ili mi objasni kako bi to trebalo uraditi.?

ili da li se moze napraviti to da mi svi rekordi koji su isfiltrirani na formu automatski budu selektovani???

Private Sub Report_Open(Cancel As Integer)
Dim SQLOsnovni As String
Dim SQL As String
Dim I As Integer
Dim ImeU
Dim ImePolja As String

SQLOsnovni = "SELECT * FROM Tabela"
For I = 1 To 3
ImeU = "U" & I
ImePolja = Forms!FPretraga(ImeU).Tag
If Len(Forms!FPretraga(ImeU)) <> 0 Then
SQL = SQL & ImePolja & " Like '" & Forms!FPretraga(ImeU) & "*'" & " AND "
End If
Next I
If Len(SQL) > 0 Then
SQL = Mid(SQL, 1, Len(SQL) - 5)
SQL = SQLOsnovni & " WHERE " & SQL
Me.RecordSource = SQL
End If
End Sub

Ovaj kod postavi na On Open dogadjaj izvestaja, a u kodu dogadjaja dugmeta za stampanje izbaci filter za otvaranje izvestaja. Kod bi trebalo da izgleda ovako:

Private Sub Stampaj_Click()
Dim strReportName 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"
DoCmd.OpenReport strReportName, acViewPreview
End If
End Sub