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