![]() ![]() ![]() ![]() |
|||||
|
|||||
樓主 Gagaiii ![]()
![]() |
有以下幾個問題想請問各位 1.access表單按鈕可以設定用快捷鍵嗎 例如:儲存(可以用enter不一定要用滑鼠點這可以做到嗎) 2.我的資料瀏覽窗格索小無法拉寬,不知道有什麼方法可以調整回來 https://imagizer.imageshack.com/img923/6299/TVSJ4R.png 3..表單內有三個欄位想在變更時做檢核(核准主管.核准狀態.不核准原因) 參考網路寫了以下vba,但是只會針對一筆檢核不會針對表單內該欄位全部檢核 同時填寫多筆停留在正確資料上,存檔錯誤的無法被檢核到 請問是要用什麼方式(while loop)嗎 ![]() Private Sub Command37_Click() If Me![核准狀態] = "不核准" And IsNull(Me![不核准原因]) = True Then MsgBox "不核准原因不能空白,無法儲存", , "多使用者登入介面" Cancel = True '中止儲存 Me![核准狀態].SetFocus Me![核准狀態] = Null Me![核准狀態] = "未審核" Me![未審核筆數] = DCount("[合法離機扣除目標通數登記表]![核准狀態]", "合法離機扣除目標通數登記表", "([合法離機扣除目標通數登記表]![核准狀態]='未審核')") ElseIf Me![核准狀態] = "核准" And IsNull(Me![核可主管]) = True Then MsgBox "核可主管不能空白,無法儲存", , "多使用者登入介面" Cancel = True '中止儲存 Me![核准狀態].SetFocus Me![核准狀態] = Null Me![核准狀態] = "未審核" Me![未審核筆數] = DCount("[合法離機扣除目標通數登記表]![核准狀態]", "合法離機扣除目標通數登記表", "([合法離機扣除目標通數登記表]![核准狀態]='未審核')") ElseIf Me![核准狀態] = "不核准" And IsNull(Me![核可主管]) = True Then MsgBox "核可主管不能空白,無法儲存", , "多使用者登入介面" Cancel = True '中止儲存 Me![核准狀態].SetFocus Me![核准狀態] = Null Me![核准狀態] = "未審核" Me![未審核筆數] = DCount("[合法離機扣除目標通數登記表]![核准狀態]", "合法離機扣除目標通數登記表", "([合法離機扣除目標通數登記表]![核准狀態]='未審核')") Else DoCmd.RunCommand acCmdSaveRecord '儲存 MsgBox "儲存成功" End If Me![未審核筆數] = DCount("[合法離機扣除目標通數登記表]![核准狀態]", "合法離機扣除目標通數登記表", "([合法離機扣除目標通數登記表]![核准狀態]='未審核')")
搜尋相關Tags的文章:
[ access ] ,
本篇文章發表於2022-02-13 13:45 |