IMPEDIR ABERTURA MAIS DE UMA VEZ DO SOFTWARE
Como impedir que a pessoa abra o software ais de uma vez? sei q jah rolou aki issu, eu até sabia fazer mas agr eskeci e to meio com "PREGUIÇA" de apercurar
kd meus modos?? jah ia eskecendo, bigads dsd jah e ajudem ai plx =)
=***
=***
tenta isso ae
If App.PrevInstance Then
MsgBox "A aplicação já se encontra aberta!", vbCritical, App.EXEName
End
End If
PARA USAR ESTA FUNÇÃO VOCE PRECISA RODAR O EXECUTAVEL DE SUA APLICAÇÃO
If App.PrevInstance Then
MsgBox "Sistema Ja esta aberto!", vbCritical, App.EXEName
End
End If
Pode tentar isso tb
Dim SaveTitle as string
If App.PrevInstance Then
SaveTitle = App.Title
App.Title = "... segunda chamada ao mesmo programa."
Me.Caption = "... segunda chamada ao mesmo programa, serei fechado"
'se for a Sub Main, a linha acima, obviamente, não existe
'as linhas abaixo fecham a segunda chamada e alternam para
'a primeira
AppActivate SaveTitle
SendKeys "% R", True
End
End If
Boa sorte
Tópico encerrado , respostas não são mais permitidas