いつもお世話になっております。
Accessで顧客情報の管理をしようと思って始めました。
どうしても躓いてしまったので、どう直せば良いのかご教授ください。
<やりたい事>
① テキストボックスが空白の場合、メッセージボックスを出して処理を中断。
② 顧客番号がテーブルに存在しない場合は、メッセージボックスを出して処理を中断。
③ ①②に問題がない場合、編集画面に飛ぶ
①と③はなんとか出来たのですが、②が分かりません。
現状は存在しない番号を打っても新規レコードが出る状態です。
以下補足
・顧客情報の管理(数字4桁+アルファベット=顧客番号)
・メインメニューには登録ボタンと編集ボタンとテキストボックスがある
・編集ボタンを押すとテキストボックスに入力された顧客番号を抽出して編集する流れ
Private Sub コマンド4_Click()
If IsNull(Me.テキスト2) Then
MsgBox "棚番が入力されていません"
Else
DoCmd.OpenForm "T_A_MENBER", acNormal, "", "[顧客情報]=" & "'" & [テキスト2] & "'", , acNormal
DoCmd.Close acForm, "mainmenu"
Exit Sub
End If
よろしくお願いいたします。
No.1ベストアンサー
- 回答日時:
If IsNull(Me.テキスト2) Then
MsgBox "棚番が入力されていません"
ElseIf IsNull(DLookup("顧客情報", "テーブル名", "顧客情報 ='" & Me.[テキスト2] & "'")) Then
MsgBox "棚番が存在しません"
Else
DoCmd.OpenForm "T_A_MENBER", acNormal, "", "[顧客情報]=" & "'" & [テキスト2] & "'", , acNormal
ってところですかね。
テーブル名、フィールド名は、ご自分のものに置き換えてください。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Visual Basic(VBA) ユーザーフォームの表示を追加したい 2 2023/03/26 23:18
- 経営情報システム accessでの請求管理について 12 2022/06/11 16:20
- 会計ソフト・業務用ソフト 事業内容に適した、見積・請求書・顧客管理ソフト、システムを探しています。 2 2022/11/11 13:28
- Visual Basic(VBA) ExcelからAccessのテーブルに書き込む時に時間がかかる 1 2022/10/14 20:38
- その他(データベース) accessについて 2 2022/05/31 16:58
- Visual Basic(VBA) ファイル全てを .xlsm に変更したところ、プログラムが途中で落ちてしまっています 17 2022/12/07 12:03
- Visual Basic(VBA) 【VBA】Excelで罫線を引きたい 3 2022/07/14 12:04
- Visual Basic(VBA) 複数ページあるPDFファイル内の文字列等の情報をキーにPDFをグループ分け分割したい。 2 2022/06/25 09:51
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
ACCESSで空白のデーターをクエリで判定/識別する方法を教えてくださ
Access(アクセス)
-
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
アクセスでテキストボックスの値が空白だったら
Access(アクセス)
-
-
4
テキストボックスにクエリ結果を表示させたい
その他(データベース)
-
5
Accessでのレコード存在チェック
その他(データベース)
-
6
(ACCESS)条件に応じて、テキストボックスを表示・非表示設定
その他(データベース)
-
7
Accessで、1つの項目に複数の置換えを1度でするには?
Access(アクセス)
-
8
Access サブフォームでの選択行の取得
その他(データベース)
-
9
アクセスで#エラーを表示させない方法は?
Access(アクセス)
-
10
Access2010マクロ メッセージボックスの改行
その他(Microsoft Office)
-
11
Accessを開きなおすとテキストボックスの値がエラー#Name?になる
その他(データベース)
-
12
Access レポート印刷するときに1ページに収める方法
Access(アクセス)
-
13
新規レコード行を非表示にしたい
Access(アクセス)
-
14
ACCESS 「パラメータの入力」を消したい!!
Access(アクセス)
-
15
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
16
Access マクロビルダーで使うIF文について
Excel(エクセル)
-
17
フォームの高さを数値で指定したいのですが
Excel(エクセル)
-
18
アクセスVBAで既に開いているエクセルを閉じたい
Yahoo!ショッピング
-
19
アクセスのfilter、複数条件の記述方法を教えてください。
Access(アクセス)
-
20
選択したチェックボックスのみチェックを入れたいのですが
その他(データベース)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Accessでの検索結果表示
-
シングルクォーテーションとダ...
-
Access 縦(行)のデータを横(列)...
-
ワードでの単純作業の効率化に...
-
データベースの1要素に複数デー...
-
ACCESS で マクロの中でフィ...
-
Accessデータベースで行と列を...
-
Access フォームのデータがテー...
-
顧客IDを入力すると顧客名や住...
-
Access VBAでクエリーのレコー...
-
(ACCESS)連番取得について
-
別のDBからテーブルをコピーす...
-
サブフォームで自動採番
-
テーブル1 2 3 の結合
-
Access2000 フォームからレコ...
-
Excel 2019 のピボットテーブル...
-
「直需」の意味を教えてください
-
エクセルVBAで5行目からオート...
-
Accessでテーブルの値をテキス...
-
作番ってどういう意味でしょうか?
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
データベースの1要素に複数デー...
-
Access IF文でテーブルに存在し...
-
Access VBAでクエリーのレコー...
-
別のDBからテーブルをコピーす...
-
ACCESS で マクロの中でフィ...
-
ワードでの単純作業の効率化に...
-
Access 既に開いているフォー...
-
Access フォームのデータがテー...
-
ワードで保存するファイル名の...
-
シングルクォーテーションとダ...
-
Access レコードロックについて...
-
顧客IDを入力すると顧客名や住...
-
Accessで名寄せグループの関係...
-
Accessデータベースで行と列を...
-
ADOでレコードを閉じるタイミン...
-
Access 縦(行)のデータを横(列)...
-
ファイルメーカーの集計につい...
-
Access 新規入力画面にするコー...
-
Access クエリ このレコードセ...
-
Access2013VBA 複数のテーブル...
おすすめ情報