返回列表 上一主題 發帖

[發問] Access多欄判斷不重覆

Dim school As Variant
     school = DLookup("學校名稱", "資料", "學校名稱='" & Me![ 學校名稱] & "'")
     If IsNull(school) = False Then '若取得重複值
     MsgBox "學校名稱重複輸入!"
     Me.Undo
     End If

TOP

        靜思自在 : 不要小看自己,因為人有無限的可能。
返回列表 上一主題