S
sexton75 via AccessMonster.com
I have a continuous form that has a combo box based on another field. That
is not the problem. The weird thing is that when I am in the form adding
data, the values display properly based on their corresponding field.
When I close the form and reopen it, only some of the answers are provided
even though the data is in the table. The code is currently pasted in the
current and open part of the form, but it is not working. Can anyone help?
My code is as follows:
Private Sub Form_Current()
Dim strSQL As String
If IsNull(Me.Answer) Then
Me.Answer.RowSource = "sTbl_responses"
Else
strSQL = "SELECT sTbl_Responses.AnswerID, sTbl_Responses.Answer,
sTbl_Responses.ReponseTypeID_fk FROM sTbl_Responses WHERE (((sTbl_Responses.
ReponseTypeID_fk)=[Forms]![Form1]![ResponseTypeID_fk]));"
Me.Answer.RowSource = strSQL
End If
End Sub
is not the problem. The weird thing is that when I am in the form adding
data, the values display properly based on their corresponding field.
When I close the form and reopen it, only some of the answers are provided
even though the data is in the table. The code is currently pasted in the
current and open part of the form, but it is not working. Can anyone help?
My code is as follows:
Private Sub Form_Current()
Dim strSQL As String
If IsNull(Me.Answer) Then
Me.Answer.RowSource = "sTbl_responses"
Else
strSQL = "SELECT sTbl_Responses.AnswerID, sTbl_Responses.Answer,
sTbl_Responses.ReponseTypeID_fk FROM sTbl_Responses WHERE (((sTbl_Responses.
ReponseTypeID_fk)=[Forms]![Form1]![ResponseTypeID_fk]));"
Me.Answer.RowSource = strSQL
End If
End Sub