Kombobox
Jag har en combo som är kopplad till en tabell som heter t43Sektioner, denna tabell har tre kolumner ID, Sektion, Risk.
Comboboxen visar kolumnen Sektion och vid uppdatering skulle jag vilja visa i en textruta vad som står i vald rad fast i kolumnen Risk?
Så här ser koden ut som jag filar på men inte får att fungera:
Private Sub cbSektioner_AfterUpdate()
Me.tbEX = DLookup("Risk", "t43Sektioner='" & Me.cbSektioner & "'")
End Sub
Finns det någon vass VB-scriptare där ute
Svara
Sv: Kombobox
Jag skulle ta med fältet "Risk" i radkällan för kombinationsrutan och sätta den kolumnens bredd till 0 så att den inte syns. Sedan kan du hämta värdet till textrutan så här:
1 2 3 | With Me .cbSektioner Me .tbEX = .Column(1, .ListIndex) End With |
Vad gäller din kod - om kombinationsrutans bundna kolumn innehåller fältet "Sektion" och fältet är av datatypen text så bör detta fungera:
1 | Me .tbEX = DLookUp( "Risk" , "t43Sektioner" , "Sektion='" & Me .cbSektioner & "'" ) |
Svara
Sv:Kombobox
Funkade fint att få fram rätt rad i kolumnen risk, testade dock din Me.tbEX = .Column(1, .ListIndex) men får felmeddelande på den..?
Försökte även få fram ID med samma
Me.tbID = DLookUp("ID", "t43Sektioner", "ID='" & Me.cbSektioner & "'") men det går inte.. är det skillnad på tal och text i den koden?
Svara
Sv: Kombobox
Ja du får ta bort "fnuttarna" om du använder tal:
Me.tbID = DLookUp("ID", "t43Sektioner", "ID=" & Me.cbSektioner)
(men varför ska du söka efter ID om du redan har det in kombon?)
Den andra koden som du fick felmeddelande på kräver att kombon har minst två kolumner och att du har "With-raderna" före och efter som jag skrev.
Svara