お世話になります。ACCESS2000で制作しています
主テーブル(マスタ)に顧客コード(主キー)、
サブテーブル(トラン)に顧客コードと枝番
というフィールドがあります。
顧客コードでリレーションシップを結んでいます。
それぞれのテーブルからクエリを経てフォームをつくり
(Q_マスタ→F_マスタ、Q_トラン→F_トラン)
また、検索フォームも別に作っています。
F_トランはF_マスタに埋め込んでいます。
検索フォームで検索して該当するデータが無い場合
DoCmd.OpenForm "F_マスタ", , , , acFormAdd
で新規フォームを呼び出します。
このときサブフォームの枝番に自動的に「1」を入れたいのですが
(開く時でも読み込み時でもいつでもいいのですが)
どうしたら良いのでしょうか?
ちなみに今は
サブフォームのプロシージャで
Private Sub Form_Open(Cancel As Integer)
If Me.NewRecord Then
Me![枝番] = 1
Else
Me![枝番] = DMax("枝番", "Q_トラン") + 1
End If
End Sub
としています。
こうするとQ_マスタの一番上のデータが
例えばQ_トランレコードを2つ持っていると
「3」と出てしまいます。
どのようにすればいいのでしょうか。
よろしくお願いします。
No.1ベストアンサー
- 回答日時:
こんにちは。
今できていることは、検索フォームで顧客コードを検索した結果、検索した顧客コードに一致した顧客のF_マスタを開き、無い場合は新規レコードのF_マスタを開く。
やりたいことは、(自分の勝手な想像もはいっていますが)
【新規レコードのF_マスタを開くとき】
F_マスタの顧客コードを自動採番
F_トランの枝番を1
【一致した顧客のF_マスタを開いたとき】
F_トランの枝番を自動採番(顧客コード単位の枝番+1)
でよろしいでしょうか?
そうであれば、下記のようにすればいいかもしれません。
F_マスタの開くときのイベントでのコードを下記とする。
Private Sub Form_Open(Cancel As Integer)
If Me.Recordset.EOF Then
Me.Requery
Me.顧客コード = DMax("顧客コード", "Q_マスタ") + 1
Me.[F_トラン]![枝番] = 1
Else
If MsgBox("新しい枝番を追加しますか?", vbYesNo) = vbYes Then
Me.[F_トラン]![枝番] = DMax("枝番", "Q_トラン", "顧客コード=" & Me.顧客コード) + 1
End If
End If
End Sub
F_トランの開くときのイベントでのコードを下記とする。
Private Sub Form_Open(Cancel As Integer)
DoCmd.GoToRecord , , acNewRec
End Sub
ご参考になれば幸いです。m(__)m
ShadowMoonさん、回答ありがとうございます。
早速やってみたところ、うまく動きました。
厳密にはShadowMoonさんの想像なさってたのとは
ちょっと違ったのですが
応用も利きまして、大変参考になりました。
ほっとしています。
ありがとうございました
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ワードでの単純作業の効率化に...
-
Access クエリ このレコードセ...
-
Access 縦(行)のデータを横(列)...
-
ACCESS で マクロの中でフィ...
-
ワードで保存するファイル名の...
-
テーブル1 2 3 の結合
-
Access IF文でテーブルに存在し...
-
Access VBAでクエリーのレコー...
-
Access 新規入力画面にするコー...
-
Access フォームのデータがテー...
-
Access 既に開いているフォー...
-
Excelを8名で共有し、顧客デー...
-
★Access2002★複数店舗の顧客管理
-
顧客IDを入力すると顧客名や住...
-
シングルクォーテーションとダ...
-
Excel 2019 のピボットテーブル...
-
Accessでテーブル名やクエリ名...
-
「直需」の意味を教えてください
-
エクセルVBAで5行目からオート...
-
変数が選択リストにありません
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Access フォームのデータがテー...
-
Access IF文でテーブルに存在し...
-
Access VBAでクエリーのレコー...
-
ワードでの単純作業の効率化に...
-
ACCESS で マクロの中でフィ...
-
データベースの1要素に複数デー...
-
顧客IDを入力すると顧客名や住...
-
Accessで名寄せグループの関係...
-
別のDBからテーブルをコピーす...
-
シングルクォーテーションとダ...
-
Access 縦(行)のデータを横(列)...
-
Accessデータベースで行と列を...
-
ワードで保存するファイル名の...
-
Access 既に開いているフォー...
-
ADOでレコードを閉じるタイミン...
-
Access クロス集計クエリについて
-
ACCESS2003 Aアクロバットを介...
-
Access レコードロックについて...
-
Access2000 単票フォーム上の...
-
ファイルメーカーの集計につい...
おすすめ情報