Sync Multiple Combo Boxes

[Guest]

I have four Combo Boxes:
Customers, Contacts, Project Managers, and Superintendents

The other three Combo Box values are based on what is selected in Customers
using a SQL statement. For example The Contancts SQL statement is:

SELECT [Customer Contacts Table].CC_CustomerContactID, [Customer Contacts
Table].[CC_Contact Person], [Customer Contacts Table].CC_Company FROM
[Customer Contacts Table] WHERE ((([Customer Contacts
Table].CC_Company)=Forms![Job Work Order Form]!Customer)) ORDER BY [Customer
Contacts Table].[CC_Contact Person];

I know that I need code in the Customers Field. This is what I have:

Private Sub Customer_AfterUpdate()
Me.Contact_Person = Null
Me.Contact_Person.Requery
Me.Contact_Person = Null
End Sub

How can I alter the code to requery all three fields instead of just the
one? I tried adding more After Event Codes using the other field names and
the computer exploded!

 

[Guest]

I'm a dork...

I changed my code to this and it appears to work:

Private Sub Customer_AfterUpdate()
Me.Contact_Person = Null
Me.Contact_Person.Requery
Me.Contact_Person = Null
Me.Project_Manager = Null
Me.Project_Manager.Requery
Me.Project_Manager = Null
Me.Project_Superintendent = Null
Me.Project_Superintendent.Requery
Me.Project_Superintendent = Null
End Sub

If one of the pros could confirm though, that would be great!

 

[Guest]

You don't the to set the value of the combos to null before the requeries,
only after and only if you want them empty after the requery. Other than
that, you got it.

I'm a dork...

I changed my code to this and it appears to work:

Private Sub Customer_AfterUpdate()
Me.Contact_Person = Null
Me.Contact_Person.Requery
Me.Contact_Person = Null
Me.Project_Manager = Null
Me.Project_Manager.Requery
Me.Project_Manager = Null
Me.Project_Superintendent = Null
Me.Project_Superintendent.Requery
Me.Project_Superintendent = Null
End Sub

If one of the pros could confirm though, that would be great!

I have four Combo Boxes:
Customers, Contacts, Project Managers, and Superintendents

The other three Combo Box values are based on what is selected in Customers
using a SQL statement. For example The Contancts SQL statement is:

SELECT [Customer Contacts Table].CC_CustomerContactID, [Customer Contacts
Table].[CC_Contact Person], [Customer Contacts Table].CC_Company FROM
[Customer Contacts Table] WHERE ((([Customer Contacts
Table].CC_Company)=Forms![Job Work Order Form]!Customer)) ORDER BY [Customer
Contacts Table].[CC_Contact Person];

I know that I need code in the Customers Field. This is what I have:

Private Sub Customer_AfterUpdate()
Me.Contact_Person = Null
Me.Contact_Person.Requery
Me.Contact_Person = Null
End Sub

How can I alter the code to requery all three fields instead of just the
one? I tried adding more After Event Codes using the other field names and
the computer exploded!

 

[Guest]

K. Thanks again!

You don't the to set the value of the combos to null before the requeries,
only after and only if you want them empty after the requery. Other than
that, you got it.

I'm a dork...

I changed my code to this and it appears to work:

Private Sub Customer_AfterUpdate()
Me.Contact_Person = Null
Me.Contact_Person.Requery
Me.Contact_Person = Null
Me.Project_Manager = Null
Me.Project_Manager.Requery
Me.Project_Manager = Null
Me.Project_Superintendent = Null
Me.Project_Superintendent.Requery
Me.Project_Superintendent = Null
End Sub

If one of the pros could confirm though, that would be great!

I have four Combo Boxes:
Customers, Contacts, Project Managers, and Superintendents

The other three Combo Box values are based on what is selected in Customers
using a SQL statement. For example The Contancts SQL statement is:

SELECT [Customer Contacts Table].CC_CustomerContactID, [Customer Contacts
Table].[CC_Contact Person], [Customer Contacts Table].CC_Company FROM
[Customer Contacts Table] WHERE ((([Customer Contacts
Table].CC_Company)=Forms![Job Work Order Form]!Customer)) ORDER BY [Customer
Contacts Table].[CC_Contact Person];

I know that I need code in the Customers Field. This is what I have:

Private Sub Customer_AfterUpdate()
Me.Contact_Person = Null
Me.Contact_Person.Requery
Me.Contact_Person = Null
End Sub

How can I alter the code to requery all three fields instead of just the
one? I tried adding more After Event Codes using the other field names and
the computer exploded!