VBAでサブフォームに自動的にデータを入力したい。

Question

メインフォームに[工期自][工期至]フィールドがあります。
サブフォームに[請求予定日]フィールドがあります。
メインとサブは[管理No.]フィールドで繋がっています。
メインフォームの"請求"テキストをクリックすると、サブフォームが開きます。

そこで[工期至]フォーカス喪失時に、自動で[請求予定日]が入るようにしようと思います。
工期の期間中、毎月月末が請求予定日になります。
[工期自]の入力が無い場合は[工期至]の月の月末のみ請求になります。

下記のようなプロシージャを書いてみましたが、結果、データが全く入りません。
ADO（←まだ全く分かりません）というのを使わないとできないでしょうか？
すいませんごちゃごちゃしてますが宜しくお願いします！

Private Sub 工期至_Exit(Cancel As Integer)

Dim SEIKYU As Date
     Dim TUKI As Integer
     Dim SYURYO As Integer
           
     DoCmd.OpenForm "サブ", acFormDS, , "管理No.='" & Me!管理No. & "'", acFormEdit
    
     If IsNull(Forms!サブ!請求書発行) Then
        If IsNull(Me.工期自.Value) Then
          SEIKYU = Me.工期至
          TUKI = Month([工期至])
        Else
          SEIKYU = Me.工期自
          TUKI = Month([工期自])
        End If
          SYURYO = Month([工期至]) + 1
 
        Do Until TUKI = SYURYO
          Forms!サブ!管理No. = "[forms]![メイン]![管理No.]"
          Forms!サブ!請求書発行 = DateSerial(Year(SEIKYU), Month(SEIKYU) + 1, 0)
          SEIKYU = DateAdd("m", 1, SEIKYU)
          TUKI = Month(SEIKYU)
        Loop
     
     DoCmd.CLOSE acForm, "サブ"
     
 End If

End Sub

nicotinism · Accepted Answer

１・デバッグの件
>いろいろ試してみたのですが、デバッグ実行できませんでした
の『いろいろ』の内容と、『デバッグ実行できませんでした』の詳細を知りたいところですが・・。
DoCmd.OpenForm　"サブ",　acFormDS,　,　"管理No='"　&　Me!管理No　&　"'",　acFormEdit
の行の次に、Stopと書き加えても止まります。
>フォーム自体にプログラムを書いているからでしょうか
ではありません。
こちらの件は自力で頑張ってください。

２・サブフォームにデータを追加したい件。
追加したいレコードが一件なら大丈夫ですが複数の場合、
Accessから見ればサブフォームの各テキストボックスは単一のコントロールでしかないので
Do　～　Loop処理しても自動的に次のレコードに追加してくれるわけでは有りません。
多分、提示されたコードが問題なく（Error　が発生しなく）動いたとしても
サブフォームには一件のレコードしか追加されません。

そこでレコードセットを開いて追加するか、追加クエリを行うかの選択肢になります。
テーブルやクエリの構造が不明なので今回はレコードセットを開きます。
※～No.　は全て　～No　に変更しています。
最後にドット（.）が来るとAccessが誤解してオブジェクトのメンバーを探しに行ってしまう為。
テーブル・クエリ・フォーム・レポート・モジュールの全てを変更してください。
その他はコード内に変更点などをコメントで入れてます。行頭のシングルクォーテーション（'）
また下記コードは必要最小限の修正にありますので、望む結果が有られない場合もあります。
さらに未検証です。（文法的なエラーは無いはずです）

追伸、一般的にAccess で『サブフォーム』といえば、フォームの中に組み込まれた子フォームの
ことを意味します。

Private Sub 工期至_Exit(Cancel As Integer)

Dim SEIKYU As Date
　　Dim TUKI As Integer
　　Dim SYURYO As Integer
　　Dim rsTo As Object　　　'複写先レコードセット

DoCmd.OpenForm "サブ", acFormDS, , "管理No='" & Me!管理No & "'", acFormEdit
　　'DoCmd.OpenForm "サブ", acFormDS, , "管理No=" & Me!管理No , acFormEdit
　　'↑管理No が数値型ならこちらを
　　Set rsTo = Forms!サブ.Form.Recordset　　'『サブ』フォームのレコードセット取得
　　
　　
　　If IsNull(Forms!サブ!請求書発行) Then
　　　　
　　　　If IsNull(Me!工期自) Then
　　　　　　SEIKYU = Me!工期至
　　　　　　TUKI = Month([工期至])
　　　　　　Else
　　　　　　SEIKYU = Me!工期自
　　　　　　TUKI = Month([工期自])
　　　　End If
　　　　
　　　　SYURYO = Month([工期至]) + 1
　　　　'↑ １２月に動かした場合にどこかで問題が発生しませんか？確認を
　　　　
　　　　Do Until TUKI = SYURYO
　　　　　　
　　　　　　rsTo.AddNew　　 '新規レコード追加開始
　　　　　　rsTo!管理No = Me!管理No
　　　　　　'Forms!サブ!管理No. = "[forms]![メイン]![管理No.]"
　　　　　　rsTo!請求書発行 = DateSerial(Year(SEIKYU), Month(SEIKYU) + 1, 0)
　　　　　　'Forms!サブ!請求書発行 = DateSerial(Year(SEIKYU), Month(SEIKYU) + 1, 0)
　　　　　　rsTo.Update　　 '新規レコード確定
　　　　　　
　　　　　　SEIKYU = DateAdd("m", 1, SEIKYU)
　　　　　　TUKI = Month(SEIKYU)
　　　　Loop
　　　　
　　End If

'DoCmd.Close acForm, "サブ"　　　　'確認のため閉じない
　　rsTo.Close: Set rsTo = Nothing
End Sub

nicotinism · Answer

まずは、
>メインとサブは[管理No.]フィールドで繋がっています
『サブ』フォームはメインフォームの中に配置されているフォームなのですかね？
提示されたコードからは独立したフォームのように思えるのですが？

取りあえず、
ステップ実行して変数やコントロールの値を追って行ってみては？
VBEの画面で適当な行でF9を押せば行が赤く変わります。
でモジュールを実行させるとその行で一旦止まりますので
F8で１ステップずつ進めて行ってみてください。
カーソルをそれぞれの変数などに合わせると値が表示されます。
（メニューバーの『デバッグ』と『実行』のところのメニューもみてね）
また、イミディエイトウィンドウで例えば
?Me.工期至 ででも確認できます。
此処まで確認してみては。

で問題が無かったならば。

次に、サブフォームは開いた当初、複数のレコードが表示されていて
Do ～ Loop処理の中でそのレコードの更新を行いたいのですか？
それともレコードを追加させたいのですか？

※Accessのバージョンは必ず記入しましょう！
当方Access2002なので期待に添えない場合も有ります。

VBAでサブフォームに自動的にデータを入力したい。

１・デバッグの件

まずは、

この回答への補足

似たような質問が見つかりました

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング