combo box problem

T

Tom

I've read thru the last years worth of msgs, but am still having a problem with
my two combo boxes. I want the second to be tied to the first, only displaying
those divisions particular to the selected department.

Here are my tables (just a portion):

DeptID Description
------ -----------
11 City Council
13 Executive
15 Admin - General
26 Judicial
32 Admin - Police
33 Admin - Fire
35 Fire Dept.
38 Public Safety
42 Public Works

DeptID DivisionID Description
------ ---------- -----------
38 0 E-911 Communications
46 0 Fleet Maint - Garage
47 0 Public Utilities
32 0 Support Services
11 10 City Council
13 10 Mayor
15 10 Finance

I have two combo boxes:

cboDepartments

cbo Divisions

I have [Event] code in After Update for cboDepartments:

Private Sub cboDepartments_AfterUpdate()

Me.cboDivisions.RowSource = "SELECT * FROM" & _
" tblDivisions WHERE DeptID = " Me.cboDepartments &
" ORDER BY Description"
Me.cboDivisions = Me.cboDivisions.ItemData(0)

End Sub

But I can't get it to work. I keep getting a compile error.

At one time I tried something like Me.cboDivisions.Requery. That didn't work
either.

If anyone could shed some light on this, I surely would appreciate it.

Thanks in advance,

Tom
 
K

Kevin Sprinkel

I believe your missing an ampersand after the WHERE clause:

Private Sub cboDepartments_AfterUpdate()

Me.cboDivisions.RowSource = "SELECT * FROM" & _
" tblDivisions WHERE DeptID = " & _
Me.cboDepartments & " ORDER BY Description"
Me.cboDivisions = Me.cboDivisions.ItemData(0)

End Sub

HTH
Kevin Sprinkel
-----Original Message-----
I've read thru the last years worth of msgs, but am still having a problem with
my two combo boxes. I want the second to be tied to the first, only displaying
those divisions particular to the selected department.

Here are my tables (just a portion):

DeptID Description
------ -----------
11 City Council
13 Executive
15 Admin - General
26 Judicial
32 Admin - Police
33 Admin - Fire
35 Fire Dept.
38 Public Safety
42 Public Works

DeptID DivisionID Description
------ ---------- -----------
38 0 E-911 Communications
46 0 Fleet Maint - Garage
47 0 Public Utilities
32 0 Support Services
11 10 City Council
13 10 Mayor
15 10 Finance

I have two combo boxes:

cboDepartments

cbo Divisions

I have [Event] code in After Update for cboDepartments:

Private Sub cboDepartments_AfterUpdate()

Me.cboDivisions.RowSource = "SELECT * FROM" & _
" tblDivisions WHERE DeptID = " Me.cboDepartments &
" ORDER BY Description"
Me.cboDivisions = Me.cboDivisions.ItemData(0)

End Sub

But I can't get it to work. I keep getting a compile error.

At one time I tried something like
Click to expand...
Me.cboDivisions.Requery. That didn't work
 
K

Kevin Sprinkel

Tom,

Did adding the ampersand after the WHERE clause not work,
as I posted last week?

Kevin Sprinkel
-----Original Message-----
I've read thru the last years worth of msgs, but am still having a problem with
my two combo boxes. I want the second to be tied to the first, only displaying
those divisions particular to the selected department.

Here are my tables (just a portion):

DeptID Description
------ -----------
11 City Council
13 Executive
15 Admin - General
26 Judicial
32 Admin - Police
33 Admin - Fire
35 Fire Dept.
38 Public Safety
42 Public Works

DeptID DivisionID Description
------ ---------- -----------
38 0 E-911 Communications
46 0 Fleet Maint - Garage
47 0 Public Utilities
32 0 Support Services
11 10 City Council
13 10 Mayor
15 10 Finance

I have two combo boxes:

cboDepartments

cbo Divisions

I have [Event] code in After Update for cboDepartments:

Private Sub cboDepartments_AfterUpdate()

Me.cboDivisions.RowSource = "SELECT * FROM" & _
" tblDivisions WHERE DeptID = " Me.cboDepartments &
" ORDER BY Description"
Me.cboDivisions = Me.cboDivisions.ItemData(0)

