Not In List problem

[ pmiroslav @ 21.04.2010. 10:48 ] @

Dugo me nije bilo na forumu pa pozdravljam sve stare i nove forumaše.

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

[ BiloKoje @ 21.04.2010. 12:33 ] @

Na formi frmUlaz, opcija Limit To List treba da se postavi na Yes, onda se aktivira događaj On Not in List ako uneseš nepostojeću šifru.