りんご
2022/05/13 (金) 00:28:47
c564b@0e907
For cnt = 2 To qd.Fields.Count - 2
For cnt = 2 To qd.Fields.Count - 1
DoCmd.OpenReport "R_レジメンワークシート", acViewPreview
DoCmd.OpenReport "R_レジメンワークシート", acViewReport
うまくいくかわからないけれど、とりあえず、どうでしょう。
通報 ...