如何避免程式重复执行?(侦测是否存在前一副本,若有,则结束目前新启动的程式)。使用者在启动程式后,有时会将程式缩小在工作列上,之后要用时,又会重新启动一次程式,资料库程式有时会因此造成资料错乱!若您不希望使用者重复启动程式,您可以使用APP物件来判断,方法如下:
PrivateSubForm_Load()
IfApp.PrevInstanceThen检视前一版本
MsgBox”此程式已经在执行中!”,48
End
EndIf
EndSub->
如何避免程式重复执行?(侦测是否存在前一副本,若有,则结束目前新启动的程式)。使用者在启动程式后,有时会将程式缩小在工作列上,之后要用时,又会重新启动一次程式,资料库程式有时会因此造成资料错乱!若您不希望使用者重复启动程式,您可以使用APP物件来判断,方法如下:
PrivateSubForm_Load()
IfApp.PrevInstanceThen检视前一版本
MsgBox”此程式已经在执行中!”,48
End
EndIf
EndSub->