Combo box with date don't work

A

an

Access2K

In F_Main, based in T_Table, I have three sequentials
combo boxes:
CboTxt1, cboTxt2 and cboDate

Combo's code:

' *** start code ***

Private Sub cboTxt1_AfterUpdate()

Dim strSQL As String
Dim strSQLSF As String

cboTxt2 = Null
cboDate = Null

strSQL = "SELECT DISTINCT T_Table.FieldB FROM
T_Table "
strSQL = strSQL & " WHERE T_Table.FieldA = '" &
cboTxt1 & "'"
strSQL = strSQL & " ORDER BY T_Table.FieldB;"

cboTxt2.RowSource = strSQL

strSQLSF = "SELECT * FROM T_Table "
strSQLSF = strSQLSF & " WHERE T_Table.FieldA = '" &
cboTxt1 & "'"

Me!SubF_SF.LinkChildFields = "FieldA"
Me!SubF_SF.LinkMasterFields = "FieldA"
Me.RecordSource = strSQLSF
Me.Requery

End Sub
____

Private Sub cboTxt2_AfterUpdate()

Dim strSQL As String
Dim strSQLSF As String

cboDate = Null

strSQL = " SELECT DISTINCT T_Table.Date FROM T_Table "
strSQL = strSQL & " WHERE T_Table.FieldA = '" &
cboTxt1 & "' And "
strSQL = strSQL & " T_Table.FieldB = '" & cboTxt2 & "'"
strSQL = strSQL & " ORDER BY T_Table.Date;"

cboDate.RowSource = strSQL

strSQLSF = " SELECT * FROM T_Table "
strSQLSF = strSQLSF & " WHERE T_Table.FieldA = '" &
cboTxt1 & "' And "
strSQLSF = strSQLSF & " T_Table.FieldB = '" & cboTxt2
& "'"

Me!SubF_SF.LinkChildFields = ""
Me!SubF_SF.LinkMasterFields = ""

Me!SubF_SF.LinkChildFields = "FieldA;FieldB"
Me!SubF_SF.LinkMasterFields = "FieldA;FieldB"
Me.RecordSource = strSQLSF
Me.Requery

End Sub
____

Private Sub cboDate_AfterUpdate()

Dim strSQLSF As String

strSQLSF = " SELECT * FROM T_Table "
strSQLSF = strSQLSF & " WHERE T_Table.FieldA = '" &
cboTxt1 & "' And "
strSQLSF = strSQLSF & " T_Table.FieldB = '" & cboTxt2
& "' And "
strSQLSF = strSQLSF & " T_Table.Date = " & cboDate

Me!SubF_SF.LinkChildFields = ""
Me!SubF_SF.LinkMasterFields = ""

Me!SubF_SF.LinkChildFields = "FieldA;FieldB;Date"
Me!SubF_SF.LinkMasterFields = "FieldA;FieldB;Date"
Me.RecordSource = strSQLSF
Me.Requery

End Sub

' *** end code ***

In SubF_SF I have the fields, based in T_Table too.

My question is:

The cboTxt1 and cboTcxt2, works fine.
When I choose the record with date, in 3td combo, cboDate,
don't appear any record in SubF_SF and I don't know why
not.

For this I need your help, please.
Thanks in advance

an
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top