DB and Combo Box

[brianh]

OK here is my question:

If you wanted to fill the contents of two different fields into one combo box how would you do it? Example:

One field called email, the other one called email_address.

Combo box called cboemail

Could you place the email field next to the email_address in the combo box. So in other words the email field would match the name to the actual persons email address.

[AdrianH]

Is this what you are after? Using an unbound combo box control.



Dim rcsTest as recordset
Dim SQLStatement as string

SQLStatement = "Select [email], [email_address] from [Table]....."

Set rcsTest = YourDB.OpenRecordset(SQLStatement)
with rcsTest
if (not .BOF) and (not .EOF) then .MoveFirst
Do While Not .EOF
cboemail.additem ![email] & chr(9) & [email_address]
.movenext
loop
.close
end with


Or have I missed the point?

Adrian.

[brianh]

That should work, I changed the names of the fields to the actual ones that I use but I get external name not defined, compile error. It is saying that it does not know what I am trying to refer to. Any suggestions?

[brianh]

It breask on:
cboemail.AddItem ![Name] & Chr(9) & [email_addrs].

[paulw]

You have missed out ! in fornt of [email_adrs]

Cheers,

P.

[brianh]

Thats not or I am not getting it....

[brianh]

Any more suggestions?

[brianh]

OK I kind of got it but how do I have it fill on the same line as the address.

Example it is coming up like this

hartlbb@dshs.wa.gov
Brian Hratline

I want it to look like
hartlbb@dshs.wa.gov - Brian Hartline

[AdrianH]

How about cboemail.additem ![Name] & " - " & ![email addrs]

Adrian.

[LG]

You can use Space function:

cboemail.AddItem ![Name] & Space(5) & ![email_addrs]

or

cboemail.AddItem ![Name] & " " & ![email_addrs]