[es] - Problem sa stampom izvestaja

Mauzer
Beograd

Član broj: 17183
Poruke: 23
*.ptt.yu

Profil

^{28.06.2004. u 21:37 - pre 246 meseci}

Poadrav,
Napravio sam malu bazu za moji firmicu i sad sam zapeo na stampi izvestaja (fakture).Naime, radi se o tome da se izvestaj(faktura) zasniva na formi fm_Otpremnice, i kad kliknem na stampu fakture iz forme stampaju se sve fakture, a meni treba samo ona trenutna iz forme vezana za kljuc OtpremnicaID.U bazi Nortwind ima primer sa kverijem(Invoice filter) ali ne radi u mom slucaju.Pocetnik sam ali sam dogurao skoro do kraja moje prve baze i molim Zidara ili nekog drugog ako ima strpeljenja da mi pomogne

Kveri:
SELECT q_faktura.*
FROM q_faktura
WHERE (((q_faktura.tb_Otpremnica_OtpremnicaID)=[Forms]![fm_Otpremnica]![OtpremnicaID]));

Evo koda za button:
Private Sub Command28_Click()
On Error GoTo Err_Command28_Click

Dim stDocName As String

stDocName = "rp_Faktura"
DoCmd.OpenReport stDocName, acViewNormal, "q_faktura filter"

Exit_Command28_Click:
Exit Sub

Err_Command28_Click:
MsgBox Err.Description
Resume Exit_Command28_Click

End Sub

Pozadrav

Odgovor na temu

Daks
Tu Tamo

Član broj: 2310
Poruke: 88
*.as54.bi.bih.net.ba.

Profil

Re: Problem sa stampom izvestaja

^{28.06.2004. u 23:14 - pre 246 meseci}

Public Function F5()

On Error GoTo Err_Preview_Click

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

If IsNull([Forms]![Racun]![BrojRacuna]) Then
MsgBox "Nema podataka za ispis."
Else
DoCmd.OpenReport "Racun", acViewNormal, , "[Racun].[BrojRacuna]=" & [Forms]![Racun]![BrojRacuna]
End If

Exit_Preview_Click:
Exit Function

Err_Preview_Click:
If Err <> 2501 Then
MsgBox Err.Description
End If
Resume Exit_Preview_Click

End Function

Odgovor na temu