boki026 ing Smederevo
Član broj: 175089 Poruke: 36 *.internet.krstarica.net.
|
Nigde nisam video uslov koju si zadao kao filter, ali to je verovatno slucajno izostavljeno. "*" nece access nece da prihvati jer nije broj. Zasto, na primer, ne izbrises da je default value "*" i postavis sledecu proceduru za dugme dobaljaci:
Private Sub Command2_Click()
On Error GoTo Err_Command2_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "frmDobavljaci"
stLinkCriteria = "Cvar([SifraDobavljaca])=" & "'" & CVar(Me![NazivDobavljaca]) & "'"
If Not Me.NazivDobavljaca = "" Then
DoCmd.OpenForm stDocName, , , stLinkCriteria
Else
DoCmd.OpenForm stDocName
End If
Exit_Command2_Click:
Exit Sub
Err_Command2_Click:
MsgBox Err.Description
Resume Exit_Command2_Click
End Sub
i kada zelis da prikazes sve dobaljace samo obrises vrednost u kombo box-u.
|