軟體:
版本:
想問一下表單事件中 當我在textbox101輸入文字後按下enter
他會在textbox102 輸入查詢的訊息
但在測試上
按下enter後第一時間並沒有顯示,
而是得在用滑鼠點一下表單任一處,他才會執行運算
假如用keypress事件該如何設置,
是否得先在userfrom下面先宣告某些事件?
Private Sub TextBox101_Enter()
If TextBox101.text <> "" Then
Zrowe = 1
Zrowe = Sheets("新舊車牌連結庫").Columns(5).Find(What:="*", LookIn:=xlValues,
SearchDirection:=xlPrevious).Row + 1
ZrowNow = 1
While Zrowe > ZrowNow
rng1 = UCase(TextBox101.Value)
If Sheets("新舊車牌連結庫").Cells(ZrowNow, 5) = rng1 Then
TextBox102.text = Sheets("新車資料").Range("d" & ZrowNow).Value
Exit Sub
End If
ZrowNow = ZrowNow + 1
Wend
End If
If TextBox101.text <> "" Then
MsgBox "查無資料"
End If
End Sub