×
INTELLIGENT WORK FORUMS
FOR COMPUTER PROFESSIONALS

Log In

Come Join Us!

Are you a
Computer / IT professional?
Join Tek-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!

*Tek-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Students Click Here

Populating A Combo Box Dynamically

Populating A Combo Box Dynamically

Populating A Combo Box Dynamically

(OP)
I am working in a subform in datasheet view with the following fields:  vendor, vendor contacts.  When the operator selects a vendor, the appropriate contacts related to the vendor should be populated in the vendor contacts combo box.  I know that I can change the Row Source property to reflect all of the vendor contacts available for that particular vendor; however, all vendor contacts fields that do not relate to that particular vendor disappear.  This also happens when the form is set to continuous.

After some contemplation, I realize that I could manually populate the combo box and include all of the non-relating vendor contacts but this would allow the operator to select a vendor contact that does not relate to the vendor selected in the previous field.

I would greatly appreciate any advise.

RE: Populating A Combo Box Dynamically

On the AfterUpdate Event of the Vendor Field, put the following, changing the bolded areas appropriately:

Private Sub Vendor_AfterUpdate()
   Dim strSQL as String
   strSQL = "SELECT Contact FROM YourTable WHERE(((Vendor) = '" & Me.Vendor & "'));"
   Me.cboContact.RowSource = strSQL
   Me.cboContact.Requery
End Sub

Jim Lunde
compugeeks@hotmail.com
CompuGEEKS
Custom Application Development

Red Flag This Post

Please let us know here why this post is inappropriate. Reasons such as off-topic, duplicates, flames, illegal, vulgar, or students posting their homework.

Red Flag Submitted

Thank you for helping keep Tek-Tips Forums free from inappropriate posts.
The Tek-Tips staff will check this out and take appropriate action.

Reply To This Thread

Posting in the Tek-Tips forums is a member-only feature.

Click Here to join Tek-Tips and talk with other members! Already a Member? Login


Close Box

Join Tek-Tips® Today!

Join your peers on the Internet's largest technical computer professional community.
It's easy to join and it's free.

Here's Why Members Love Tek-Tips Forums:

Register now while it's still free!

Already a member? Close this window and log in.

Join Us             Close