J
Janis
There is a syntax error, it stops on the On error go to errorhandler line.
At one point there was a mention about needing a select in the case but now
it doesn't do that.
THANKS!
Sub optCkforDupes_Click()
Dim nResult As Long
Debug.Print frRptDate
Debug.Print toRptDate
On Error GoTo ErrHandler
Fprocess1 = False
On Error GoToErrHandler
If optCkforDupes.Value = True Then
nResult = MsgBox(prompt:="From: " & FrReptDate & vbNewLine & "To: " &
ToReptDate, Buttons:=bvOKCancel, Title:="report Date")
End If
If nResult = vbOK Then
Call createXLdb.CkforDupes
Fprocess1 = True
End If
Exit Sub
ErrHandler:
Case 9
Resume
Case Else
MsgBox Err.Number & " " & Err.Description
End Select
End Sub
At one point there was a mention about needing a select in the case but now
it doesn't do that.
THANKS!
Sub optCkforDupes_Click()
Dim nResult As Long
Debug.Print frRptDate
Debug.Print toRptDate
On Error GoTo ErrHandler
Fprocess1 = False
On Error GoToErrHandler
If optCkforDupes.Value = True Then
nResult = MsgBox(prompt:="From: " & FrReptDate & vbNewLine & "To: " &
ToReptDate, Buttons:=bvOKCancel, Title:="report Date")
End If
If nResult = vbOK Then
Call createXLdb.CkforDupes
Fprocess1 = True
End If
Exit Sub
ErrHandler:
Case 9
Resume
Case Else
MsgBox Err.Number & " " & Err.Description
End Select
End Sub