Download Dynamic Mass Marketing Processor

Private Sub Close_Click()
On Error GoTo Err_Close_Click
DoCmd.Close
Exit_Close_Click:
Exit Sub
Err_Close_Click:
MsgBox Err.Description
Resume Exit_Close_Click
End Sub
Private Sub Form_Load()
Dim TheString As String
If [Doc_SaleService] = "Sales" Then
TheString = "This document will select all sales records from " &
[Doc_Range_Start] & " days ago to " & [Doc_Range_End] & " days ago"
Else
TheString = "This document will select all service records from " &
[Doc_Range_Start] & " days ago to " & [Doc_Range_End] & " days ago"
End If
If [Doc_Progress] = -1 Then
TheString = TheString & " with progressive building." & vbCrLf &
vbCrLf
Else
TheString = TheString & " with out progressive building." & vbCrLf &
vbCrLf
End If
65