在MS Access中鎖定一行的列

Question

在我更新後可以在Access中鎖定一行的列嗎？我嘗試使用AfterUpdate方法，但它是沒有用的。請幫忙。謝謝。對不起英文。

Answer 1

Option Compare Database 
Option Explicit 

Public col As Collection 

Private Sub Form_Load() 
    Set col = New Collection 
End Sub 

Private Sub Form_Current() 
    If CHANGED(Me.TeamID) Then 
     MsgBox "not allowed" 
    End If 

End Sub 

Private Sub TeamName_AfterUpdate() 
    col.Add CStr(Me.TeamID.value), CStr(Me.TeamID.value) 
End Sub 

Public Function CHANGED(strValue As String) As Boolean 

    On Error GoTo ehandle 

     CHANGED = True 
     Dim strTest As String 
     strTest = col(strValue) 

Exit Function 

ehandle: 

     CHANGED = False 

End Function 

這使表隊TeamID的PK從我收集的數據庫，那麼它會檢查它已經改變了，看它是否是集合，即，如果沒有，那麼它的確定，如果它已經改變那麼它是「不允許」的消息框。