iT邦幫忙

0

ACCESS中自製數字觸控螢幕

請問於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欄位時亦同以此類推

1 個回答

0
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

我要發表回答

立即登入回答