report based on combo box selection

  • Thread starter Thread starter rkg
  • Start date Start date
R

rkg

I got some help regarding this report and I used the delimiter for
date. My combo box pops up and lists all the available dates. When I
click on the date i get the error message of "Date not found". Here is
my code:

Private Sub Combo7_AfterUpdate()
Dim strCriteria As String
strCriteria = "[entry_date]" = "#&Me.Combo7&#"
If Not IsNull(DLookup("entry_date", "qscale08", strCriteria)) Then
DoCmd.OpenReport "rscaletickets08", WhereCondition:=strCriteria
Else
MsgBox "Date not found", vbInformation, "Warning"
End If
End Sub

Private Sub Form_Current()
Combo7 = "entry_date"

End Sub
Should I have this code under the on click section?

Thanks,
rkg
 
I got some help regarding this report and I used the delimiter for
date. My combo box pops up and lists all the available dates. When I
click on the date i get the error message of "Date not found". Here is
my code:

Private Sub Combo7_AfterUpdate()
Dim strCriteria As String
strCriteria = "[entry_date]" = "#&Me.Combo7&#"
If Not IsNull(DLookup("entry_date", "qscale08", strCriteria)) Then
DoCmd.OpenReport "rscaletickets08", WhereCondition:=strCriteria
Else
MsgBox "Date not found", vbInformation, "Warning"
End If
End Sub

Private Sub Form_Current()
Combo7 = "entry_date"

End Sub
Should I have this code under the on click section?

Thanks,
rkg
Click to expand...

Your quotes are positioned incorrectly.

strCriteria = "[entry_date] = #" & Me.Combo7 & "#"
 
I got some help regarding this report and I used the delimiter for
date. My combo box pops up and lists all the available dates. When I
click on the date i get the error message of "Date not found". Here is
my code:
Click to expand...
Private Sub Combo7_AfterUpdate()
Dim strCriteria As String
    strCriteria = "[entry_date]" = "#&Me.Combo7&#"
If Not IsNull(DLookup("entry_date", "qscale08", strCriteria)) Then
    DoCmd.OpenReport "rscaletickets08", WhereCondition:=strCriteria
    Else
    MsgBox "Date not found", vbInformation, "Warning"
    End If
End Sub
Click to expand...
Private Sub Form_Current()
Combo7 = "entry_date"
Click to expand...
End Sub
Should I have this code under the on click section?
Click to expand...
Thanks,
rkg
Click to expand...

Your quotes are positioned incorrectly.

strCriteria = "[entry_date] = #" & Me.Combo7 & "#"- Hide quoted text -

- Show quoted text -
Click to expand...

Thanks worked great.

rkg
 
Back
Top