I probably just need a second set of eyes on this, but I am populating a combo box with result from a query based on two criteria (Report type and Constraint type). I have the following, but it isn't throwing any error. It just does not populate the combobox.
Code:
Public Sub cboConstraint_AfterUpdate()
Dim strTrendSQL As String
Dim strParetoSQL As String
Dim strConEventReportSQL As String
Dim strConEventSummarySQL As String
strParetoSQL = ""
strConEventReportSQL = ""
strConEventSummarySQL = ""
Me.cboConValue.RowSource = ""
If Me.cboConstraint.Value = "Specific Date to Present" Then
Me.fraConValue.Visible = False
Me.cboConValue.Visible = False
Me.txtDate.Visible = True
Me.fraDate.Visible = True
Else
Me.fraConValue.Visible = True
Me.cboConValue.Visible = True
Me.txtDate.Visible = False
Me.fraDate.Visible = False
End If
Select Case Me.fraReport.Value
Case 1
Select Case Me.cboConstraint.Value
Case "Work Order"
strConEventReportSQL = "SELECT WorkOrderNo, QualityNo FROM RCAData1 ORDER BY RCAData1.WorkOrderNo;"
Me.cboConValue.ColumnCount = 2
Me.cboConValue.RowSource = strConEventReportSQL
Me.cboConValue.Requery
Case "Quality"
strConEventReportSQL = "SELECT QualityNo, WorkOrderNo FROM RCAdata1 ORDER BY RCAData1.QualityNo;"
Me.cboConValue.ColumnCount = 2
Me.cboConValue.RowSource = strConEventReportSQL
Me.cboConValue.Requery
End Select
Case 2
Select Case Me.cboConstraint.Value
Case "Event Type"
strConEventSummarySQL = "SELECT DISTINCT Type FROM RCAData1;"
Me.cboConValue.ColumnCount = 1
Me.cboConValue.RowSource = strConEventSummarySQL
Me.cboConValue.Requery
Case "Event Category"
strConEventSummarySQL = "SELECT DISTINCT Category FROM RCAData1;"
Me.cboConValue.ColumnCount = 1
Me.cboConValue.RowSource = strConEventSummarySQL
Me.cboConValue.Requery
Case "Work Area/Cell"
strConEventSummarySQL = "SELECT DISTINCT AreaCell FROM RCAData1;"
Me.cboConValue.ColumnCount = 1
Me.cboConValue.RowSource = strConEventSummarySQL
Me.cboConValue.Requery
End Select
Case 3
Call ExportRecordsetToExcel
Case 4
Call ExportRecordsetToExcel
End Select
End Sub
Public Sub cboConValue_AfterUpdate()
Dim strEventReportSQL As String
Dim strEventSummarySQL As String
Select Case Me.fraReport.Value
Case 1
Select Case Me.cboConstraint.Value
Case "Work Order"
strEventReportSQL = "SELECT * FROM RCAData1 WHERE RCAData.WorkOrderNo = '" & Me.cboConValue.Value & "';"
Case "Quality"
strEventReportSQL = "SELECT * FROM RCAData1 WHERE RCAData1.QualityNo = '" & Me.cboConValue.Value & "';"
End Select
Case 2
Select Case Me.cboConstraint.Value
Case "Event Type"
strEventSummarySQL = "SELECT * FROM RCAData1 WHERE RCAData1.Type = '" & Me.cboConValue.Value & "';"
Case "Event Category"
strEventSummarySQL = "SELECT * FROM RCAData1 WHERE RCAData1.Category = '" & Me.cboConValue.Value & "';"
Case "Work Area/Cell"
strEventSummarySQL = "SELECT * FROM RCAData1 WHERE RCAData1.AreaCell = '" & Me.cboConValue.Value & "';"
End Select
End Select
End Sub
It seems like the more I learn, the more I miss the obvious. Anyone one see what I am missing?