keuzelijst met invoervlak indien niet in lijst automatisch aanvullen???

[Twomax]

de code werkte wel in een nieuw formulier wat ik gemaakt had...even om te testen
G?a nu eens kijken of het me lukt als twee velden bijgewerkt moeten worden bijvoorbeeld als de lokatie uit twee velden bestaat [straatnaam] en [gemeente]
Kan dat?

 

[Twomax]

Private Sub zonenummer_NotInList(NewData As String, Response As Integer)
Dim Msg As String
    If NewData = "" Then Exit Sub
    Msg = "'" & NewData & "' Deze zone bestaat niet." & vbCrLf & vbCrLf
    Msg = Msg & "Wil je " & NewData & " toevoegen?"
    If MsgBox(Msg, vbQuestion + vbYesNo) = vbYes Then
        DoCmd.OpenForm "zone", , , , acAdd, acDialog, NewData
        Me.zonenummer.Requery
        End If
End Sub

op deze Me.zonenummer.Requery krijg ik een foutcode hoe kan dat