brug af fejlkode til MsgBox

Prøv at indsætte koden i comboens egenskab "Not In List". Det er jo en hændelse du søger, hvis det indtastede ikke findes på listen.

Hvis du vil tilføje det indtastede til comboen, kan du bruge denne. En forudsætning for at koden fungerer er, at egenskaben BegrænsTilListe i comboen er sat til Ja.

Private Sub felt1_NotInList(NewData As String, Response As Integer)
Dim prompt As String
DoCmd.SetWarnings False
Response = acDataErrContinue
prompt = "Denne type findes ikke i listen ønsker du at oprette den?"
Exit Sub
If MsgBox(prompt, vbYesNo, "Typen findes ikke!") = vbYes Then
DoCmd.RunSQL "INSERT into Register (feltnavn) VALUES ('" & NewData & "')"
Response = acDataErrAdded
End If
DoCmd.SetWarnings True
End Sub

ved at anvende en hændelse under "Not on list" kan jeg godt få en box frem, men efter at have trykket ok til denne, får man stadig en fejlbox fra access med felj 2237..
jeg har indsat følgene:

Private Sub felt1_NotInList(NewData As String, Response As Integer)
MsgBox "Besked"
DoCmd.CancelEvent
End Sub

Det gør jeg ikke ved brug ag min egen kode. Jeg har ikke mulighed for at arbejde med Access på denne maskine. Prøv evt. at indsætte denne:

DoCmd.SetWarnings False
MsgBox "Besked"
DoCmd.SetWarnings true
DoCmd.CancelEvent

Eller brug min kode og arbejd ud fra den med at ændre hændelsen.

Hej Mugs,

jeg har forsøgt at anvende din kode, og nu virker det, jeg får ingen mgsbox frem, men den anullerer indtastningen og åbner rullemeenuen, og det er faktisk en god løsning, så tak for hjælpen...

Godt du fik det til at fungere. Tak for point og god weekend :o)