Access VBA主鍵的判斷問題

1.如果為字段設置了主鍵作為表中的主鍵，則輸入重復值將是錯誤的，因為主鍵不允許有重復值，並且事務將回滾，記錄將不會成功添加。妳只需要捕捉錯誤的值。

私有子命令1_Click（）

出錯時轉到Err_1_Click

.....您的代碼流程

err _ 1 _單擊:

如果呃。number = error value then‘error value，妳可以在運行壹次後看到它（即它是壹個錯誤）並彈出對話框。

Msgbox“您輸入了重復的值“

出口接頭

如果…就會結束

結束接頭

其次，主動檢查是否有重復值有兩種方法，壹種是使用ADO，另壹種是使用域聚合函數DLookup。

使用ado方法:

dim rs as new adodb.recordset

將sql顯示為字符串

SQL =“select * from表名，其中字段=““&；修剪（我。text 1）& amp；；"

rs.open sql，currentproject.connection，adopenkeyset，adlock悲觀

如果不是，那麽

Msgbox“您輸入的數據重復“

設置rs =無

出口接頭

如果…就會結束

使用域聚合函數DLookup語法:

if not is null（dlookup（【字段1】，表名，【字段1】=‘“&；trim（me . textbox 1）& amp；””）然後

或者如果不是is null（dlookup（【字段1】，表名，【字段1】=“&；trim（me . textbox 1）& amp；如果是整數值，不要使用單引號。

Msgbox“您輸入的數據重復“

出口接頭

如果…就會結束