J
Janis
My form works. If i pick an option it calls the procedure. There are
several problems. One is after I choose cancel it closes the form but excel
doesn't come back. I have to force quit Excel. everything in the menu is
grayed out. I think the form is still running. How do I close it out?
Thanks, for your help. I'm almost done with this.
This procedure calls my form:
-------
Public Sub LoadProcessChoices()
ProcessChoices.Show
End Sub
--------
These are all the procedures in my form
Private Sub CkforDupes_Click()
End Sub
Private Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub cmdOkay_Click()
Dim nResult As Long
If optCkforDupes.Value = True Then
nResult = MsgBox(prompt:="From: " & frRptDate & vbNewLine & "To: " &
toRptDate, Buttons:=bvOKCancel, Title:="report Date")
If nResult = vbOK Then
Call SSPproject.createXLdb1.deleteDateRow1
Call SSPproject.createXLdb1.CkforDupes
End If
ElseIf optSaveIndesign.Value = True Then
Call SSPproject.saveIndesign.saveIndesign
ElseIf optReformatDepts.Value = True Then
Call SSPproject.ReformatDepts.SortDivDept
Call SSPproject.ReformatDepts.HideCellsNtoX
End If
End Sub
Private Sub ReformatDepts_Click()
End Sub
Private Sub SaveIndesign_Click()
End Sub
Private Sub optSaveIndesign_Click()
End Sub
Private Sub UserForm_Click()
End Sub
several problems. One is after I choose cancel it closes the form but excel
doesn't come back. I have to force quit Excel. everything in the menu is
grayed out. I think the form is still running. How do I close it out?
Thanks, for your help. I'm almost done with this.
This procedure calls my form:
-------
Public Sub LoadProcessChoices()
ProcessChoices.Show
End Sub
--------
These are all the procedures in my form
Private Sub CkforDupes_Click()
End Sub
Private Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub cmdOkay_Click()
Dim nResult As Long
If optCkforDupes.Value = True Then
nResult = MsgBox(prompt:="From: " & frRptDate & vbNewLine & "To: " &
toRptDate, Buttons:=bvOKCancel, Title:="report Date")
If nResult = vbOK Then
Call SSPproject.createXLdb1.deleteDateRow1
Call SSPproject.createXLdb1.CkforDupes
End If
ElseIf optSaveIndesign.Value = True Then
Call SSPproject.saveIndesign.saveIndesign
ElseIf optReformatDepts.Value = True Then
Call SSPproject.ReformatDepts.SortDivDept
Call SSPproject.ReformatDepts.HideCellsNtoX
End If
End Sub
Private Sub ReformatDepts_Click()
End Sub
Private Sub SaveIndesign_Click()
End Sub
Private Sub optSaveIndesign_Click()
End Sub
Private Sub UserForm_Click()
End Sub