oprette/søg

Jeg antagere, at du med opslag mener kombinationsboks. Så kan du anvende denne i boksens NotInList:

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

Eller ved numeriske felter:

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

Jeg tror ikke jeg har formuleret mig rigtigt.
Ved opstart af formularen står man i feltet "nummer". Dette "nummer" henter fra en tabel "Ordre" ved hjælp af en kombinationsboks. Når der tastes et nummer i feltet "nummer" ønsker jeg en en søgefunktion i tabellen "indtastning" Findes nummeret skal der være mulighed for at rediger i denne post dog ikke i feltet "Nummer". Findes "nummeret" ikke skal posten oprettes. dog kun hvis nummeret findes i tabellen "ordre"
Kan det lade sig gøre eller skal jeg finde på en anden løsning.