完成したコードです。
Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
i = i + 1
If i Mod 20 = 0 Then
Me![直線109].Visible = True
If i <= j Then
Me![bpage].Visible = True
Else
Me![工事明細].Visible = False
Me![工事明細NO].Visible = False
Me![数量].Visible = False
Me![単位].Visible = False
Me![単価].Visible = False
Me![金額].Visible = False
Me![摘要].Visible = False
End If
Else
Me![bpage].Visible = False
If i < j Then
Me.NextRecord = True
Me![工事明細].Visible = True
Me![工事明細NO].Visible = True
Me![数量].Visible = True
Me![単位].Visible = True
Me![単価].Visible = True
Me![金額].Visible = True
Me![摘要].Visible = True
ElseIf i = j Then
Me.NextRecord = False
Me![工事明細].Visible = True
Me![工事明細NO].Visible = True
Me![数量].Visible = True
Me![単位].Visible = True
Me![単価].Visible = True
Me![金額].Visible = True
Me![摘要].Visible = True
Else
Me.NextRecord = False
Me![工事明細].Visible = False
Me![工事明細NO].Visible = False
Me![数量].Visible = False
Me![単位].Visible = False
Me![単価].Visible = False
Me![金額].Visible = False
Me![摘要].Visible = False
End If
End If
End Sub
これを実行するとこのようなレポートが出ます。
ほぼマイクロソフトのコードを少し変更しただけです。
いちからここまでコードを組めといわれてもできません・・
今ある知識をアレンジすることも大事なことです。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
去年本を読めなかった分今年はすごい勢いで本を読んでいます。
本をたくさん読むと、頭の回転が速くなってきているように感じます。
今年は200冊くらいは読みたいです。
本日も最後までお読み頂きありがとうございます。
