- 帖子
- 41
- 主題
- 10
- 精華
- 0
- 積分
- 163
- 點名
- 74
- 作業系統
- WIN2000
- 軟體版本
- OFFICE 2003
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2010-12-28
- 最後登錄
- 2025-4-11
            
|
2#
發表於 2011-1-11 09:22
| 只看該作者
Dim school As Variant
school = DLookup("學校名稱", "資料", "學校名稱='" & Me![ 學校名稱] & "'")
If IsNull(school) = False Then '若取得重複值
MsgBox "學校名稱重複輸入!"
Me.Undo
End If |
|