Microsoft Access 掲示板

登録画面の構成に関して / 7

15 コメント
views
5 フォロー
7

画像は私のイメージしていた通りのものです。

メインフォームのコマンドボタンでサブフォームにレコード追加するときのサンプルコードを例示しておきます。
コントロール名等は適当ですので参考程度にして作成してみてください。

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_契約マスターと連結させた方がいいかも知れませんね。
とりあえず作成してみて、行き詰ったらまた質問してください。

通報 ...