Na primer:
Code:
If Me.txtPolje = 0 Then
DoCmd.OpenReport "Report1", acViewPreview, WhereCondition:="[SIFRA] = '" & Me.SIFRA & "'"
Else
DoCmd.OpenReport "Report2", acViewPreview, WhereCondition:="[SIFRA] = '" & Me.SIFRA & "'"
End If
Ovo važi ako postoje samo dva izbora tj. 0 i -1. Ukoliko postoji još neki, dodaj još jedan IF. Takođe, ukoliko ti ne treba Condition za štampu, slobodno skloni i to.