[es] - Vise rekorda u izvjestaj

Honda-Biker
Student

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

Profil

^{28.01.2008. u 20:22 - pre 197 meseci}

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

Odgovor na temu

Air Live
Srbija

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

Profil

Re: Vise rekorda u izvjestaj

^{28.01.2008. u 20:44 - pre 197 meseci}

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

Odgovor na temu

Getsbi

Moderator
Član broj: 124608
Poruke: 2831

+45 Profil

Re: Vise rekorda u izvjestaj

^{28.01.2008. u 21:31 - pre 197 meseci}

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.

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

Odgovor na temu

Honda-Biker
Student

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

Profil

Re: Vise rekorda u izvjestaj

^{29.01.2008. u 08:21 - pre 197 meseci}

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

Prikačeni fajlovi

primjer.rar - 11.95k

Odgovor na temu

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 - pre 197 meseci}

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.

Odgovor na temu

Honda-Biker
Student

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

Profil

Re: Vise rekorda u izvjestaj

^{29.01.2008. u 16:38 - pre 197 meseci}

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

Odgovor na temu

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 - pre 197 meseci}

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

Odgovor na temu

Honda-Biker
Student

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

Profil

Re: Vise rekorda u izvjestaj

^{30.01.2008. u 08:14 - pre 197 meseci}

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

Odgovor na temu