Kan det lade sig at gøre

Det den automatisk fylder ud. skal det komme fra en database?
Så er du nød til at reloade en siden, eller bruge en gemt frame.

Ja, den skal komme fra en database, som jeg for resten har oprettet, med flere tabeler(ind til nu)
Hvad mener du men det sidste setning?

Ja det tror jeg sagtens der kan lade sig gøre. Enten via autoopslag eller via programmer. Det kommer an på hvordant dine tabeller er oprettet. Er de 3 felter i samme tabel?. Prøv at forklare lidt mere enten her på pr mail access@edb.dk

Det kan lade sig gøre med hvordan ved jeg ikke lige, men har set det hos flere.

Ja det er 3 felter i samme svagtabel, de første to felter er trukket fra andre tabeller.

jeg tror ikke jeg forstår hvad spm. går ud på! En reference til et eksemple på en anden side?

Hej MTPO

Det letteste er, at gøre de vha. en comboboks, men hvis du gerne vil have det som du beskriver, altså med en tekstboks hvori du indtaster et kundeID, og derefter trykker på en knap for at hente de resterende oplysninger, er her et eksempel.

På din formular skal du lave 3 tekstbokse.
Dem har jeg i mit eksempel kaldt for \"txtID\", \"txtNavn\", \"txtEmail\".

Desuden skal du lave en kommandoknap, i mit eksempel hedder den \"btOpslag\".

(Navnene angiver du under egenskaber/properties for tekstboksen/knappen)

Nu åbner du egenskaber for knappen, og vælger OnClick og klikker på de 3 punktummer og vælger codebuilder/kodeeditor.

Her indsætter du nedenstående kode:

--- Kode Start ---
Private Sub btOpslag_Click()
       
    Dim varID As Variant
    Dim varKundenavn As Variant
       
    \'Lægger værdien for det kundeID der søges efter
    \'ned i en variant for at undgå fejl hvis der
    \'ikke indtastes noget (en Null værdi)
    varID = Me!txtID
   
    If VarType(varID) <> vbNull Then
        \'Vi ved nu, at der er indtastet noget.
        \'Hvis kundeID skal være f.eks. en integer,
        \'kan man istedet for vbNull skrive vbInteger.
       
        \'Det returnerede lægges i en variant for at sikre os
        \'mod fejl hvis kunden ikke eksisterer, og der returneres
        \'null
        varKundenavn = DLookup(\"Kundenavn\", \"tblMain\", \"ID = \" & varID)
        If VarType(varKundenavn) <> vbNull Then
           
            \'vi ved nu, at kunden eksisterer, og skriver de fundne
            \'oplysninger til formularen
            txtNavn = varKundenavn
            txtEmail = DLookup(\"Email\", \"tblMain\", \"ID = \" & varID)
        Else
            \'hvis vi fik Null tilbage, skriver vi nedenstående
            \'fejlmeddelelser
            txtNavn = \"Kunne ikke findes\"
            txtEmail = \"Kunne ikke findes\"
        End If
    End If
   
End Sub
--- Kode Slut ---

I ovenstående kode er tabellen dataene hentes fra \"tblMain\", dette skal du selvfølgelig ændre til navnet på din tabel, ligesom du skal ændre \"Kundenavn\", \"Email\" og \"ID\" i alle DLookup sætningerne.

Herefter skulle du gerne kunne få de rette oplysninger frem på din formular.

Jeg går ud fra, at din database ikke er meget stor, og ikke skal bruges til professionelle formål. Hvis den skal, skal vi finde en lidt anden løsning.

Hvis du ikke kan få ovenstående til at virke, er du meget velkommen til at sende databasen til mig, sammen med en forklaring på hvilken formular, samt tabel, løsningen skal laves med.

Med venlig hilsen

LKP

lars@monitor-lk.dk

Tak Lars
Jeg afprøver det lige i morgen. Det er en databaser som skal køre på ca 20 - 50 kunder. Om det bliver profesionel, hmn bare det gjore. Men det er min første :)

Hej MTPO

Virkede det?

Hvis det gjorde, har du her et svar at acceptere ;-)

Både ja og nej, men takker være dig at jeg gik videre med min opgave. Jeg udviklede min egen DLookup fra bunden og det virkede. :-)
Hilsner
MTPO