Hej Erhard

Jeg benytter en funktion i et modul, her er en forenklet version.
Denne funktion vil returnere true hvis postnummeret er oprettet


Function PostnummerOprettet(PoNr As String)
    Dim data As Recordset
    
    PostnummerOprettet = False
    Set data = CurrentDb.OpenRecordset("SELECT Tab_Postnr.* From Tab_Postnr WHERE (((Tab_Postnr.Postnr)='" & PoNr & "'));")
    If data.EOF = False Then PostnummerOprettet = True
    Set data=Nothing

End Function

Den kan kaldes fra en if..then..else sætning

if PostnummerOprettet("4300")=true then
   hvis postnummeret er oprettet gør et eller andet.
else
   hvis postnummeret ikke er oprettet gør noget andet.
endif

Hvor putter jeg denne programmering ind henne???

Er der ikke noget der hedder før indtastning og efter indtastning i Access? Det som jeg skal bruge er efter indtastning

Ikonet til upload er ikke synligt i min editor

Hvis der er andre der kunne have gavn af funktionen kommer den her:

KontrolNøglefejl kan placeres i et modul eller i en formular.
Her kommer koden til postnummerfeltets kombobox's NotInList

Private Sub Postnummer_NotInList(NewData As String, Response As Integer)
    Dim HuskPostnummer
    Response = Cancel 'ingen visning advarsel
    HuskPostnummer = NewData 'gem det nye postnummer til senere brug
    Postnummer = 0 'sæt postnummer til ukendt
    DoCmd.RunCommand acCmdSaveRecord 'gem post, så der ikke opstår konflikter
    If KontrolNøglefejl("postnumre", "postnummer", HuskPostnummer) = False Then
        DoCmd.OpenForm "postnumre", , , , , acDialog 'åben postnummertabellen
        'DoCmd.OpenForm "postnumre", , , , acFormAdd, acDialog' brug denne linje hvis du ønsker postnummerformularen til at åbne med en tom ny post
        If KontrolNøglefejl("postnumre", "postnummer", Postnummer) = False Then 'Vi tester lige om postnummeret blev oprettet
            MsgBox "Postnummeret er ikke oprettet!"
            GoTo Afslut
        End If
        Postnummer.Requery 'opdater listen i komboboxen for postnummer
        Postnummer = HuskPostnummer 'indsæt det nye postnummer i postnummerfeltet
        Bynavn.SetFocus 'flyt til bynavn
    End If
Afslut:

End Sub

Function KontrolNøglefejl(Tbl As String, Felt As String, Søg) As Boolean
    Dim Nøglefejl As Recordset
    On Error GoTo FejlKontrolnøglefejl
    'funktionen returnerer true hvis søgeteksten findes eller der opstår en fejl
    'tbl=tabel der skal søges i
    'felt=feltet der skal søges i
    'Søg=indholdet der skal søges efter
    KontrolNøglefejl = False
    Set Nøglefejl = CurrentDb().OpenRecordset(Tbl) 'åbner tabellen
    While Nøglefejl.EOF = False 'udføres hvis ikke sidste post i nøglefejl er nået
        kont = Nøglefejl("" & Felt) ' hent indhold i feltet
        If kont = Søg Then 'sammenlign indhold med søgetekst
            KontrolNøglefejl = True ' hvis søgeteksten er oprettet, sæt kontrolnøglefejl til true
            GoTo Afslut
        End If
        Nøglefejl.MoveNext 'gå til næste post i søgetabellen
    Wend
Afslut:
    Set Nøglefejl = Nothing 'slet tabellen fra hukommelsen
    Exit Function

FejlKontrolnøglefejl:
    'Hvis der opstår en fejl vis fejlen og sæt kontrolnøglefejl til true
    MsgBox Err.Number & ": " & Err.Description
    KontrolNøglefejl = True
    Set Nøglefejl = Nothing
End Function

For en god ordens skyld kommer her betydningen af linjen:
If KontrolNøglefejl("postnumre"(tabellen der skal søges i), "postnummer"(Feltet der skal søges i), HuskPostnummer(hvad skal der søges efter)) = False Then

Det er det heller ikke, men funktionen kan bruges til kontrol i alle tabeller.

Det hele afhænger af hvad man ønsker.