請問一個問題,若資料庫有三個電話的欄位(電話一、電話二、電話三)
如果想在表單的介面,新增或修改電話後,After_update的程式碼中,立即檢驗此筆資料與資料庫三個欄位中現存的電話,沒有重複(重複會警示),要如何做呢?
程式碼中的sql指令,好像不能用一般的sql指令??
2005-12-28 05:27:58 · 1 個解答 · 發問者 Anonymous in 電腦與網際網路 ➔ 程式設計
太久沒用Access不知道對不對,印象中好像在BeforeUpdate事件作判斷比較好
Private Sub Text1_BeforeUpdate(Cancel As Integer)
Dim db
Set db = CurrentDb.OpenRecordset("Select * From 資料表 Where [電話一]='" & Text1.Text & "'")
If db.RecordCount > 0 Then
MsgBox "電話號碼重覆!!"
Cancel = True
End If
Set db = Nothing
End Sub
2005-12-28 07:12:45 · answer #1 · answered by W.J.S. 7 · 0⤊ 0⤋