台灣最大程式設計社群網站
線上人數
852
 
會員總數:245466
討論主題:189222
歡迎您免費加入會員
討論區列表 >> ACCESS >> [ACCESS 2013] 資料A欄有主索引鍵且B欄有不可重複的語法,但出現異常
[]  
[我要回覆]
1
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
[ACCESS 2013] 資料A欄有主索引鍵且B欄有不可重複的語法,但出現異常
價值 : 5 QP  點閱數:97 回應數:1

樓主

Delia
門外漢
0 4
79 6
發送站內信

【資料表】
欄位1 序號 簡短文字 遮罩 C00-C000C 主索引
欄位2 資料 簡短文字

【表單】
欄位1 序號
欄位2 資料

【程式碼】
Option Compare Database

Private Sub 資料A_AfterUpdate()
On Error Resume Next '若發生錯誤,以此避開
aa = DLookup("資料A", "資料表", "資料A='" & Me![資料A] & "'")
If IsNull(aa) = False Then '若取得重複值
MsgBox "資料A重複,請重新確認。"
SendKeys "{ESC}", True '還原為原值
Else
Me![序號] = (Year(Now()) - 1911) & "-" & Me![資料A]
End If
End Sub

【遇到的問題】在請大大們協助!感謝:D
1.
在表單的《資料》輸入第1筆A000A
輸入第2筆也輸入相同資料
系統會跳出「資料A重複,請重新確認。」的訊息
但不會執行SendKeys "{ESC}"
2.
在表單的《資料》輸入A111A
希望《序號》可以自動跳「系統民國年-A111A」如108-A111A
但系統沒有跳,不清楚是否是邏輯寫得不妥

別忘捐VP感謝幫助你的人 新手會員瞧一瞧
1樓
最有價值解答

tungta
捐贈 VP 給 tungta 檢舉此回應
語法正確,但有兩個問題:
1.資料表名稱錯誤,多了1,『資料表』→『資料表1』
2.表單『資料A』欄位是最後一個物件,輸入完後會自動跳到下一筆,只要別讓『資料A』欄位是最後一個物件即可,因此增加一個『結束』按鈕
本篇文章回覆於2019-12-14 11:55
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
   
1

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