On load Event code prevents users assess to my main form

[billcute]

I have a form (frmSewer) which bounded to tblSewer. The code at the On Load Event is designed to open frmSewer is appropriate date is updated into tblFilingdatesat the end of each quarter.

In other words, when a quarter ends, the Administrator must file a quarterly report, once this report id filed, he MUST complete the process by updating tblFilingDates with the date the report was filed.

Everything seems to work in year 2006 until we entered into the year 2007. Suddenly the db locked out....and the only way to unlock the form and keep it open is only when there is a date entry in tblFilingDates.DateFiled.

My On Load Event code is bypassing the date entry field or not reading it at all.
The same code is also duplicated at the AfterUpdate Event of txtPermitNo whic is also malfunctioning as dexcribed above..

Below is the On Load Event code of frmSewer.

Private Sub Form_Load()
    Dim iQQ As Integer
    Dim iYY As Integer
 
    'Get current quarter/year based on system date
    iQQ = DatePart("q", Date)
    iYY = DatePart("yyyy", Now())
    'If current date is not last of last quarter
    If DateIsLastQuarterDate(Now()) = False Then
        'If quarter 1 then for previous quarter, we need to subtract the  year also
        If iQQ = 1 Then
            iQQ = 4
            iYY = iYY - 1
        Else
            iQQ = iQQ - 1
        End If
    End If
    'Call the function GracePeriodValidation to see if we are in within the grace period
    'If not then throw an error
    If GracePeriodValidation(Now(), iQQ, iYY) = False Then
        MsgBox "You cannot proceed as no filing date has been entered" & vbCrLf & _
               "for quarter " & iQQ & " " & iYY & "." & vbCrLf & _
               "Please contact your administrator.", vbOKOnly + vbExclamation, FRM_TITLE
        DoCmd.Close
    End If
End Sub

' ************

[MMcCarthy]

Bill I'm uploading the database here for the convenience of other experts.

Mary

[billcute]

Bill I'm uploading the database here for the convenience of other experts.

Mary

Thanks for assisting in this regard.
Bill

[nico5038]

Hmm, are we having here THE billcute from EE ?<LOL>

I found in the procedure GracePeriodValidation this code giving you the problem:

    'Check current date is within the filing date period
    'Return false if invalid, TRUE otherwise
    dValDate = DateValue(dValDate)
    Debug.Print dValDate, DateAdd("d", GRACE_PERIOD, dLastDate)
    If dValDate >= dLastDate And dValDate <= DateAdd("d", GRACE_PERIOD, dLastDate) Then
        GracePeriodValidation = True
    Else
        GracePeriodValidation = False
    End If

as the graceperiod is set to 14 it won't work after the 14th of this month....

Nic;o)

[MMcCarthy]

Bill,

Does Nico's reply solve your problem or do you want me to keep working on it.

Mary