[已解決]運行時錯誤3211.如何循環(huán)出錯處理？或如何檢測表被使用鎖定？

zww3008

我的要求是：

生成表查詢并使用表，默認生成表LSB1，如果該表已被其他用戶或其他窗體使用，則生成并使用LSB2，如果LSB2也被使用中，則成并使用LSB3，依此類推......

我的代碼是：
=================
聲明節(jié)聲明
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
================
現(xiàn)在問題情況是：LSB1已被使用時，能夠通過出錯處理自動運行到標記1，然后返回繼續(xù)運行，本想繼續(xù)生成LSB2，但此時LSB2也被使用中，運行到標記2時再次出錯。

問：1、出錯處理是不是只能使用一次？如何循環(huán)出錯處理？
或者，2、如何用VBA檢測表LSB?正在被使用中？

Henry D. Sy

試試捕捉錯誤代碼，
如果出現(xiàn)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窗體（多人打開同一窗體或一人打開同類多個窗體），因為要用到同一個表。
現(xiàn)在即解決了該問題，當發(fā)現(xiàn)表LSB1已被使用時，則自動使用LSB2...這樣一來就可以批量制作和使用此類窗體了。

附上示例，供參考。


示例中，你可以同時打開frmSBbyJH窗體和frmSBbyJH2窗體以測試，現(xiàn)在沒問題了。修改前同時打開時會出錯的。

tmtony

謝謝分享！