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.

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???

_{[Ovu poruku je menjao Honda-Biker dana 29.01.2008. u 18:08 GMT+1]}

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

Prijatelju hvala ti puno. Sve radi kako treba
Jos jednom HVALA