I have a subform with 'tDetail' as a control source.
They're strung together by a field named MA_ID.
This works fine.
I have a field within the subform that I want to update via a combobox located on the same subform.
The field I want to update is currentissue. It's a field on the tDetail table.
There is another field on the tDetail table called SubIssueReason.
Based on the selection chosen in currentissue, I want to display certain possibilities in the SubIssueReason combobox. I have done this and it works fine. Here's how I'm establishing rowsource in the combobox:
Expand|Select|Wrap|Line Numbers
- Private Sub CurrentIssue_AfterUpdate()
- Dim strSQL As String
- If Not IsNull(Me.CurrentIssue) Then
- Me.IssueSubReason = ""
- strSQL = "SELECT qissuesubreason.issuesubreason " _
- & "FROM qissuesubreason " _
- & "WHERE " _
- & "qissuesubreason.issuecode='" & Me.CurrentIssue & "' " _
- & "ORDER BY qissuesubreason.issuesubreason"
- Debug.Print strSQL
- MsgBox strSQL
- Me.IssueSubReason.RowSource = strSQL
- End If
- End Sub
I understand this question has been asked and answered about a thousand times and this is not the freshest of problems, but I can't figure out why this thing isn't working for me, and I've been on it for three days. So I humbly beg your indulgence. I have read Rabbit's overview from 07 on this and have been unable to figure out where I'm going wrong.