3 option buttons, okay, cancel, NEED the form to stay up

[Janis]

I need some help on a form. I have 3 option buttons and an "okay" and
"cancel".
If I click one of the options and "okay" it fires. If I first click cancel
then it cancels.
The problem is if I click one of the options and okay and it runs then the
form closes. I need my form to stay up. I need to be able to process all 3
options at the users pace and then be able to close the form separately.

Any hints to get me started would be appreciated. This is my first form.
thanks,
-----

Private Sub cmdCancel_Click()
Unload Me
End Sub

Private Sub cmdOkay_Click()
Dim nResult As Long
If optCkforDupes.Value = True Then

Call SSPproject.createXLdb1.deleteDateRow1
Call SSPproject.createXLdb1.CkforDupes

End If
If optSaveIndesign.Value = True Then
Call SSPproject.saveIndesign.saveIndesign
End If
If optReformatDepts.Value = True Then
Call SSPproject.ReformatDepts.SortDivDept
Call SSPproject.ReformatDepts.HideCellsNtoX
End If

End Sub

 

[stevebriz]

Here is one idea,
you can put falg for each process to say if it has been complete of
not and when the 3 process are complete then
Eg.
put in your form_initialize
Dim process1 as boolean
Dim process2 as boolean
Dim process3 as boolean

( Note if the you are calling other subs for each of the process put
the Dim's in the declarations area)

process1 =false
process2 =false
process3 = false


Then at the ned of each process set the process(1or 2 or 3) =true
eg: at eh end of process1 put process1=true

Put this in the okay
If process1.value = true & process2.value=true & process3.value =true
then unload me

Let me know if I misunderstood you.

 

[Janis]

thanks, I'll try it!

Here is one idea,
you can put falg for each process to say if it has been complete of
not and when the 3 process are complete then
Eg.
put in your form_initialize
Dim process1 as boolean
Dim process2 as boolean
Dim process3 as boolean

( Note if the you are calling other subs for each of the process put
the Dim's in the declarations area)

process1 =false
process2 =false
process3 = false


Then at the ned of each process set the process(1or 2 or 3) =true
eg: at eh end of process1 put process1=true

Put this in the okay
If process1.value = true & process2.value=true & process3.value =true
then unload me

Let me know if I misunderstood you.