ACCESS中自製數字觸控螢幕

access 觸控觸控螢幕

johnstudy 2016-07-22 19:43:00 ‧ 1471 瀏覽

分享至

請問於win7中如果使用觸控螢幕去按

ACCESS的表單按鈕時

onMouseDown

onKeyDown

是否就都無法觸發了

現在遇到一個問題就是

於ACCESS中自製的數字鍵0~9 共10個

可以去控制記事本的內容

他的Focus只有一個就是裡面的內容

但是在ACCESS的表單內中

假設有a.b.c.d.e.f.g.h.i.j 10個欄位

在可以隨意點選任一欄位點選數字鍵輸入進去的情況下

要控制自己表單中的各個欄位時該怎麼辦

可以給個方向嗎?

haoming iT邦好手 1 級 ‧ 2016-07-27 10:52:17 檢舉

你是要點按鈕 1 , 游標就跳到欄位 a , 依此類推這樣的意思嗎

johnstudy iT邦新手 5 級 ‧ 2016-07-30 17:28:22 檢舉

不一定是欄位A

例如有10個欄位，但是按鈕有10個

你點選A欄位時點選按鈕要INPUT那個按鈕定義的數字進去
點選B欄位時亦同以此類推

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

1 個回答

artic

iT邦新手 5 級 ‧ 2018-07-19 23:25:44

有個方式你可以試一下,方法未必是最好的,但是能做到,你自行試試,評做看看囉
1.先訂一個全域變數
2.當點選不管欄位A或欄位B或欄位C時,應該會觸發ongotfocus,然後就把欄位名稱記錄下來
3.當點選你自製的數字鍵時,就把值寫到該欄位

Dim ctlname As String

Private Sub Form_Open(Cancel As Integer)
'初始值
ctlname = "txt1"
End Sub

Private Sub btn0_Click()
Me.Controls(ctlname) = Me.Controls(ctlname) & 0
End Sub

Private Sub btn1_Click()
Me.Controls(ctlname) = Me.Controls(ctlname) & 1
End Sub

Private Sub btn2_Click()
Me.Controls(ctlname) = Me.Controls(ctlname) & 2
End Sub

Private Sub btn3_Click()
Me.Controls(ctlname) = Me.Controls(ctlname) & 3
End Sub

Private Sub txt1_GotFocus()
ctlname = "txt1"
End Sub

Private Sub txt2_GotFocus()
ctlname = "txt2"
End Sub

回應
分享
檢舉

登入發表回應

我要發表回答

立即登入回答

參賽組數

1123 組

團體組數

52 組

累計文章數

23096 篇

完賽人數

656 人

15th鐵人賽 13th鐵人賽 14th鐵人賽 12th鐵人賽 11th鐵人賽鐵人賽 2019鐵人賽 2018鐵人賽 javascript 2017鐵人賽 python windows php c# windows server linux css 程式設計 react vue.js

IT邦幫忙