The row source for the combo box (I called it cboCounty) bound to the field "CNTY" should be
Code:
SELECT DISTINCT County FROM tbl_Accnt_code ORDER BY County
In the after update event of the combo box (cboCounty), the code would be
Code:
Private Sub cboCounty_AfterUpdate()
Me.cboAccntCode.Requery
End Sub
And the row source for the "Accounting Code" combo box (cboAccntCode)
Code:
SELECT [Accounting Code] FROM tbl_Accnt_code WHERE [County] = Forms!frm_Expend.cboCounty ORDER BY [Accounting Code]
*** I think you were getting an error because it looks like there is a space in the field name "Accounting Code" in tbl_Expand.
Spaces and special characters in object names will cause you headaches.
Only use numbers, letters and the underscore.
If you feel you must use spaces, you must enclose the field name with brackets =>> [Accounting Code].
Examples of better names:
AccountingCode
Accounting_Code