やってみたけど>>967のようにはならなかった
でも18件ｺｯｷﾘのとき空のページが出てきたんでちょっと直した

Private Sub グループフッター1_Format(Cancel As Integer, FormatCount As Integer)
　　i = 0: j = DCount("*", "q住所", "営業員cd=" & Me.営業員cd)
End Sub

Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
　　i = i + 1
　　If i Mod 18 = 0 Then
　　　　If i < j Then　　　'*******ここから*******
　　　　　　Me.bpage.Visible = True
　　　　ElseIf i = j Then
　　　　　　viv True
　　　　Else
　　　　　　viv False
　　　　End If　　　'*******ここまで******
　　Else
　　　　Me.bpage.Visible = False
　　　　If i < j Then
　　　　　　Me.NextRecord = True: viv True
　　　　ElseIf i = j Then
　　　　　　Me.NextRecord = False: viv True
　　　　Else
　　　　　　Me.NextRecord = False: viv False
　　　　End If
　　End If
End Sub

Private Sub viv(f As Boolean)
　　顧客番号.Visible = f: 氏名.Visible = f: 住所.Visible = f
End Sub