List boks sammen fletning

ok saa i afterupdate for listboksen laegger du flg kode for Listen med fornavne:

sub NavneListe_AfterUpdate()

me.EfternavnListe.Rowsource = "SELECT [efternavn] FROM [Din tabel] WHERE [Data navn] =" & me.NavneListe

end sub

Jeg kanikke rigtigt få det il at funke, jeg har ( før jeg fik svar:) ) ændret navnene i Tabellen( Contacts) til : First Name, Last Name og Address. men selv når jeg ændre navnene i den kode fra dig, skifter de ikke længere dataen i mit addresse felt, eller i nogen af de to List bokse.

min afterupdate ser sådanne ud før ændringer:
Private Sub List20_AfterUpdate()
    ' Find the record that matches the control.
    Dim rs As Object

    Set rs = Me.Recordset.Clone
    rs.FindFirst "[LastName] = '" & Me![List20] & "'"
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

Private Sub List22_AfterUpdate()
    ' Find the record that matches the control.
    Dim rs As Object

    Set rs = Me.Recordset.Clone
    rs.FindFirst "[FirstName] = '" & Me![List22] & "'"
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

Ok, jeg fik det til at virke med din kode :) Men den kommer med en pop-up hver gang man foretager et valg og kommer ikke med mulighed for at vælge last name. Er det mig der gør noget forkert ??

Hva er det for en pop-up der kommer? Har du lavet en tilsvarende 'AfterUpdate' for Rowsource'en i din efternavnliste?

det eneste pop-up jeg kan taenke paa er at et felt navn ikke stemmer overens med det i tabellen. Saa vil SQL-saetningen spoerge eefter parameteren

Seføli :c)

det er en blank popup hvori man kan skrive. Hvis man trykker på Firstname og indtaster et navn kommer det op i efternatent. Alså fornavnet kommer frem begge steder og omvent ved efternavne.

Jeg har lavet en 'AfterUpdate' i både fornavne og efternavne.

ok - det bliver problematisk efterso der maaske bliver noget cirkulaert der.
Proev at fjerne koden paa den ene listbokx foerst og se om det virker med kun den kode paa den ene listbox.

Nu virker det nogen lunde som det skal, men når jeg f.eks vælger et fornavn, kommer der en popup, hvor jeg skal skrive fornavnet en gang til før efternavnet bliver fundet.
Koden ser nu sådan ud:
Sub List20_AfterUpdate()
Me.List22.RowSource = "SELECT [FirstName] FROM [Contacts] WHERE [LastName] =" & Me.List20
End Sub

øøhm er det korrekt at List20 = FirstName & List22 = LastName? For i så fald skal du lige bytte om på FirstName og LastName i din kode:

Sub List20_AfterUpdate()
Me.List22.RowSource = "SELECT [LastName] FROM [Contacts] WHERE [FirstName] =" & Me.List20
End Sub

eller er jeg helt galt på den :o)

Hvis det ikke er tilfældet kan fejlen muligvis ligge ved manglende ' ' omkring ...& Me.List20, så prøv evt. med følgende kode:

Sub List20_AfterUpdate()
Me.List22.RowSource = "SELECT [FirstName] FROM [Contacts] WHERE [LastName] = '" & Me.List20 & "'"
End Sub

LastName of First name er ok, Men din sidste kommentar hubs, ser ud til at virke :)
Jeg vil lige teste det, men hvis det virker tror jeg nok at min stemme falder på dig ved valgets af min ugenlige "Ynglings Access Newbie medhjælper" award show :)

Takker mange gange :c) Håber det virker.

Det spiller så godt som det nu kan ;), jeg har ikke det store styr på access eller SQL. Hvordan giver jeg dig point hubs?

jeg ligger lige et svar men det var nu Overchord der kom med løsningen, min hjælp var bare et tillæg til Overchords løsning

ok, første gang jeg giver points. Så jeg ville have delt dem 40/60 da du gad at hjælpe mig så meget. Deet var pænt gjordt af dig :)

Jamen det var da så lidt, er altid glad for at hjælpe :c)

doh, jeg er kommet til at afvise overchord, hvis du læser dette så læg lige et svar ind. jeg har virkelig kaget rundt i dette her. Jeg tror jeg har fattet det nu. Marker og accepter eller afvis.

"Jamen det var da så lidt, er altid glad for at hjælpe :c)"

bare rolig der kommer meget mere fra min side af. Nu skal jeg hvae den lagt på nettet ;) mon ikke jeg oså kager lidt rundt i den, I Think so. men den tid den sorg.

*lol* Det nummer har jeg også lavet et par gange :c)
Altid en god idé at vente med at afvise svar indtil spørgsmålet er blevet løst, på den måde undgik jeg i hvert fald at gentage nummeret... næsten ;c)

lol - det er ok - husk nu at give hubs nogle point ogsaa - han fik det til at virke ordentligt med min slamkomde :-)

smider du ikke lige st svar så skal jeg gøre det godt igen overchord :)

jo ok sorry :-)