1）自社名は必ず入力されていることにします。
入力されていない場合、エラーメッセージを表示します。
2）各データの入力文字数が、データベースのフィールド文字数以内かチェックします。
フィールド範囲以上の場合、保存できないのでこのチェックは必ず必要です。
■自社名が入力されていない場合のエラー表示フォーム
■フィールドサイズ以上に入力された場合のエラー表示フォーム
'登録ボタン
Private Sub CommandButton2_Click()
If ExDataCheck = False Then
Exit Sub
End If
End Sub
'データのチェック
Private Function ExDataCheck() As Boolean
ExDataCheck = False
If TextBox1.Value = "" Then
MsgBox "自社名は必ず入力してください。"
Exit Function
End If
If Len(TextBox1.Value) > 30 Then
MsgBox "自社名は30文字以内で入力してください。"
Exit Function
End If
If Len(TextBox2.Value) > 20 Then
MsgBox "郵便番号は20文字以内で入力してください。"
Exit Function
End If
If Len(TextBox3.Value) > 50 Then
MsgBox "住所1は50文字以内で入力してください。"
Exit Function
End If
If Len(TextBox4.Value) > 50 Then
MsgBox "住所2は50文字以内で入力してください。"
Exit Function
End If
If Len(TextBox5.Value) > 30 Then
MsgBox "TELは30文字以内で入力してください。"
Exit Function
End If
If Len(TextBox6.Value) > 30 Then
MsgBox "FAXは30文字以内で入力してください。"
Exit Function
End If
If Len(TextBox7.Value) > 50 Then
MsgBox "振込先は50文字以内で入力してください。"
Exit Function
End If
ExDataCheck = True
End Function