Access 日本語が含まれていたら拒否する

（対象）Access　VBA
（確認）Access2010


今回は入力内容に日本語が含まれていたら
拒否する方法です。

―――――――――――――――――――――――――

○ソース

―――――――――――――――――――――――――

  '○日本語が含まれていたら拒否する
  Dim Str1 as String

  Str1 = Me.コントロール.Value

  If Str1 Like "*[!0-9a-zA-Z]*" Then

    MsgBox "数字とアルファベット以外は禁止です", vbCritical, "報告：日本語の禁止"

    Me.コントロール.Value = ""

    Me.コントロール.SetFocus

    Exit Sub

  End If

―――――――――――――――――――――――――

○解説

―――――――――――――――――――――――――

1行目から順番に、

　１．文字型の変数（Str1）を宣言
　２．変数に調べたい文字を格納
　３．変数の中身に数字・アルファベット以外が
　　　入っているかどうかの判断（[!○○]で「○○以外」）
　４～７．入っていた時の処理→処理抜け

「あ‐ん」「ア‐ン」「亜-黑」で調べる方法もありますが、
どちらかというとこちらの方が楽でしょうか。

Access VBA―マウスホイール制御

（対象）Access　VBA
（確認）Access2003


今回はマウスホイールの制御についてです。



「Access VBA　マウスホイール制御」

――――――――

○やりたいこと
――――――――

→フォームでマウスホイールをするとレコードが移動してしまうので

　それをなくす

――――――――

○ソース

――――――――

Dim bbb As Integer

'=============================================

' フォームの読み込み時

'=============================================

Private Sub Form_Load()

  bbb = 0

End Sub

――――――――

☆やっていること

――――――――

フォームの読み込み時に変数ｂｂｂに0を入れる

'=============================================

'レコード移動時 

'=============================================

Private Sub Form_Current() 

　If Me.NewRecord Then Exit Sub 

　

　Me.[コントロール名].SetFocus 

　Me.Dirty = True 

End Sub 

――――――――

☆やっていること

――――――――

レコード移動時の処理。

　1.次のレコードが新しいレコードの時は作用しない 

　2.どれでもいいからコントロールを選んでおく。
　　これを選ばないとエラーになる 

　3.「Dirty」はカレントレコードの変更の有無を表す。
　　　今はTrueなので変更有り→変更有り＝更新前処理が入る 

'=============================================

' マウスホイールを動かした時

'=============================================

Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)

  bbb = Count

End Sub

――――――――

☆やっていること

――――――――

マウスホイールが動かされたらｂｂｂにCountの値を入れる

（Countの値＝ホイールされて動こうとしているレコードの数）

'=============================================

' レコードに変更があった時

'=============================================

Private Sub Form_BeforeUpdate(Cancel As Integer)

  If bbb <> 0 Then

    Cancel = True

    bbb = 0

  End If

End Sub

――――――――

☆やっていること

――――――――

ｂｂｂの値が0でない時にCancelをTrueにして処理をキャンセルする。

※1ここでキャンセルされると移動もキャンセルになる

※2判断は必ず「0でない」にする。ｂｂｂの値はマイナス値にもなる

※3ｂｂｂの値を初期化しておく

（上のレコード移動時の処理を超えると自動的に入ってくる）

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