[es] - Vise rekorda u izvjestaj

Honda-Biker

Član broj: 168675
Poruke: 18
*.teol.net.

Profil

^{28.01.2008. u 20:22}

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

Code:
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

^{28.01.2008. u 20:22}

Air Live

Član broj: 162278
Poruke: 147
*.tz.dlp283.bih.net.ba.

Profil

Re: Vise rekorda u izvjestaj

^{28.01.2008. u 20:44}

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

^{28.01.2008. u 20:44}

Getsbi
Miroljub Zahorjanski
Vršac

Moderator
Član broj: 124608
Poruke: 1017
79.101.185.*

Profil

Re: Vise rekorda u izvjestaj

^{28.01.2008. u 21:31}

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.

I'll know what I want, when I see it.

^{28.01.2008. u 21:31}

Honda-Biker

Član broj: 168675
Poruke: 18
*.teol.net.

Profil

Re: Vise rekorda u izvjestaj

^{29.01.2008. u 08:21}

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

Prikaceni fajlovi

primjer.rar - 11.95k

^{29.01.2008. u 08:21}

graovacb
elektro ing,PIN Elektro

Član broj: 170791
Poruke: 19
217.24.21.*

Profil

Re: Vise rekorda u izvjestaj

^{29.01.2008. u 12:57}

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.

^{29.01.2008. u 12:57}

Honda-Biker

Član broj: 168675
Poruke: 18
*.teol.net.

Profil

Re: Vise rekorda u izvjestaj

^{29.01.2008. u 16:38}

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]}

^{29.01.2008. u 16:38}

graovacb
elektro ing,PIN Elektro

Član broj: 170791
Poruke: 19
*.65.eunet.yu.

Profil

Re: Vise rekorda u izvjestaj

^{29.01.2008. u 18:55}

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

^{29.01.2008. u 18:55}

Honda-Biker

Član broj: 168675
Poruke: 18
*.teol.net.

Profil

Re: Vise rekorda u izvjestaj

^{30.01.2008. u 08:14}

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

^{30.01.2008. u 08:14}