在启动窗体的Open事件或Load事件中调用以下代码:
Private Sub Form_Open(Cancel As Integer)
Dim rst As Object 'ADODB.Recordset
Dim intCounter As Integer
Set rst = CurrentProject.Connection.OpenSchema(adSchemaProviderSpecific, , "{947bb102-5d43-11d1-bdbf-00c04fb92675}")
Do Until rst.EOF
intCounter = intCounter + 1
rst.MoveNext
Loop
Set rst = Nothing
If intCounter > 1 Then
MsgBox "不允许重复运行程序!", vbExclamation
Cancel = True
Quit
End If
End Sub
|