On Aug 27, 12:43*pm, "Larry Linson" <boun...@localhost.notwrote:
Precise, concise questions usually get the best answers. *In your case,a
precise question would have mentioned how you use the values from the combo
boxes. *As it is, the answers to your questions would be:
*What is wrong?
Almost certainly, your implementation.
*What must I fix?
As you only described, vaguely, what forms, controls, and subjects, it would
be difficult to be more specific.
Would you care to clarify? *On the assumption that you tell us what you
have, in detail, that is going wrong, I would make a further assumption that
someone here can offer useful suggestions.
*Larry Linson
*Microsoft Office Access MVP
"zufie" <john.marru...@illinois.govwrote in message
news:65**********************************@b2g2000p rf.googlegroups.com...
I have two drop down boxes, for the fields "County" and "Category" on
a form which when selected for the respective County and Category will
return Agency Names of Agencies within the respective County and
Category.
For example, when I select Cook County and Cardiovascular disease I
expect the query(ies) behind the form to return Names of Agencies in
Cook County that provide services regarding Cardiovascular care.
However, what is returned are Names of Agencies outside of the county
and category selected.
What is wrong? What must I fix?
Thanks,
John- Hide quoted text -
- Show quoted text -
Sorry, here is my VBA code for all the controls (2 combo boxes and 1
checkbox)
John
Option Compare Database
Option Explicit
Private Sub Check13_AfterUpdate()
If Me![Check13] Then
Me![Combo3].Enabled = False
Me![Chicago Zip].Enabled = True
Else
Me![Combo3].Enabled = True
Me![Chicago Zip].Enabled = False
End If
End Sub
Private Sub ToggleLink_Click()
' Me![Combo3] County
' Me![Combo9] Category
Me.Requery
If Me.NewRecord Or (Me![Check13] And IsNull(Me![Combo3]) And IsNull(Me!
[Combo9])) Or _
(Me![Check13] And IsNull(Me![Chicago Zip]) And
IsNull(Me![Combo9])) Then
Forms![Sub: Agency Lookup].DataEntry = True
Else
If Me![Check13] Then
If IsNull(Me![Combo9]) Then
Forms![Sub: Agency Lookup].RowSource = "qry Agencies by Zip"
ElseIf IsNull(Me![Chicago Zip]) Then
DoCmd.OpenForm "Sub: Agency Lookup by Category", , , ""
Else
DoCmd.OpenForm "Sub: Agency Lookup by Zip Category", , , ""
End If
Else
If IsNull(Me![Combo9]) Then
DoCmd.OpenForm "Sub: Agency Lookup by County", , , ""
ElseIf IsNull(Me![Combo3]) Then
DoCmd.OpenForm "Sub: Agency Lookup by Category", , , ""
Else
DoCmd.OpenForm "Sub: Agency Lookup by County Category", , , ""
End If
End If
End If
End Sub