防止同一个客户端文件被重复打开的又一种方法-红尘如烟
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> 综合其它


防止同一个客户端文件被重复打开的又一种方法

发表时间:2010/8/19 评论(3) 浏览(27208)  评论 | 加入收藏 | 复制
   
摘 要:防止同一个客户端文件被重复打开的又一种方法
正 文:

在启动窗体的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


Access软件网交流QQ群(群号:198465573)
 
 相关文章
两表不重复名称统计以及所有名称统计  【宏鹏  2013/2/27】
【Access入门】查询无重复,查询唯一值的示例  【麥田  2013/3/8】
【SQL语句】SQL重复记录查询  【漏蛧尐魚℡  2013/5/9】
【Access小品】一根烟的教训--删除重复记录示例  【煮江品茶  2013/5/25】
【Access源码】ID重复统计  【漏蛧尐魚℡  2013/5/30】
常见问答
技术分类
相关资源
文章搜索
关于作者

红尘如烟

文章分类

文章存档

友情链接