請看下面的code, 當 .item(i).enabled 執行到 txtInv 的時候﹐那個 txtInv_Validate 又再執行多一次﹐於是發生 error - operation is not allowed when the object is closed.
怎樣寫才是正統的寫法呢 ﹖
Private Sub txtInv_Validate(Cancel As Boolean)
Set rs = cn.Execute.........
...Check exists
if myStatus = "View" Then
With Me.Controls
For i = 0 To .Count - 1
.Item(i).Enabled = False
Next i
End With
cmdCancel.enabled = true
End if
rs.close
End sub
怎樣寫才是正統的寫法呢 ﹖
Private Sub txtInv_Validate(Cancel As Boolean)
Set rs = cn.Execute.........
...Check exists
if myStatus = "View" Then
With Me.Controls
For i = 0 To .Count - 1
.Item(i).Enabled = False
Next i
End With
cmdCancel.enabled = true
End if
rs.close
End sub
全站熱搜
留言列表