MTS to AVI Converter: Troubleshooter of Error: Date range

Monday, September 26, 2016

Troubleshooter of Error: Date range

Date range

My code below is not working exactly as hoped.

I want the report to display only the records for the selected month.
But currently id also shows records prior to the Start Date.
Also If I select February (which of course is past) I want to see the records to February of next year.

Private Sub Command229_Click()
Dim dtmStart As Date
Dim dtmEnd As Date
Dim strCriteria As String
Dim intMonth As Integer

intMonth = Me.Frame188
If intMonth = 13 Then
GoTo Skip
End If

' get first of current month
dtmStart = DateSerial(2000, 1, 31)

' get day following last day of selected month, adjusting by year
dtmEnd = DateSerial(Year(VBA.Date) + IIf(intMonth < Month(VBA.Date), 1, 0), intMonth + 1, 1)

' build criteria string expression
strCriteria = "[MaxOfCalDueDate]>=#" & Format(dtmStart, "yyyy-mm-dd") & "# " & _
"And [MaxOfCalDueDate] < #" & Format(dtmEnd, "yyyy-mm-dd") & "#"

Skip:
' open report in print preview
DoCmd.OpenReport "Copy of rptCalibrationDueReport", View:=acViewPreview, WhereCondition:=strCriteria

End Sub

Anwsers to the Problem Date range

Download Error Fixer for Free Now

Try this version:

Private Sub Command229_Click()
    Dim lngYear As Long
    Dim lngMonth As Long
    Dim strCriteria As String

    lngMonth = Me.Frame188
    If intMonth < 13 Then
        lngYear = Year(Date) - (lngMonth < Month(Date))
        ' build criteria string expression
        strCriteria = "Month([MaxOfCalDueDate])=" & lngMonth & _
            " AND Year([MaxOfCalDueDate])=" & lngYear
    End If

    ' open report in print preview
    DoCmd.OpenReport "Copy of rptCalibrationDueReport", View:=acViewPreview, WhereCondition:=strCriteria
End Sub

Machine Throttling

Click the Start button.
In the Search box, type "regedit" (without quotes) and press Enter.
Look for the following registry key: "HKEY_LOCAL_MACHINE\SOFTWARE\ Microsoft\ SQMClient\Windows\DisabledSessions".
On the right window pane, delete the subkey: "Machine Throttling".
Restart your system.