![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
いつもお世話になっております。
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(アクセス)
-
Accessでのレコード存在チェック
その他(データベース)
-
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
-
4
アクセスでテキストボックスの値が空白だったら
Access(アクセス)
-
5
テキストボックスにクエリ結果を表示させたい
その他(データベース)
-
6
Access サブフォームでの選択行の取得
その他(データベース)
-
7
アクセスVBAで既に開いているエクセルを閉じたい
Yahoo!ショッピング
-
8
Accessを開きなおすとテキストボックスの値がエラー#Name?になる
その他(データベース)
-
9
Access フォームのテキストボックスに半角英字のみで入力する設定は
Access(アクセス)
-
10
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
11
新規レコード行を非表示にしたい
Access(アクセス)
-
12
Accessで、フォームからフォームへ値を引き継ぐやり方
Access(アクセス)
-
13
アクセスで数値型のフィールドにNullをいれたい
その他(データベース)
-
14
「年」と「月」だけの日付の表示方法
Excel(エクセル)
-
15
Accessで、1つの項目に複数の置換えを1度でするには?
Access(アクセス)
-
16
Access マクロビルダーで使うIF文について
Excel(エクセル)
-
17
Accessで別テーブルの値をフォームに表示したい
その他(データベース)
-
18
カレントレコードが無い事を判定させる方法
Visual Basic(VBA)
-
19
Access 最後のレコードに到達するまでループ処理を行う方法
Access(アクセス)
-
20
<ACCESS>別テーブルのレコードのテキストデータが中に含まれるレコードを抽出する方法を教えてください
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Access VBAでクエリーのレコー...
-
データベースの1要素に複数デー...
-
別のDBからテーブルをコピーす...
-
Access レコードロックについて...
-
Access クロス集計クエリについて
-
Access 縦(行)のデータを横(列)...
-
結合
-
Access 既に開いているフォー...
-
テーブル1 2 3 の結合
-
Access IF文でテーブルに存在し...
-
access2007 VBAでSQLのUPDATE
-
ADOでレコードを閉じるタイミン...
-
シングルクォーテーションとダ...
-
Excel 2019 のピボットテーブル...
-
エクセルVBAで5行目からオート...
-
「直需」の意味を教えてください
-
セルの右クリックで出る項目を...
-
Vbaでアクセスからエクセルにリ...
-
変数が選択リストにありません
-
Accessでテーブル名やクエリ名...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
データベースの1要素に複数デー...
-
Access VBAでクエリーのレコー...
-
Access IF文でテーブルに存在し...
-
Access フォームのデータがテー...
-
顧客IDを入力すると顧客名や住...
-
ACCESS で マクロの中でフィ...
-
ワードでの単純作業の効率化に...
-
ワードで保存するファイル名の...
-
シングルクォーテーションとダ...
-
Access 縦(行)のデータを横(列)...
-
別のDBからテーブルをコピーす...
-
Access 既に開いているフォー...
-
Access2000 単票フォーム上の...
-
Accessデータベースで行と列を...
-
Accessで名寄せグループの関係...
-
文字化け、記号の含まれるフィ...
-
Access レコードロックについて...
-
【続続】Access2002で連番のつ...
-
ACCESSで重複したデータがある...
-
Access クエリ このレコードセ...
おすすめ情報