This is what I have
Table A (Actions)
Approved
Pending
ect...
Table B (Reasons)
N/A
Denied
Waiting paperwork
Corrections
Bad Credit
ect...
I then put Table A and B in to a Query
Qur A
Field1= Field2 (both dropdowns from Table A and B using Lookup wizard)
Denied=Bad Credit
Approved= N/A
Pending= Waiting Paperwork
Pending= Corrections
Ect...
I have another Table listed as All Data
Fields inclued Date,Action,Reason,remarks, ect.. As you can see Action and Reason show up again based on Qur A. I then created a form from the tabl All Data using wizard.
I put in the fallowing code under Action After update.
Expand|Select|Wrap|Line Numbers
- Private Sub Action_AfterUpdate()
- On Error Resume Next
- Reason.RowSource = "Select [Qur A].Reason " & _
- "FROM [Qur A] " & _
- "WHERE [Qur A].Action_Type = '" & Action_Type.Value & "' " & _
- "ORDER BY [Qur A].Reason;"
- End Sub
Expand|Select|Wrap|Line Numbers
- Row Source: SELECT DISTINCT [qurAction Type vs Reason].[Action Type] FROM [qurAction Type vs Reason] ORDER BY [qurAction Type vs Reason].[Action Type];
But when I click on Action all I get is numbers.