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
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