graovacb elektro ing,PIN Elektro
Član broj: 170791 Poruke: 19 *.86.eunet.yu.
|
Posto su forma i izvestaj u principu ista stvar i kod mora biti slican. Napravi Izvestaj na osnovu tabele MAT sa svim poljima i na formu postavi "dugme" cmdOtvoriIzvestaj:
Private Sub cmdOtvoriIzvestaj_Click()
Dim MySQL As String, MyCriteria As String, MyRecordSource As String
Dim ArgCount As Integer
Dim Tmp As Variant
ArgCount = 0
AddToWhere [Look For Skl], "[Skl]", MyCriteria, ArgCount
AddToWhere [Look For Naz], "[NazivT]", MyCriteria, ArgCount
AddToWhere [Look For Sifra], "[Sifra]", MyCriteria, ArgCount
AddToWhere [Look For Kvalitet], "[Kvalitet]", MyCriteria, ArgCount
If MyCriteria = "" Then
MyCriteria = "True"
End If
DoCmd.OpenReport "rptMaterijal", acViewPreview, , MyCriteria, acWindowNormal
End Sub
|