[已解决]运行时错误3211.如何循环出错处理？或如何检测表被使用锁定？

zww3008

我的要求是：

生成表查询并使用表，默认生成表LSB1，如果该表已被其他用户或其他窗体使用，则生成并使用LSB2，如果LSB2也被使用中，则成并使用LSB3，依此类推......

我的代码是：
=================
声明节声明
Dim StrLSB As String
----------------------------

Sub AllSub(PID As Integer)
    Dim Str1 As String
   ' Dim StrLSB As String
    Dim i As Integer
    i = 1
ReCreateLSB:
On Error GoTo Err_AllSub

    StrLSB = "LSB" & i
    Str1 = "SELECT CategoryID INTO " & StrLSB & " FROM tblHWCategory WHERE ParentID=" + CStr(PID)
    DoCmd.RunSQL Str1                     '标记2

Exit_AllSub:
    Exit Sub

Err_AllSub:
    If err = 3211 Then
        i = i + 1                                 
        GoTo ReCreateLSB          '标记1
        '  Resume Next
     Else
        Resume Exit_AllSub
    End If
End Sub
================
现在问题情况是：LSB1已被使用时，能够通过出错处理自动运行到标记1，然后返回继续运行，本想继续生成LSB2，但此时LSB2也被使用中，运行到标记2时再次出错。

问：1、出错处理是不是只能使用一次？如何循环出错处理？
或者，2、如何用VBA检测表LSB?正在被使用中？

Henry D. Sy

试试捕捉错误代码，
如果出现3211错误i自动+1试试

Henry D. Sy

do until err =“”
i=i+1
loop

zww3008

具体怎么应用？
do until err =“”
i=i+1
loop
代码放在哪？反复试了好像不行。

yehf

试试这样
Sub AllSub(PID As Integer)
    Dim Str1 As String
    Dim StrLSB As String
    Dim i As Integer
    i = 1
'ReCreateLSB:
'On Error GoTo Err_AllSub
On Error Resume Next
Do While Err = 3211
    StrLSB = "LSB" & i
    Str1 = "SELECT CategoryID INTO " & StrLSB & " FROM tblHWCategory WHERE ParentID=" + CStr(PID)
    DoCmd.RunSQL Str1                     '标记2
    i = i + 1
Loop
End Sub

tmtony

Do while Err.number<>0
   '再加个超时多少秒，也退出
loop

tmtony

Do while Err.number<>0
    err.clear '清错误代码
    '再加个超时多少秒，也退出
   '你的处理代码
   
loop

zww3008

感谢管理员和楼上的各位，综合大家的思路，问题解决了。

Sub AllSub(PID As Integer)
On Error Resume Next

    Dim Str1 As String
   ' Dim StrLSB As String
    Dim i As Integer
    i = 1
Do
    err.Clear    '清错误代码
  StrLSB = "LSB" & i
    Str1 = "SELECT CategoryID INTO " & StrLSB & " FROM tblHWCategory WHERE ParentID=" + CStr(PID)
    DoCmd.SetWarnings False
    DoCmd.RunSQL Str1
     i = i + 1
    'MsgBox err.Description
Loop While err.Number = 3211 And i < 50

End Sub

zww3008

这个问题的目的，是为了完善一个TreeView。

原来存在一个问题，即不能同时打开使用多个类似的TreeView窗体（多人打开同一窗体或一人打开同类多个窗体），因为要用到同一个表。
现在即解决了该问题，当发现表LSB1已被使用时，则自动使用LSB2...这样一来就可以批量制作和使用此类窗体了。

附上示例，供参考。


示例中，你可以同时打开frmSBbyJH窗体和frmSBbyJH2窗体以测试，现在没问题了。修改前同时打开时会出错的。

tmtony

谢谢分享！