いつもお世話になっております。
VBAを独学で勉強している者です。
請求処理メニューを作っている最中なのですが、取引先マスターを入力していくフォームの入力値にいくつか機能を持たせることにしました。
取引先コードは10桁文字数で管理されるという設定なので10桁以外で入力した際は、BeforeUpdateイベントでエラーが出るようにし、重複した数値が入力した際もBeforeUpdateイベントでエラーが出るようにしたいのですが、実行してみると【実行時エラー’94 Nullの使い方が不正です。】となります。下記は作成途中のプログラムをコピペしたものです。
▲がついている部分が黄色く反転しています。
参考書を元に作成していったのですが、エラーがでる原因がわからないためアドバイスをいただきたいです☆
Private Sub 取引先コード_BeforeUpdate(Cancel As Integer)
Dim length As Long 'len関数の戻り値
Dim ret As String 'DLookup関数の戻り値。
length = Len(Me!取引先コード)
If length <> 10 Then
MsgBox "取引先コードは10桁の数値でなければなりません", vbOKOnly + vbInformation, "入力値エラー"
Cancel = True
Me!取引先コード.SelStart = 0
Me!取引先コード.SelLength = Len(Me!取引先コード)
End If
▲ret = DLookup("取引先コード", "取引先マスターT", "取引先コード='" & Me!取引先コード & "'")
'重複のチェック
If IsNull(ret) Then
Exit Sub
Else
MsgBox Me!取引先コード & " は登録済みです", vbCritical + vbOKOnly, "入力値エラー"
Cancel = True
Me!取引先コード.SelStart = 0
Me!取引先コード.SelLength = Len(Me!取引先コード)
End If
End Sub
宜しくお願いいたします。
No.5
- 回答日時:
>・・・とメッセージが出てしまうことです
これは新規レコードの入力ではなく既存レコードの場合だけですよね?
「取引先コード」は一旦登録してしまえば変更の必要が発生する事は稀有なので
私だったら、誤変更を避けるために
「取引先コード」のプロパティのその他の中にあるタブストップを「いいえ」にしておくとか
フォームのレコード移動時に Me.NewRecord で判断して
「取引先コード」の「編集ロック」を「はい」とかにします。
>「取引先コード」のプロパティのその他の中にあるタブストップを「いいえ」にしておくとか
思いつきませんでした!!
簡単な設定で大分使いやすくなりますね!
プロパティの内容も全部把握できていないので勉強しなおします☆
補足にまで答えていただいてありがとうございました!!
No.4
- 回答日時:
Variant を使わない場合・・・。
Private Sub 取引先コード_BeforeUpdate(Cancel As Integer)
Cancel = CBool(Len(Me.取引先コード & "") <> 10)
If Cancel Then
MsgBox "取引先コードは10桁の数値でなければなりません", vbOKOnly + vbInformation, "入力値エラー"
Else
Cancel = Len(Nz(DLookup("取引先コード", "取引先マスターT", "取引先コード='" & Me.取引先コード & "'")))
If Cancel Then
MsgBox Me!取引先コード & " は登録済みです", vbCritical + vbOKOnly, "入力値エラー"
End If
End If
If Cancel Then
Me.取引先コード.SelStart = 0
Me.取引先コード.SelLength = Len(Me.取引先コード)
End If
End Sub
×Length = Len(Me!取引先コード)・・・・・・・・・・未入力の場合、エラーが発生します。
○Length = Len(Me.取引先コード & "")・・・・・・"" を付加することでエラーが回避できます。
×DLookup("取引先コード", "取引先マスターT", "取引先コード='" & Me!取引先コード & "'")
○Nz(DLookup("取引先コード", "取引先マスターT", "取引先コード='" & Me!取引先コード & "'"))
NZ関数は、戻り値がヌルであれば""に置換します。
Husky2007サン、いつもありがとうございます!
NZ関数や、CBool等・・・・・
正直今初めてみた単語たちでした~^^;
恥ずかしながらまだ基礎の基礎も出来ていないド素人です。。
もう少し勉強して教えていただいた方法も検討してみますね!!
No.3
- 回答日時:
もう少し「ツッコミ」入れさせてもらいます。
>取引先マスターを入力していく
とのことなので、Accessの話ですか?
なら
テーブルデザインで、取引先コードを主キーにすれば、
重複入力を排除できますし、
10桁チェックも入力規制欄に、Len([取引先コード]) = 10
エラーメッセージ欄に、"取引先コードは10桁の数値でなければなりません"
とすればコードを書かなくて済みます。
また
DLookup("取引先コード", "取引先マスターT", "取引先コード='" & Me!取引先コード & "'")
は、取引先コード がテキスト型なら問題ありませんが
数値型なら
DLookup("取引先コード", "取引先マスターT", "取引先コード=" & Me!取引先コード)
です。
Variant型の指摘ついては他の方と一緒。
あるいは、DlookUp ではなくて Dcount で判断するとか・・
この回答への補足
お返事ありがとうございます☆
ご指摘の通り、Accessです。
取引先コードを主キーに設定していて、テーブルデザインでの規制も検討しましたが、エラーの出るタイミングや、エラーの出た後のカーソルの行方の仕様が思うように出来ず、VBAで操作に当たった次第です。
取引先コードは頭が0で始まる事も視野にいれ、テキスト型に設定しています。
データベースをコピペしてテーブル設計のみでの規制もまた検討してみます!!
色々実験していくと、システム開発の難しさを痛感します。
現在困っているのは、取引先コードに重複規制をかけたせいなのか、あらかじめ”1234567890”で取引先コードを登録しておき、以後会社名などのデータ変更時等でマスター変更をしたい時、誤って”1234567890”のコードを消してしまったときに、前回登録時と同じコードの”1234567890”と入力しなおして登録しても「1234567890は登録済みです。」とメッセージが出てしまうことです。
まだまだ勉強が必要ですネ^^;
上記のような現象の回避策はあるのでしょうか??
お手すきのときで構いませんのでアドバイスいただけませんか??
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
「Nullの使い方が不正です」のエラー
Visual Basic(VBA)
-
ACCESSのSQLで、NULLかNULLでないかの判定
その他(データベース)
-
サブフォームに対してGoToRecordするには?
その他(Microsoft Office)
-
-
4
Access サブフォームでの選択行の取得
その他(データベース)
-
5
Nullの使い方が不正ですのエラーメッセージについ
Visual Basic(VBA)
-
6
Accessでフォームから別フォームのテキストボックスの値を設定する
Visual Basic(VBA)
-
7
AccessからExcelにエクスポートする時に常に上書きしたい
Excel(エクセル)
-
8
Access 最後のレコードに到達するまでループ処理を行う方法
Access(アクセス)
-
9
DLookupがうまく出来ません
Access(アクセス)
-
10
ACCESSのBookmarkプロパティの使い方
その他(データベース)
-
11
ACCESS 複数のフォームから同一テーブル参照
Access(アクセス)
-
12
テキストボックスにクエリ結果を表示させたい
その他(データベース)
-
13
Accessのフォームにて、詳細行のボタンを行の内容により、表示/非表
その他(Microsoft Office)
-
14
Access2010 「演算子がありません」エラー
その他(データベース)
-
15
アクセス VBAについて FROM句の構文エラー
Access(アクセス)
-
16
アクセスVBAで既に開いているエクセルを閉じたい
Yahoo!ショッピング
-
17
日付型のフィールドに空白を入れる方法を教えてください
その他(データベース)
-
18
Accessの画面更新を一時的に停止する方法。
その他(データベース)
-
19
ACCESS VBA;コマンドボックスでラベルの背景色を変えたいのですが
その他(データベース)
-
20
Accessでテーブルの値をテキストボックスに代入するには?
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
フィルターかけた後、重複を除...
-
JavaScriptの定数名が取り消し...
-
access2021 VBA メソッドまたは...
-
ASCIIコード表の出力
-
COBOLの文法
-
1日に1人がこなせるプログラム...
-
JANコードとPOSコードは同じ?
-
美しいソースとは?
-
CString のGetAt で正しく文字...
-
オートフィルタで抽出結果に 罫...
-
COBOLについて
-
VBA リストボックス(複数条件...
-
簡単なHTTP-Get
-
他人が読みやすいコーディング...
-
JIPS-Eコードのコード表について
-
【VB6】実行ファイルとした後、...
-
vba スライサー
-
ペンダントライトのコードの色...
-
VBA・VB6.0・VB.NETの文字列型
-
Access DCountでの連番について
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
フィルターかけた後、重複を除...
-
JANコードとPOSコードは同じ?
-
access2003 クエリSQL文に...
-
1日に1人がこなせるプログラム...
-
オートフィルタで抽出結果に 罫...
-
変数名「cur」について
-
JavaScriptの定数名が取り消し...
-
ACCESSユニオンクエリでORDER B...
-
Exel VBA 別ブックから該当デ...
-
UWSCでMOUSEORG関数が上手く処...
-
COBOLの文法
-
PreviewKeyDownイベントが2回...
-
1、Rstudioで回帰直線を求める...
-
VBAでファイルオープン後にコー...
-
【VB6】実行ファイルとした後、...
-
Nullの使い方が不正です。
-
特定行の背景色を変えたいのですが
-
◾️Excel VBA 統合について Cons...
-
アルファベットに付いて質問し...
-
Excel VBAでOpenTextのFieldInf...
おすすめ情報