Nesto ovako sam postavio na AfterUpdate OptionDugmeta:
Code:
Private Sub LstIzborKriterijuma_DblClick(Cancel As Integer)
Dim stLinkCriteria As String
If IsNull(Me.LstIzborKriterijuma.Column(0)) Then
MsgBox "Izaberite kriterijum izvestaja", vbOKOnly, "Upozorenje!"
Cancel = True
GoTo kraj
End If
Select Case Me![optIzbor]
Case 1
stLinkCriteria = Me.LstIzborKriterijuma.Column(0)
DoCmd.OpenReport "rptKupciStanje", acPreview, , stLinkCriteria
Case 2
stLinkCriteria = Me.LstIzborKriterijuma.Column(0)
DoCmd.OpenReport "rptDobavljaciStanje", acViewPreview, , stLinkCriteria
End Select
Exit Sub
kraj:
End Sub
Ali nesto ne radi kako treba.
LstIzborKriterijuma.Column(0) je polje KupacID (DobavljacID) kao uslov kriterijuma.
Svasta sam pokusavao ali ne ide. Znam da uslov (kriterijum) pretrage nije dobro napisan ali ne znam sta kako da ga napisem
LstIzborKriterijuma je nazim Liste koja sadrzi dobavljace ili kupce u zavisnosti sta je odabrano u optionDugmetu.
Znaci kad kliknem na kupca (dobavljaca) sa liste hocu da mi prikaze izvestaj samo njegovog stanja.