台灣最大程式設計社群網站
線上人數
1807
 
會員總數:244787
討論主題:188836
歡迎您免費加入會員
討論區列表 >> ACCESS >> [ACCESS 2013] 資料不重複-DLookup-已經爬了文但還是不知道哪裡有錯qwq
[]  
[我要回覆]
1
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
[ACCESS 2013] 資料不重複-DLookup-已經爬了文但還是不知道哪裡有錯qwq
價值 : 10 QP  點閱數:323 回應數:4

樓主

Delia
門外漢
0 1
37 2
發送站內信

各位大大好,我真的爬了很多文,
但還是不懂我哪裡沒有處理好,
希望有人可以幫幫忙,我卡了好久qwq

我弄了個表單,
有的人會友資深會友編號(文字類型)
有的人沒有,
我希望有人輸入這個資料的時候不要輸入到已經有的編號,
所以輸入了下面的語法,
但是她一直告訴我第2列資料有錯誤
我換了好幾種方式,
不曉得到底哪裡錯了,
請幫幫忙,非常感謝!

【ACCESS 2013】程式碼建立器

Private Sub 資深會友編號_AfterUpdate()
aa = DLookup([資深會友編號], 會友基本資料, "資深會友編號='" & [資深會友編號] & "'")
If aa <> "" Then
MsgBox "資深會友編號重複,請重新確認。"
End If
End Sub




搜尋相關Tags的文章: [ ACCESS ] , [ 2013 ] , [ 資料不重複 ] , [ DLookup ] , [ AfterUpdate ] ,
本篇文章發表於2019-02-09 10:51
別忘捐VP感謝幫助你的人 新手會員瞧一瞧
1樓
最有價值解答

tungta
捐贈 VP 給 tungta 檢舉此回應
先將第一行VBA改為
aa = DLookup("資深會友編號", 會友基本資料, "資深會友編號='" & [資深會友編號] & "'")

若不行,VBA全部改為如下
On Error Resume Next '若發生錯誤,以此避開
aa = DLookup("資深會友編號", 會友基本資料, "資深會友編號='" & [資深會友編號] & "'")
If IsNull(aa) = False Then '若取得重複值
MsgBox "資深會友編號重複,請重新確認。"
End If

若仍然不行,請將檔案寄來看
lin27850016@yahoo.com.tw
本篇文章回覆於2019-02-09 11:39
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
2樓
不錯的參考

P陳
檢舉此回應
tungta 說的沒錯 就是這句錯了
DLookup([資深會友編號], 會友基本資料, "資深會友編號='" & [資深會友編號] & "'")

三個都是文字形態才可以 所以要改成
DLookup("資深會友編號", "會友基本資料", "資深會友編號='" & [資深會友編號] & "'")
1. Dlookup

2.建議您在表單的程式頭處
Option Compare Database 後加一句
Option explicit
本篇文章回覆於2019-02-09 22:46
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
3樓
作者回應

Delia
檢舉此回應
非常感謝2位大大!我最近在外奔波,今天回去試試看!
本篇文章回覆於2019-02-19 11:19
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
4樓
作者回應

Delia
檢舉此回應
謝謝tungta大大!
我成功了!
也謝謝P陳的建議!
本篇文章回覆於2019-02-23 17:37
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
   
1

回覆
如要回應,請先登入.