Sync Combo ? am I do wrong

[Guest]

I have two combo boxes, second rowsouce based on choice from first combo box
in an Access ADP

First combo box
tblStatus
StatusID, int
Status, varchar

Second combo box
tblStatusReason
StatusReasonID, int
StatusReason, varchar
StatusID, int

Here is the code on the afterupdate event of the first combo box

Me.cboStatusReason.RowSource = "SELECT
[tblStatusReason].[StatusReasonID], [tblStatusReason].[StatusID],
[tblStatusReason].[StatusReason]" & _
" & FROM [tblStatusReason] FROM" & _
" tblStatusReason WHERE StatusID = " & Me.cboStatus & _
" ORDER BY StatusReason"
Me.cboStatusReason = Me.cboStatusReason.ItemData(0)

What am I doing wrong?????

 

[Scott McDaniel]

I have two combo boxes, second rowsouce based on choice from first combo box
in an Access ADP

First combo box
tblStatus
StatusID, int
Status, varchar

Second combo box
tblStatusReason
StatusReasonID, int
StatusReason, varchar
StatusID, int

Here is the code on the afterupdate event of the first combo box

Me.cboStatusReason.RowSource = "SELECT
[tblStatusReason].[StatusReasonID], [tblStatusReason].[StatusID],
[tblStatusReason].[StatusReason]" & _
" & FROM [tblStatusReason] FROM" & _
" tblStatusReason WHERE StatusID = " & Me.cboStatus & _
" ORDER BY StatusReason"
Me.cboStatusReason = Me.cboStatusReason.ItemData(0)

What am I doing wrong?????

Your SQL is wrong, and you don't need to "set" your second combo to anything. Change this line:

Me.cboStatusReason.RowSource = "SELECT
[tblStatusReason].[StatusReasonID], [tblStatusReason].[StatusID],
[tblStatusReason].[StatusReason]" & _
" & FROM [tblStatusReason] WHERE StatusID = " & Me.cboStatus & _
" ORDER BY StatusReason"

Leave out this line:

Me.cboStatusReason = Me.cboStatusReason.ItemData(0)

It accomplishes nothing.



Scott McDaniel
scott@takemeout_infotrakker.com
www.infotrakker.com

 

[Guest]

I now get an error that says "Invalid SQL Statement: Check the Server Filter
on the Form Record Source"

Still not sure what I am doing wrong

I have two combo boxes, second rowsouce based on choice from first combo box
in an Access ADP

First combo box
tblStatus
StatusID, int
Status, varchar

Second combo box
tblStatusReason
StatusReasonID, int
StatusReason, varchar
StatusID, int

Here is the code on the afterupdate event of the first combo box

Me.cboStatusReason.RowSource = "SELECT
[tblStatusReason].[StatusReasonID], [tblStatusReason].[StatusID],
[tblStatusReason].[StatusReason]" & _
" & FROM [tblStatusReason] FROM" & _
" tblStatusReason WHERE StatusID = " & Me.cboStatus & _
" ORDER BY StatusReason"
Me.cboStatusReason = Me.cboStatusReason.ItemData(0)

What am I doing wrong?????

Your SQL is wrong, and you don't need to "set" your second combo to anything. Change this line:

Me.cboStatusReason.RowSource = "SELECT
[tblStatusReason].[StatusReasonID], [tblStatusReason].[StatusID],
[tblStatusReason].[StatusReason]" & _
" & FROM [tblStatusReason] WHERE StatusID = " & Me.cboStatus & _
" ORDER BY StatusReason"

Leave out this line:

Me.cboStatusReason = Me.cboStatusReason.ItemData(0)

It accomplishes nothing.



Scott McDaniel
scott@takemeout_infotrakker.com
www.infotrakker.com

 

[Guest]

Ok, got it to work. What is it that an ADP doesn't like the line
continuation in the Select statement? It worked once I left everything on
one line up to the FROM portion. Thanks Scott!

I have two combo boxes, second rowsouce based on choice from first combo box
in an Access ADP

First combo box
tblStatus
StatusID, int
Status, varchar

Second combo box
tblStatusReason
StatusReasonID, int
StatusReason, varchar
StatusID, int

Here is the code on the afterupdate event of the first combo box

Me.cboStatusReason.RowSource = "SELECT
[tblStatusReason].[StatusReasonID], [tblStatusReason].[StatusID],
[tblStatusReason].[StatusReason]" & _
" & FROM [tblStatusReason] FROM" & _
" tblStatusReason WHERE StatusID = " & Me.cboStatus & _
" ORDER BY StatusReason"
Me.cboStatusReason = Me.cboStatusReason.ItemData(0)

What am I doing wrong?????

Your SQL is wrong, and you don't need to "set" your second combo to anything. Change this line:

Me.cboStatusReason.RowSource = "SELECT
[tblStatusReason].[StatusReasonID], [tblStatusReason].[StatusID],
[tblStatusReason].[StatusReason]" & _
" & FROM [tblStatusReason] WHERE StatusID = " & Me.cboStatus & _
" ORDER BY StatusReason"

Leave out this line:

Me.cboStatusReason = Me.cboStatusReason.ItemData(0)

It accomplishes nothing.



Scott McDaniel
scott@takemeout_infotrakker.com
www.infotrakker.com