アクセスVBAで決まった文字数しか入力できないようにしよう

はてな君はVBA面白くなってきてるみたいですね！どんどん吸収してくれてる。

フォームからのデータ登録については下記の記事で確認してみてくださいね！

【Access】vbaでフォームからレコード追加しよう

2018年9月24日

「Private Sub btn登録_Click()」と「End Sub」の間に下記のコードを記載します。

Private Sub btn登録_Click()

'    必須項目のメッセージボックス
    If Me.tx商品コード = "" Then
        MsgBox "商品コードが入力されていません"
        Exit Sub
    Else
    End If
    
    If Me.tx商品名 = "" Then
        MsgBox "商品名が入力されていません"
        Exit Sub
    Else
    End If
    
    If Me.tx金額 = "" Then
        MsgBox "金額が入力されていません"
        Exit Sub
    Else
    End If
    
    
    Dim Rst As DAO.Recordset
    Set Rst = CurrentDb.OpenRecordset("T_商品コード", dbOpenTable)
    
    With Rst
        .AddNew
        .Fields("商品コードNO") = Me!tx商品コード
        .Fields("商品名") = Me!tx商品名
        .Fields("金額") = Me!tx金額
        .Fields("登録日付") = Now
        .Update
    End With
    
    Rst.Close
    Set Rst = Nothing
    
    MsgBox "データが登録されました"
    
        Me!tx商品コード = ""
        Me!tx商品名 = ""
        Me!tx金額 = ""

        
'フォーカスを当てる
    Me!tx商品コード.SetFocus

ここまでは、上の記事でご紹介したデータ登録と同じです。

しっかり動作確認をしておいてくださいね。

コードをコピーされたい場合は下記の記事を参考にしてください。

動作確認って大事なんです！エラーが起こった時に、ここまではちゃんと動いていたってわかっていれば、それ以降の作業のどこかに間違いがあるってわかるでしょ？だけど、最初から動作確認してなかったら・・・どこが悪いのやら・・・

そっかぁ。データ登録は出来てるはずだからって思ってたら実はデータ登録の部分が間違ってたとかあるんだぁ。

そういうこと！結局自分のためなんです！

実際今回のプログラムは別のファイルからコピーしてきたのですが、今回のテキストボックスの名前に変更するのに2か所ほど間違ってまして・・・

エラーが出ました・・・

動作確認とっても大事なので、楽しみながらやってくださいね。

そうそう忘れるところでした！動作確認して気が付いてくれていたかもしれません。

「Private Sub Form_Load()」と「End Sub」の間に下記のコードを追加しておいてくださいね。

        Me!tx商品コード = ""
        Me!tx商品名 = ""
        Me!tx金額 = ""

なぜこのコードが必要なのかは・・・

下記の記事をどうぞ！