Indsætte data automatisk fra anden tabel

Det du kalder din anden tabel hedder her tabel2.

I tabellen \"Navneliste\" gør du feltet med det 4-cifrede nummer til den primære nøgle, idet jeg antager at nummeret er en unik identifikation af personen. Sørg for at dette felt er det første i tabellen.
Denne tabel virker som et lager af kundeoplysninger.

I tabel2 opretter du et felt med navnet \"nummer\". I fanen \"Opslag\" vælger du kombinationsboks, rækkekildetype skal være Tabel og navnet skal være \"Navneliste\".
Denne tabel arbejder du med og indtaster nye data f.eks. nye kunder.

Åbn databasens relationsvindue og træk en relation fra Navneliste til Tabel2 Jointype 3.

Derefter laver du en forespørgsel og benytter felterne:

Tabel2: Kundenr
Tabel Navneliste: kundens adresse, telefonnr. m.v.

Mvh / Mugs

Hvis du ønsker det, kan jeg sende dig en lille testdatabase, hvor jeg har afprøvet ovenstående.

Blot opgiv din emailadr.

/ Mugs

Hvis du indtaster via en formular kunne du bruge følgende:

(Tabellen med navne kalder vi Tabel1)
(Felter i formularen er Nr, Fornavn, Efternavn ...)

I EfterOpdatering hændelsen i feltet Nr indtaster du:

Private Sub Nr_AfterUpdate()
  Me.Fornavn=Dlookup(\"[Fornavn]\",\"Tabel1\",\"[Nr]=\" & Me.Nr)
  Me.Efternavn=Dlookup(\"[Efternavn]\",\"Tabel1\",\"[Nr]=\" & Me.Nr)
End Sub

... formularen er selvfølgelig baseret på Tabel2

Hej!

Jeg har med interesse studeret Jeres korrespondance. Jeg har et spørgsmål: Hvis man anvender Formular til indtastning - er forespørgslen da nødvendig og hvis ja, hvordan skal den så \"kobles\" sammen med det øvrige?

Mvh

compaq> Hvis du benytter min metode, er forespørgslen overflødig. Den er så at sige \"indbygget\" i de to opslag.

henrik+++> Skulle vi i øvrigt se få lukket spm?

compac > Ikke compaq. Sorry. Fingrene løb af med mig ;o]

Det virker ikke på min udgave. Er der nogen der vil forbarme sig over mig og fortælle hvad jeg gør galt.

http://home1.stofanet.dk/krebsen33/test.mdb

Mvh

Hav tålmodighed. Ser på det onsdag eftm.

Et af dine problemer er, at du refererer til tabellen Apparat; men din tabel hedder Apparater.

Et andet er, at Lbnr er et Tekst felt. Derfor skal du have \"\'\" på hver side - således:
Private Sub Lbnr_AfterUpdate()
  Me.Fabrikat = DLookup(\"[Fabrikat]\", \"apparater\", \"[lbnr]=\'\" & Me.Lbnr & \"\'\")
End Sub
Så burde det spille. God kamp!

Tak for hjælpen!

luk

Whoa!!
10 år!!
Det må da være rekord :o)

... og du fik vist ikke lukket spm helt