[Resolvido]Limitar período em campo de parametro em formulario

Tenho um formulário com dois campos para inserção de parâmetro de data, sendo datainicial e datafinal.

Gostaria incluir um código para não permitir a inserção de intervalo maior que 7 dias. Como poderia fazer?

Criquio,

Tenho um botão com o codigo abaixo e não consegui inserir sua instrução:
Private Sub Command4_Click()

Dim stDocName As String
Dim accobj As AccessObject
On Error GoTo Err_Command4_Click

stDocName = "RlpGeral01"


'This function closes the report if the report is open and then re-opens the report.
Set accobj = Application.CurrentProject.AllReports.Item(stDocName)
If accobj.IsLoaded Then
If accobj.CurrentView = acCurViewPreview Then
DoCmd.Close acReport, stDocName
DoCmd.OpenReport stDocName, acPreview
End If
Else

DoCmd.OpenReport stDocName, acPreview

' Form.Visible = False
DoCmd.Close acForm, "FrmRelatorioGeral"
DoCmd.Minimize


End If


Exit_Command4_Click:
Exit Sub

Err_Command4_Click:
MsgBox Err.Description
Resume Exit_Command4_Click

End Sub

Tente assim:

Private Sub Command4_Click()

Dim stDocName As String
Dim accobj As AccessObject
On Error GoTo Err_Command4_Click

stDocName = "RlpGeral01"

'This function closes the report if the report is open and then re-opens the report.
Set accobj = Application.CurrentProject.AllReports.Item(stDocName)

If DateDiff("d", Me.datainicial, Me.datafinal) > 7 Then
        MsgBox "O intervalo não pode ser maior do que 7 dias.", vbCritical, "Atenção"
        Me.dainicial.SetFocus
Else

        If accobj.IsLoaded Then
                If accobj.CurrentView = acCurViewPreview Then
                        DoCmd.Close acReport, stDocName
                        DoCmd.OpenReport stDocName, acPreview
               End If
        Else

               DoCmd.OpenReport stDocName, acPreview

               ' Form.Visible = False
               DoCmd.Close acForm, "FrmRelatorioGeral"
               DoCmd.Minimize

        End If
End If

Exit_Command4_Click:
Exit Sub

Err_Command4_Click:
MsgBox Err.Description
Resume Exit_Command4_Click

End Sub

resolvido. ótimo.