返回列表 上一主題 發帖

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

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

TOP

        靜思自在 : 【時間無法遮擋】怕時間消逝,花了許多心血,想盡各式方法要遮擋時間,結果是:浪費了更多時間,且一無所成!
返回列表 上一主題