[過去ﾛｸﾞ] Access VBA 質問スレ Part1 (1002ﾚｽ)

Access VBA 質問スレ Part1 http://mevius.5ch.net/test/read.cgi/tech/1328536426/

上下前次1-新
通常表示 512ﾊﾞｲﾄ分割 ﾚｽ栞
抽出解除 ﾚｽ栞

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

156: デフォルトの名無しさん [sage] 2013/09/09(月) 13:20:44.56 >>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が変わったら改ページな http://mevius.5ch.net/test/read.cgi/tech/1328536426/156

158: デフォルトの名無しさん [] 2013/09/10(火) 00:16:36.47 >>156 もう少し教えてください。。。 明細が５明細あった場合、 コードA 00001 00002 00003 00004 改ページ コードA 00005 改ページ コードB 00001 00002 00003 改ページ コードC 00001 こんな感じで出したいのですが http://mevius.5ch.net/test/read.cgi/tech/1328536426/158

159: デフォルトの名無しさん [sage] 2013/09/10(火) 02:26:08.63 >>158 >>156が理解できないなら、VBAでやるのやめとけ http://mevius.5ch.net/test/read.cgi/tech/1328536426/159

---

ﾒﾓ帳

(0/65535文字)

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.030s