Molim pomoć za jedan mali problem.
Na formi "frmUlaz" iz primjera imam Combo box na koji sam u On Not in List event dodao poceduru koja bi me upozorila da Šifra koju upisujem nije na listi.
Međutim to mi ne radi.
dali znate u ćemu je problm.
Hvala.
Code:
Private Sub Sifra_NotInList(NewData As String, Response As Integer)
Dim ctl As Control
Response = acDataErrContinue
Response = 0
Set ctl = Me.SIFRA
If MsgBox("Proizvod nije na listi. Želite li ga dodati?", _
vbOKCancel) = vbOK Then
ctl.Undo
DoCmd.OpenForm "frmCjenikGP"
DoCmd.GoToRecord , , acNewRec
Else
Response = acDataErrContinue
ctl.Undo
End If
End Sub
Private Sub Sifra_NotInList(NewData As String, Response As Integer)
Dim ctl As Control
Response = acDataErrContinue
Response = 0
Set ctl = Me.SIFRA
If MsgBox("Proizvod nije na listi. Želite li ga dodati?", _
vbOKCancel) = vbOK Then
ctl.Undo
DoCmd.OpenForm "frmCjenikGP"
DoCmd.GoToRecord , , acNewRec
Else
Response = acDataErrContinue
ctl.Undo
End If
End Sub