Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

765 / 9994

←次へ　｜　前へ→


	【12538】7行レポート作成について（初心者です）

asahi - 14/5/14(水) 14:18 -


	引用なし

	パスワード

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

長くなりましたがアドバイスのほうよろしくお願いいたします。

343 hits

▼

【12538】7行レポート作成について（初心者です） asahi 14/5/14(水) 14:18