| 
    
     |  | ACCESS初心者です。手探りで伝票作成用レポートを作成しています。 
 レポートはA4に3連タイプの形式があるものに印刷するよう作成し、
 売上伝票7行・売上伝票7行2・売上伝票7行3 と3つレポートを作り、
 売上伝票7行へサブレポートとして売上伝票7行2と3をはめ込んでいます。
 
 下記のように7行以内なら7行と認識させ7行以上あれば8行目からは次の
 ページへ印刷されるようにするようにしたいのですが、
 「Dcountの抽出条件でデータ型が一致しません」となります。
 
 DCountの条件の  "売上ID='" & Me!売上ID & "'" の意味をわかりやすく教えていただけると助かります。
 
 Option Explicit
 Option Compare Database
 Dim AAA As Integer
 Dim BBB As Integer
 
 
 Private Sub グループヘッダー0_Format(Cancel As Integer, FormatCount As Integer)
 AAA = 0
 BBB = DCount("売上ID", "売上明細", "売上ID='" & Me!売上ID & "'")
 
 
 End Sub
 
 Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
 AAA = AAA + 1
 Me!テキスト50 = AAA
 
 If AAA Mod 7 = 0 Then
 
 If AAA < BBB Then
 Me!改ページ48.Visible = True
 
 ElseIf AAA = BBB Then
 Me!テキスト50.Visible = True
 Me!商品ID.Visible = True
 Me!数量.Visible = True
 Me!単位.Visible = True
 Me!単価.Visible = True
 Me!金額.Visible = True
 
 Else
 Me!テキスト50.Visible = False
 Me!商品ID.Visible = False
 Me!数量.Visible = False
 Me!単位.Visible = False
 Me!単価.Visible = False
 Me!金額.Visible = False
 End If
 
 
 Me!改ページ48.Visible = False
 
 If AAA < BBB Then
 Me.NextRecord = True
 Me!テキスト50.Visible = True
 Me!商品ID.Visible = True
 Me!数量.Visible = True
 Me!単位.Visible = True
 Me!単価.Visible = True
 Me!金額.Visible = True
 
 ElseIf AAA = BBB Then
 Me.NextRecord = False
 Me!テキスト50.Visible = True
 Me!商品ID.Visible = True
 Me!数量.Visible = True
 Me!単位.Visible = True
 Me!単価.Visible = True
 Me!金額.Visible = True
 
 Else
 Me.NextRecord = False
 Me!テキスト50.Visible = False
 Me!商品ID.Visible = False
 Me!数量.Visible = False
 Me!単位.Visible = False
 Me!単価.Visible = False
 Me!金額.Visible = False
 
 End If
 
 End Sub
 
 長くなりましたがアドバイスのほうよろしくお願いいたします。
 
 |  |