お奨め本の目次を見るだけでも勉強になったり
＜Access Form TextBoxの.SelLength .SelStartプロパティ＞
こんにちは、三流プログラマーＫｅｎ３です。 今回は、 Access のテキストボックスの .SelLength (選択文字数) .SelStart (選択開始位置) です。/* * １．今回のキッカケ */
下記の質問をBBS( http://www.ken3.org/cgi-bin/bbs/vba/wforum.cgi )で貰いました >おなまえ：MachineUser >タイトル：キャンセル処理後の選択 > >AccessでのVBAでフォーム上にあるテキストボックスの中身のチェックを >BeforeUpdateイベントにて行っているのですが、間違った値を入力したと >きにキャンセル処理をさせています。 >このキャンセル処理をさせた後、入力文字列を選択状態にしたいのですが、 >どのようにすればよろしいのでしょうか？ ---- と質問がありました。/* * ２．_BeforeUpdateで処理をキャンセルする */
まずは、ノーマルなキャンセル処理を書きます。 更新前のイベント処理 頭文字がA,X,Z 番号が100〜999をチェック データはA-201,X-777,Z-234などの形式 ＊入力禁則でできそうってのは、置いといて、
Private Sub 依頼表No1_BeforeUpdate(Cancel As Integer)
Dim ErrFLG As Boolean
Dim nCHKNO As Long
Dim strKUBUN As String
strKUBUN = Left(Me![依頼表No1], 1) 'チェックする頭文字の代入
nCHKNO = Val(Mid(Me![依頼表No1], 3)) '番号を変換
ErrFLG = False 'フラグにFalseを初期代入
'頭文字のチェック
If strKUBUN <> "A" And strKUBUN <> "X" And strKUBUN <> "Z" Then
ErrFLG = True 'ERRをＯＮにする
End If
'コード範囲のチェック
If nCHKNO < 100 Or 999 < nCHKNO Then '100より下、999より上か？
ErrFLG = True 'ERRをＯＮにする
End If
'エラーの判断
If ErrFLG = True Then
MsgBox "データはA-201,X-777,Z-234などの形式で入力してね", vbExclamation, "エラー"
Cancel = True
End If
End Sub |
SelLength、SelStart、SelText プロパティが見つかりました
ヘルプを見ると、
SelLength コントロールで選択されている文字数を示します。
SelStart 選択されたテキストの先頭、またはテキストが選択されていない場合は、
カーソルの位置を示します。
SelText プロパティは、選択されたテキストの文字列を示します。
コイツを使って、エラー処理の時、勝手に文字を選択します。
'エラーの判断
If ErrFLG = True Then
Me![依頼表No1].SelStart = 0 '先頭から
Me![依頼表No1].SelLength = Len(Me![依頼表No1]) '文字数分選択する
MsgBox "データはA-201,X-777,Z-234などの形式で入力してね", vbExclamation, "エラー"
Cancel = True
End If
と、エラーの時、
.SelStart = 0 で先頭から
.SelLength = Len(Me![依頼表No1]) で文字数分反転選択させます
-- 余談 --
今回はSelTextは使わなかったけど選択された一部を見たい時などに使ってみてね。
プロパティ、メソッドの探り方
http://www.ken3.org/vba/excel-help.html
こっちもヨロシク
Private Sub 依頼表No1_BeforeUpdate(Cancel As Integer)
Dim nCHKNO As Long
Dim strKUBUN As String
strKUBUN = Left(Me![依頼表No1], 1) 'チェックする頭文字の代入
nCHKNO = Val(Mid(Me![依頼表No1], 3)) '番号を変換
'頭文字のチェック
If strKUBUN <> "A" And strKUBUN <> "X" And strKUBUN <> "Z" Then
Me![依頼表No1].SelStart = 0 '先頭から
Me![依頼表No1].SelLength = 1 '間違いは頭文字なので
MsgBox "頭文字はA,X,Z です", vbExclamation, "頭文字エラー"
Cancel = True 'キャンセルをセットして
Exit Sub '関数を途中で抜ける
End If
'コード範囲のチェック
If nCHKNO < 100 Or 999 < nCHKNO Then '100より下、999より上か？
Me![依頼表No1].SelStart = 2 '数値のエリア開始位置
Me![依頼表No1].SelLength = 99 '文字数をオーバーしてセットしてみたら?
MsgBox "コードは100〜999までです", vbExclamation, "コード範囲エラー"
Cancel = True 'キャンセルをセットして
Exit Sub '関数を途中で抜ける
End If
End Sub |
|
あとは、項目別にMSでお勉強かな？ ◆ マイクロソフト サイトの歩き方 ◇ How-To インデックス ◇ FAQ インデックス ◇ スキルレベル別おすすめコンテンツ ◇ テクノロジ マップ ◇ テーマ別技術資料一覧 |
| ※種類が豊富で探し易いです。※在庫ありが48時間以内発送が急ぎで資料や書籍がほしい時、とても助かります。 お奨め本の目次を見るだけでも勉強になったり |