台灣最大程式設計社群網站
線上人數
869
 
會員總數:246734
討論主題:190151
歡迎您免費加入會員
討論區列表 >> ACCESS >> access表單按鈕與表單資料檢核
[]  
[我要回覆]
1
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
access表單按鈕與表單資料檢核
價值 : 200 QP  點閱數:308 回應數:1
樓主

Gagaiii
門外漢
0 1
41 3
發送站內信


有以下幾個問題想請問各位

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
1樓
作者回應

Gagaiii
檢舉此回應
補上第2點的圖
謝謝

本篇文章回覆於2022-02-13 13:47
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
   
1

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