Avatar billede phuc69 Juniormester
26. september 2005 - 20:00 Der er 23 kommentarer og
1 løsning

valg i listbox bestemmer hvad der kommer i nr2

Jeg har to tabeller Den ene indholder amter
Den anden inholder amter og byer.

Så har jeg en formular hvor jeg har 2 listboxe
Den første viser indeholdet af tabllen med amter

Når jeg så trykker på et amt vil jeg gerne hvae at den viser
alle de byer som er i tabel2 som har amtet tilkoblet
Avatar billede phuc69 Juniormester
26. september 2005 - 20:06 #1
Sagt med andre ord det der trykkes på i listbox skal have indflydelse på hvad der vises i listbox2
Avatar billede -anders- Juniormester
26. september 2005 - 20:27 #2
Du kan bruge listboksens rækkekilde til dette (rowsource), prøv denne ved OnClick eventen på listboksen der indeholder dine amter:

Dim sSQL as string

sSQl = "Select * Form tblbyer Where [Amtfelt]= " '& Me!lstAmter & "'"

Me!lstByer.RowSource = sSQL

Koden forudsætter at der er angivet en kolonne i dine lister, så den liste der skal vise byer har ikke nogen rowsource før der klikkes på lstAmter, alle objektnavne fra eks. skal så bare erstattes med dine egne
Avatar billede -anders- Juniormester
26. september 2005 - 20:28 #3
Og her er så den rigtige :o)

Dim sSQL as string

sSQl = "Select * From tblbyer Where [Amtfelt]= " '& Me!lstAmter & "'"

Me!lstByer.RowSource = sSQL
Avatar billede -anders- Juniormester
26. september 2005 - 20:29 #4
PS, har ikke lige testet syntax i SQL sætningen
Avatar billede -anders- Juniormester
26. september 2005 - 20:31 #5
eks. forudsætter at kriteriet er tekststrenge, hvis du har et skjult ID felt feks. tal skal det se sådan ud:

Dim sSQL as string

sSQL = "Select * From tblbyer Where [Amtfelt]= " & Me!lstAmter

Me!lstByer.RowSource = sSQL
Avatar billede phuc69 Juniormester
26. september 2005 - 20:45 #6
Du må heller komme med en nærmere foklaring. Jeg skal indsætte dette i
Dim sSQL as string

sSQL = "Select * From tblbyer Where [Amtfelt]= " & Me!lstAmter

Me!lstByer.RowSource = sSQL i koden til klik i liste 1

Hvad gør jeg så i liste 2
Avatar billede -anders- Juniormester
26. september 2005 - 20:48 #7
Ja denne er testet og virker. koden skal sættes ind ved listen under klik eventen

Dim sSQL As String
sSQL = "Select * From tblbyer Where [Amtnavn] = '" & Me!lstamter & "'"
Me!lstbyer.RowSource = sSQL
Avatar billede -anders- Juniormester
26. september 2005 - 20:49 #8
Du skal ikke gøre noget ved liste2. denne viser de byer der matcher dine amter automatisk (det amtnavn du har klikket på i liste1)
Avatar billede terry Ekspert
26. september 2005 - 20:53 #9
another idea would to just set the RowSource of the town combo to include the contents of the "amter" combo as a criteria


SELECT Town FROM tblByer WHERE Amt = [Forms]![FormNameGoesHere]![cboAmter]

and then in the amter combo's AFTER UPDATE event you need to refresh

me!cboTown.Requery
Avatar billede phuc69 Juniormester
26. september 2005 - 20:58 #10
Jeg har følgende 2 tabeller
----tabel Region---
Fyn
Vejle
-----Tabel byer-----
Fyn,Midelfart
Fyn,Odense
Vejle,kolding

Jeg syntes ikke jeg kan få det til at virke
Avatar billede -anders- Juniormester
26. september 2005 - 21:01 #11
Hmm, har du relation mellem de to tabeller ?
Avatar billede terry Ekspert
26. september 2005 - 21:03 #12
I would suggest using combo boxes for this.
Make the combo using the wizard.

The RowSource for the Amt combo will be something like this

SELECT [Amt] FROM Region Order By [Amt]

The RowSource for the Town combo will be someting like this

SELECT [ByNavn] FROM Byer WHERE [Amt]  = [Forms]![FormNameGoesHere]![Amter]
Order By [ByNavn]
Avatar billede terry Ekspert
26. september 2005 - 21:04 #13
now I'm off for the evening :o)
Avatar billede -anders- Juniormester
26. september 2005 - 21:07 #14
gonat til terry :o)

Kunne du maile databasen, så kan jeg lige kikke på den (som .zip fil), du finder min mailadresse ved at klikke på mit brugernavn
Avatar billede phuc69 Juniormester
26. september 2005 - 21:08 #15
Jeg bliver nød til at stoppe for iaften tak for forsøg jeg vender tilbage imorgen
Jeg kan desvære ikke maile den
Avatar billede -anders- Juniormester
26. september 2005 - 21:09 #16
okay, vi høres bare ved, gonat herfra
Avatar billede -anders- Juniormester
26. september 2005 - 21:22 #17
Jeg har lavet et lille simpelt eks. til inspiration, hvis du lægger en mailadresse kan jeg sende det til dig
Avatar billede phuc69 Juniormester
27. september 2005 - 08:24 #18
det kan jeg da godt
skibbrogade(a)tdcadsl.dk
Avatar billede -anders- Juniormester
27. september 2005 - 09:57 #19
demo db sendt
Avatar billede phuc69 Juniormester
27. september 2005 - 21:07 #20
Det virker nu tak for hjælpen
Avatar billede -anders- Juniormester
27. september 2005 - 21:36 #21
Selv tak, og tak for point :o)

Fik du min demo ?
Avatar billede rosco Novice
28. september 2005 - 15:54 #22
Den demo kunne jeg godt bruge. Please
erlenbach@computer.dk
Avatar billede -anders- Juniormester
28. september 2005 - 19:24 #23
Sendt til rosco
Avatar billede rosco Novice
28. september 2005 - 19:40 #24
Jeg takker :o)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester