Postnr. tabel

Hej jeg bruger selv nedenstående kode i en adressedatabase, og det virker fint, husk at comboen skal sættes til begræns til liste = Ja. Selve koden indsætter du i egenskaben for comboen under Ved ikke på liste (not in list)Felter og navne på tabeller skal selvfølgelig rettes til.

'kode start
Dim cn As ADODB.Connection
    Dim rs As ADODB.Recordset
    If MsgBox("PostNr findes ikke i forvejen!" & vbNewLine & "Ønsker du at oprette det

nye PostNr?", vbQuestion + vbOKCancel, "Opret nyt PostNr?") = vbOK Then
        Set rs = New ADODB.Recordset
        Set cn = CurrentProject.Connection
        rs.Open "tblpostnr", cn, adOpenKeyset, adLockOptimistic
        rs.AddNew
        rs!Postnr= NewData
        rs.Update
        Response = acDataErrAdded
        rs.Close
        Set rs = Nothing
        cn.Close
        Set cn = Nothing
    Else
        Response = acDataErrContinue
    End If
  'kode slut

Med lidt modifikationer virkede det perfekt.

Jeg takker mange gange.

//Oergaard

Hej, mange tak for point, glad for at du kunne bruge mit eks.Tænkte nok at lidt modifikationer var nødvendigt det er det ofte når man ikke kender db til bunds. Hvis du søger  her på E på not in list vil der helt sikkert kommer nogle hits der kan være meget lærerige. :o)

Oergaard > Der findes et hav af færdige postnrtabbeller på nettet. Bl.a på PostDanmark's hjemmeside i Excel som kan importeres til Access. Den er dog med dubletter som skal renses først. Men så har du også alle postnr i DK incl. Færøerne og Grønland.