Klassikeren: Posttabellen

Du kan prøve at lave feltet By som en komboboks, der henter information fra Postnummertabellen.

Prøv så at se på hændelsen "Ved ikke på liste".

Kan man ikke lave det uden brug af kompoboks?? Så kan man vel heller ikke skrive frit i tb.by såfremt postnummer ikke står i posttabel??

Jo, du kan godt lave det uden brug af komboboks. Jeg har ikke så meget tid lige nu (fredag eftermiddag you know!), men jeg vil gerne prøve at finde en løsning.

Ok. Er der mon andre der kan give et bud?

Hvis postnummeret ikke findes, skal postnr tabellen så opdateres med det postnr og by du taster?

Nej

Jeg er kommet lidt i tvivl om, hvad du egentlig mener med dit oprindelige spørgsmål. Skal du lave et opslag i postnummertabellen til brug for en anden tabel, eller skal du opdatere postnummer tabellen og bare kontrollere om det postnummer, du er ved at oprette eksisterer i forvejen.

Det jeg søger er en funktion som
DCount der bare ikke tæller, men returnerer den første match!

Men du kan evt. prøve at se på denne kode, som henter et bynavn, når postnummerfeltet forlades. Hvis der ikke er et tilsvarende postnummer i tabellen, gives fokus til byfeltet, så du indtaste her.

Private Sub Postnr_Exit(Cancel As Integer)
On Error GoTo errhand

Dim strBy As String

strBy = Me!By

strBy = DLookup("[By]", "Postnr", "[Postnr] = " _
    & Forms!navne!Postnr)

Me!By = strBy

errhand:
Me!By.SetFocus
Exit Sub

End Sub

Kræver selvfølgelig tilpasning af formular, tabel og feltnavne

Jeps det fungerer

Lyder godt! Tak for point.

Hvad er fidusen med en fiktiv by, hvis du skal indtaste post nr. fra byer uden for DK så opret byen i din post tabel?

Jeg ved godt indlæget er gammelt jeg har lige et ekstra tip jeg gerne ville give videre. i stedet for at lade focus gå til feltet by, er det beddere at lave en formular, baseret på postnr.Tabellen. og tilføje en kode der åbner den hvis man indtaster et postnr. som ikke findes i tabellen.  hele koden til feltet postnummer (ved udgang) er denne.
Private Sub Postnr_Exit(Cancel As Integer)
On Error GoTo Findbynavn_err

Dim strBynavn As String

    With CodeContextObject
        If (IsNull(.Bynavn)) Then
strBynavn = DLookup("[Bynavn]", "Postnumre", "[Postnr]=[Postnumre]![Postnummer]")
    End If
    End With
Me!Bynavn = strBynavn

Exit Sub
Findbynavn_err:
Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "Postnumre"
DoCmd.OpenForm stDocName, , , stLinkCriteria
    DoCmd.GoToRecord , , acNewRec


End Sub
----------------------------------------------------------------------Jeg håber nogen kan bruge det.

rosco->
Din kode åbner vel en formular, som gør det muligt at opdatere postnummetabellen?

Men det oprindelige spørgsmål gik netop på, at man skulle kunne taste et postnummer der ikke fandtes og et tilhørende bynavn, UDEN at postnummer tabellen blev opdateret. Det indtastede, ikke eksisterende postnummer med tilhørende bynavn skal altså netop ikke gemmes.

Ellers er din idé god nok :-)