hatena
hatena
2021/04/30 (金) 15:32:49
画像は私のイメージしていた通りのものです。
メインフォームのコマンドボタンでサブフォームにレコード追加するときのサンプルコードを例示しておきます。
コントロール名等は適当ですので参考程度にして作成してみてください。
Private Sub cmdAddNew_Click()
Dim 開始年月 As Date
開始年月 = DateSerial(Me.開始年,Me.開始月,1)
Dim 月数 As Long
月数 = Datediff("m", 開始年月, DateSerial(Me.終了年,Me.終了月,1))
Dim i As Long
With Me.サブフォームコントロール名.Form.Recordset
For i = 0 to 月数
.AddNew
!契約番号 = Me.契約番号
!請求先 = Me.請求先
!契約名 = Me.契約名
!月額 = Me.月額
!請求月 = DateAdd("m",i,開始年月)
'・・・・
.UpDate
Next
End With
End Sub
ここまで書いてちょっと思ったのは、メインフォームは非連結にせずに、T_契約マスターと連結させた方がいいかも知れませんね。
とりあえず作成してみて、行き詰ったらまた質問してください。
通報 ...