Avatar billede schoesler Nybegynder
27. marts 2003 - 13:03 Der er 17 kommentarer og
1 løsning

Dlookup funktion

I min tabel har jeg to felter [first name] og [surname] Dem vil jeg gerne bruge som Dlookup og retunere [citizen]til min form felt me.nationality1. Kan det lade sig gøre?

Private Sub Combo128_AfterUpdate()

Me.position1 = " "
Me.nationalty1 = " "
On Error GoTo err_name

Dim Stringsearch As String

Stringsearch = Me!Combo128
Me!position1 = DLookup("[titel]", "crew database", "[first name]='" & Stringsearch & "'")
Me!nationalty1 = DLookup("[citizen]", "crew database", "[first name]='" & Stringsearch & "'")
err_name:

End Sub
Avatar billede schoesler Nybegynder
27. marts 2003 - 13:04 #1
me!Combo128 =[first name]+" "+[surname]
Avatar billede terry Ekspert
27. marts 2003 - 13:13 #2
In your combo you could have two columns, one for the first name and one for surname.


Me!nationalty1 = DLookup("[citizen]", "crew database", "[first name]='" & me.Combo128.column(1) & "' AND [surname] = '" & me.Combo128.column(2) & "'")
Avatar billede terry Ekspert
27. marts 2003 - 13:14 #3
columns in the combo are numbered from 0 to number of coulmns -1 and I am assuming that there is an ID in column(0). But this should giv eyou an idea :o)
Avatar billede schoesler Nybegynder
27. marts 2003 - 13:34 #4
Det virker ikke rigtig?

Private Sub Combo128_AfterUpdate()

'Me.position1 = " "
Me.nationality1 = " "
On Error GoTo err_name

'Dim Stringsearch As String

'Stringsearch = Me!Combo128
'Me!position1 = DLookup("[titel]", "crew database", "[first name]='" & Stringsearch & "'")
Me!nationality1 = DLookup("[citizen]", "crew database", "[first name]='" & Me.Combo128.Column(1) & "' AND [surname] = '" & Me.Combo128.Column(2) & "'")
'Me!nationality1 = DLookup("[citizen]", "crew database", "[first name]='" & Stringsearch & "'")
err_name:

End Sub
Avatar billede schoesler Nybegynder
27. marts 2003 - 13:35 #5
Combo boksen ser sådan ud!

SELECT [crew database].[ID], [first name]+" "+[Surname] AS Expr1 FROM [crew database];
Avatar billede terry Ekspert
27. marts 2003 - 13:53 #6
Jan, add the [citizen] field to the combo and then

Me!nationality1 = me.combo128.column(3)

should work
Avatar billede terry Ekspert
27. marts 2003 - 13:53 #7
You need to alter the Number of Columns paramater to 4!
Avatar billede terry Ekspert
27. marts 2003 - 14:04 #8
Me!nationality1 = me.combo128.columns(3)
Avatar billede terry Ekspert
27. marts 2003 - 14:11 #9
column
Avatar billede schoesler Nybegynder
27. marts 2003 - 14:13 #10
Arbejder på sagen!
Avatar billede schoesler Nybegynder
27. marts 2003 - 14:24 #11
'terry' hvorfor returnerer den Me.Combo128.Column(2) og ikke Me.Combo128.Column(3). I combo128 er tilføjet [position] ???

Private Sub Combo128_AfterUpdate()


On Error GoTo err_name

Me!nationality1 = Me.Combo128.Column(2)
Me!position1 = Me.Combo128.Column(3)

err_name:

End Sub
Avatar billede terry Ekspert
27. marts 2003 - 15:15 #12
have you changed the parameter "Number of Columns" to 4?
Why have you added [position] ?
Avatar billede schoesler Nybegynder
27. marts 2003 - 15:18 #13
Ja, det har jeg nu og det virker, meeeen er der mulighed får at kun få vist en column i Combo128 nu ser jeg 2+1 =[first name]+[surmane] men også [citizen] ville gerne af med [citizen] så jeg kun ser navnet i Combo128
Avatar billede terry Ekspert
27. marts 2003 - 15:18 #14
lets back up a bit!
You had two columns and have now added a new column citizen, so thats three columns. Now if you have added another column position you have four columns, so you need to change the property to 4
Avatar billede schoesler Nybegynder
27. marts 2003 - 15:25 #15
Har ændret til "column 4" og jeg får også min lookup til at virke, men min combo128 viser nu 2 kolonner, men vil gerne have at man kun kan se navnet og ikke som nu navnet og citizen
Avatar billede terry Ekspert
27. marts 2003 - 18:33 #16
OK, there is a property "columns widths" or soemthing like that. You have to make sure that the columns which you dont want to see are set to 0
and example will be
0,1.5,0,0

So here only column 1 is visible
Avatar billede schoesler Nybegynder
27. marts 2003 - 20:18 #17
'terry' det var en lille fin finesse og det virkede. Tak for hjælpen IGEN
Avatar billede terry Ekspert
27. marts 2003 - 20:39 #18
your meget welcome :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