| |
▼爺 さん：
こんにちは
まず、管理番号を一覧できるクエリーを作ります。
（仮に「Q_管理番号一覧」と名付けます）
SELECT 管理番号, "テーブル_1" AS テーブル名 FROM テーブル_1
UNION
SELECT 管理番号, "テーブル_2" AS テーブル名 FROM テーブル_2
UNION
SELECT 管理番号, "テーブル_3" AS テーブル名 FROM テーブル_3
UNION
SELECT 管理番号, "テーブル_4" AS テーブル名 FROM テーブル_4
テーブル名や、その数は適宜変更してください。
> コマンドボタンを押すことで、それぞれのテーブルに保存されます。
この「保存イベント」内に次のコードを組み込みます。
Dim myMSG as String
myMSG = Nz(Dlookup("テーブル名", "Q_管理番号一覧", _
"管理番号='" & Me.管理番号 & "'"), "")
'Me.管理番号は、管理番号を入力するコントロール（テキストボックス）名
If myMSG = "" Then
'〜追加処理〜
Else
Msgbox myMSG & " で既に登録されています"
'〜追加処理は中止〜
End If
動作未確認です(^_^;
が、こんな感じで大丈夫だと思います。
それでは
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
