テキストボックス内のカーソル

質問

使用ソフト：Access2000
使用OS：Windows2000　WindowsXP

チェックボックスを押すと、該当するテキストボックスに
カーソルを移動するようにしています。

If IsNull(txt処理日) Then
txt処理日 = Date
End if
txt処理日.SetFocus

この場合、テキストボックス内に（今日なら、18/03/06）と入り、
すべての数字が選択状態になります。
これを、カーソルが右端に（今日なら、6の右端に）点滅している
状態にするにはどのように変更すればよろしいのでしょうか。

回答No.3

AlexSuns · ベストアンサー

Accessのテキストボックスは他のVB環境のものとは違うので、
SendKeysを使用します

SendKeys "{f2}"

お礼

ありがとうございました。
SendKeysで希望どおりの動きをするようになりました。

回答No.4

noname#22222

s_husky です。

全く新しいテストDBMを作成し、テストフォームにコマンドボタンとテキストボックスを配置して実行すれば成功すると思われます。決して、コード自体が誤っているとは思われません。

回答No.2

chie65536

If IsNull(txt処理日) Then
　　　　txt処理日 = Date
　　　　txt処理日.SetFocus
　　　　txt処理日.SelLength = 0
　　　　txt処理日.SelStart = Len(txt処理日)
　　End If

お礼

とても勉強になりました。どうもありがとうございました。

補足

御回答ありがとうございます。
私も当初は、この形かなと思いプログラムを組んだのですが、
結果は同様にすべての数字が選択状態になっていました。
Accessのフォームに付けている、テキストボックスのプロパティ側に
なにか原因があるのでしょうか？

回答No.1

noname#22222

Private Sub Text1_GotFocus()
　　Me.txt処理日.SelStart = Len(Me.txt処理日 & "")
End Sub

お礼

とても勉強になりました。ありがとうございました。