End Sub

But I can't get it to work. I keep getting a compile error.

At one time I tried something like
Click to expand...
Me.cboDivisions.Requery. That didn't work
 
G

Guest

My apologies for the multiple post. (This is my third
since last week.) I'm fighting another problem at the
moment. Using my regular client (Forte Free Agent) I
can't see my own posts. I've only seen this one because
I happened to remember that I could get to the MS
newsgroups via MS using IE. I swear, it's ALWAYS
something...

I'll try it shortly, thanks.
-----Original Message-----
Tom,

Did adding the ampersand after the WHERE clause not work,
as I posted last week?

Kevin Sprinkel
-----Original Message-----
I've read thru the last years worth of msgs, but am
Click to expand...
still
having a problem with
my two combo boxes. I want the second to be tied to
Click to expand...
the
first, only displaying
those divisions particular to the selected department.

Here are my tables (just a portion):

DeptID Description
------ -----------
11 City Council
13 Executive
15 Admin - General
26 Judicial
32 Admin - Police
33 Admin - Fire
35 Fire Dept.
38 Public Safety
42 Public Works

DeptID DivisionID Description
------ ---------- -----------
38 0 E-911 Communications
46 0 Fleet Maint - Garage
47 0 Public Utilities
32 0 Support Services
11 10 City Council
13 10 Mayor
15 10 Finance

I have two combo boxes:

cboDepartments

cbo Divisions

I have [Event] code in After Update for cboDepartments:

Private Sub cboDepartments_AfterUpdate()

Me.cboDivisions.RowSource = "SELECT * FROM" & _
" tblDivisions WHERE DeptID = " Me.cboDepartments &
" ORDER BY Description"
Me.cboDivisions = Me.cboDivisions.ItemData(0)

End Sub

But I can't get it to work. I keep getting a compile error.

At one time I tried something like
Click to expand...
Me.cboDivisions.Requery. That didn't work
either.

If anyone could shed some light on this, I surely would appreciate it.

Thanks in advance,

Tom

.
Click to expand...
.
Click to expand...
 
G

Guest

That got it, thanks! (Now back to my regular reader
problem...)
-----Original Message-----
Tom,

Did adding the ampersand after the WHERE clause not work,
as I posted last week?

Kevin Sprinkel
-----Original Message-----
I've read thru the last years worth of msgs, but am
Click to expand...
still
having a problem with
my two combo boxes. I want the second to be tied to
Click to expand...
the
first, only displaying
those divisions particular to the selected department.

Here are my tables (just a portion):

DeptID Description
------ -----------
11 City Council
13 Executive
15 Admin - General
26 Judicial
32 Admin - Police
33 Admin - Fire
35 Fire Dept.
38 Public Safety
42 Public Works

DeptID DivisionID Description
------ ---------- -----------
38 0 E-911 Communications
46 0 Fleet Maint - Garage
47 0 Public Utilities
32 0 Support Services
11 10 City Council
13 10 Mayor
15 10 Finance

I have two combo boxes:

cboDepartments

cbo Divisions

I have [Event] code in After Update for cboDepartments:

Private Sub cboDepartments_AfterUpdate()

Me.cboDivisions.RowSource = "SELECT * FROM" & _
" tblDivisions WHERE DeptID = " Me.cboDepartments &
" ORDER BY Description"
Me.cboDivisions = Me.cboDivisions.ItemData(0)

End Sub

But I can't get it to work. I keep getting a compile error.

At one time I tried something like
Click to expand...
Me.cboDivisions.Requery. That didn't work
either.

If anyone could shed some light on this, I surely would appreciate it.

Thanks in advance,

Tom

.
Click to expand...
.
Click to expand...
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

combo box problem 2
combo box problem 1
Cascading Combo Boxes 1
Combo Box (1st) Populating Text Box (2nd) Field 1
Combo Box Filter 2
Linking to different tables based on selected value from a combo box 2
ltrim with multi column combo box 1
Excel 2007 VBA shape fill colour problem 0

Top