How do I stop multiple instances of my application from executing.

[rarubio1]

I need to multiple instances of my application from executing. I read a prior thread and used their sample code:

If App.PrevInstance Then
Dim S As String
S = Caption
Caption = "Something else..."
AppActivate S
Unload Me
Else
'start program normally
End If

BUT, that did not work. Could someone please HELP!!!!

Thanks,
RR

 

[btaber]

Private Sub Form_Load()
If App.PrevInstance Then
MsgBox "There Is Another Instance Of This" & vbCrLf & _
" Program Running At This Time.", vbInformation, "UnLoading"
End
End If
End Sub


Works for me...

 

[rarubio1]

This worked but not in the Form_load procedure. I had to place the code in the Form_Initialize procedure.

Thanks!

 

[btaber]

No problem. Yea, depends on what you have happening on form load.

Brian