Access VBA 質問スレ Part1

158 名前：デフォルトの名無しさん mailto:sage [2013/09/09(月) 13:20:44.56 .net] >>154 マジレスしといてやるが、VBAでやるよりよっぽど>>153の方法の方が良いぞ だがあえてVBAでやりたいなら 明細セクションの最初と最後に改ページコントロール(改ページ1,2)を配置して Dim 行数 As Integer Dim 前コード Private Sub レポートヘッダー_Format(Cancel As Integer, FormatCount As Integer) &nbsp; &nbsp; Me.改ページ1.Visible = False &nbsp; &nbsp; Me.改ページ2.Visible = False &nbsp; &nbsp; 前コード = Me.フィールド5 End Sub Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer) &nbsp; &nbsp; If Me.フィールド5 <> 前コード Then &nbsp; &nbsp; &nbsp; &nbsp; Me.改ページ1.Visible = True &nbsp; &nbsp; &nbsp; &nbsp; 行数 = 0 &nbsp; &nbsp; Else &nbsp; &nbsp; &nbsp; &nbsp; Me.改ページ1.Visible = False &nbsp; &nbsp; End If &nbsp; &nbsp; 前コード = Me.フィールド5 &nbsp; &nbsp; 行数 = 行数 + 1 &nbsp; &nbsp; If 行数 > 4 Then &nbsp; &nbsp; &nbsp; &nbsp; Me.改ページ2.Visible = True &nbsp; &nbsp; &nbsp; &nbsp; 行数 = 0 &nbsp; &nbsp; Else &nbsp; &nbsp; &nbsp; &nbsp; Me.改ページ2.Visible = False &nbsp; &nbsp; End If End Sub こんな感じ。この例ではフィールド5が変わったら改ページな

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef