M
Mary Beth
I have created a report to return data such as 'Total Referrals' in a date
range. I borrowed the attached VBA code from a collegue and tweeked it for
my use, but now don't know how to create the pop up box to enter your 'Start
date' and End Date'. Could someone help me with this problem?
Private Sub getSQL(myStartDate As Date, myEndDate As Date)
Dim sSQL As String
Me.Text1.Caption = "Reporting Period: " & myStartDate & " to " & myEndDate
sSQL = _
"SELECT Count(ConsumerID) AS TotalofConsumerID FROM qryConsumerApps
WHERE dtmReferralDt>=#" _
& myStartDate & "# AND dtmReferralDt<=#" & myEndDate & "#"
Me.Text2.Caption = getNumber(sSQL)
etc, etc.....
Thanks in advance
range. I borrowed the attached VBA code from a collegue and tweeked it for
my use, but now don't know how to create the pop up box to enter your 'Start
date' and End Date'. Could someone help me with this problem?
Private Sub getSQL(myStartDate As Date, myEndDate As Date)
Dim sSQL As String
Me.Text1.Caption = "Reporting Period: " & myStartDate & " to " & myEndDate
sSQL = _
"SELECT Count(ConsumerID) AS TotalofConsumerID FROM qryConsumerApps
WHERE dtmReferralDt>=#" _
& myStartDate & "# AND dtmReferralDt<=#" & myEndDate & "#"
Me.Text2.Caption = getNumber(sSQL)
etc, etc.....
Thanks in advance