[ Mauzer @ 28.06.2004. 21:37 ] @
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
[ Daks @ 28.06.2004. 23:14 ] @
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