Avbryte innleggelse av record når \"ikke i listen\"

Use the On Not In List event procedure.

Private Sub Combo3_NotInList(NewData As String, Response As Integer)
 
  Msgbox \"Not in list ....\", vbInformation
  Response = AccDataErrContinue \'Cancel default error

  Me.undo \'Cancel update


End Sub

You can also use this event to add a new entry in the list!!!

Ja dette fungerte til dels men jeg ønsker å lukke skjemaet uten å velge en av tingene i listen :-)

Sæt koden ind på kombinationsboksens Vedikke På Liste hændelse (Not In List):

Dim Svar As String
Svar = MsgBox(\"Det valgte er ikke på listen.\" & vbNewLine & \"Formularen lukkes.\", Title:=\"Fejlindtastning\", Buttons:=vbOKOnly)
DoCmd.Close

Jeg får fortsatt ikke lukket formularet, får en feilkode på kommando DoCmd.Close(Run Time Error 2501). Meldingen \"Det valget er........\" vises 2 ganger før feilmeldingen dukker opp !

Det er Access indbyggede systemfejlmeddelelser du ser. dette er den mest simple måde at gøre det på:

Private Sub kombo_NotInList(NewData As String, Response As Integer)
Me.Undo
DoCmd.Close
End Sub

Systemfejlmeddelelser kan du iøvrig slå til og fra med kommandoerne.

DoCmd.SetWarnings False
DoCmd.SetWarnings true

Nei beklager, men det fungerer fortsatt ikke.
Jeg setter Warnings False og enda dukker feilmelding opp på DoCmd.Close.

This may be the problem !
AccDataErrContinue = AcDataErrContinue

If you have no other code than this then it should work

Private Sub Combo3_NotInList(NewData As String, Response As Integer)
 
  Msgbox \"Not in list ....\", vbInformation
  Response = AcDataErrContinue \'Cancel default error

  Me.YourCombo.undo \'Should NOT be necessary!
  Me.undo \'Cancel update
  Docmd.close

End Sub

Nå virker det, takk Terry :-))

your welcome, og selv tak :o)