お世話になります。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で質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Access(アクセス) Accessでセレクタをダブルクリックで別フォームで詳細表示 3 2022/12/20 10:36
- Access(アクセス) チェックボックスにチェックが入った後の挙動 1 2022/08/21 12:39
- Access(アクセス) AccessVBAで降順にするテーブル作成クエリを使用して作成したテーブルを削除し同一のテーブル作成 1 2023/01/06 11:17
- 経営情報システム accessでの請求管理について 12 2022/06/11 16:20
- Visual Basic(VBA) 検索のユーザーフォームの表示について 1 2023/03/27 23:31
- SQL Server AccessのInsertクエリのあとつづけてDeleteクエリを行いたいがSQLでどう書いたらいい 3 2023/05/27 14:12
- Excel(エクセル) VBA でvlookup エラーなどは削除したい 8 2022/12/30 04:03
- Access(アクセス) Access IF文でテーブルに存在しない場合の処理について 2 2022/10/10 18:09
- Visual Basic(VBA) ①ExcelVBAでカレンダーを作り、別のユザーフォームで日付を入力したいのですがエラーになります。 1 2023/02/17 18:39
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Access2013VBA 複数のテーブル...
-
テーブル1 2 3 の結合
-
文字化け、記号の含まれるフィ...
-
Accessで名寄せグループの関係...
-
SQLの結果がNULLならタブを出す...
-
ACCESS で マクロの中でフィ...
-
ADOでレコードを閉じるタイミン...
-
ファイルメーカーの集計につい...
-
アクセスクエリの計算
-
Excel 2019 のピボットテーブル...
-
Accessのリンクテーブルのパス...
-
DBのタイプの指定とサイズにつ...
-
IT用語について質問です。 以前...
-
accessでのフォームの連携について
-
「直需」の意味を教えてください
-
APN設定について教えていただけ...
-
BIOSでAHCIに設定したいが、項...
-
ACCESSでテーブルのフィールド...
-
Excelで空白以外の値がある列の...
-
エクセルVBAで5行目からオート...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Access VBAでクエリーのレコー...
-
Access IF文でテーブルに存在し...
-
データベースの1要素に複数デー...
-
ワードでの単純作業の効率化に...
-
Access フォームのデータがテー...
-
ACCESS で マクロの中でフィ...
-
Accessデータベースで行と列を...
-
ワードで保存するファイル名の...
-
別のDBからテーブルをコピーす...
-
ADOでレコードを閉じるタイミン...
-
Accessで名寄せグループの関係...
-
シングルクォーテーションとダ...
-
Access 縦(行)のデータを横(列)...
-
顧客IDを入力すると顧客名や住...
-
Access クエリ このレコードセ...
-
(ACCESS)連番取得について
-
Access2000 単票フォーム上の...
-
Access 既に開いているフォー...
-
文字化け、記号の含まれるフィ...
-
Access2013VBA 複数のテーブル...
おすすめ情報