No.4ベストアンサー
- 回答日時:
はい、マズイ点と言うか、何でこうじゃないといけないの?
というかアクセスのバグなのか、よく分からないのですが、
詳細セクションの"高さ"プロパティ変更コードを、他のプロパティ変更コードよりも後に持ってきて下さい
今回のコーディングでは、
'~~~~~~~~~~
If i_cnt <= 1 Then
Me.Section(0).Height = 240
Else
hei = 240 * i_cnt
'Me.Section(0).Height = hei 'コメントアウト
Me!w_a.Height = hei
Me!直線20.Height = hei
Me!直線21.Height = hei
Me!直線22.Height = hei
Me!直線23.Height = hei
Me!直線24.Height = hei
Me!直線25.Height = hei
Me!直線12.Top = hei
Me.Section(0).Height = hei '←ここに移動
End If
'~~~~~~~~~~
こうする事が望ましいと思われます
(もちろん、詳細のフォーマットイベントプロシージャで行います)
アクセスは、フォームで出来る事が、レポートでは出来ない場合が多いので苦労します(T_T)
(または別の手順で行う...)
早速試してみたんですけど、ダメでした...
条件のi_cntのIf文で、可変にならないんです!(-_-;)
ある程度、Accessのレポートは使いこなしてきたつもりでしたが、こんなちょっとした設定にここまで悩まされるなんて、思いもしませんでした。悔しい~!!(ーー;)
No.3
- 回答日時:
こんなサンプル文を作成してみました
奇数行だったら、高さ1000 twip 背景色を赤色にする
偶数行だったら、高さ500 twip 背景色を黄色にする
にするコーディングです
'~~~~~~~~~~
Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
Static a As Integer
a = a + 1
If (a Mod 2) = 0 Then
Me.Section(0).Height = 1000 '高さを1000twipにする
Me.Section(0).BackColor = 255 '背景色を赤色にする
Else
Me.Section(0).Height = 500 '高さを500twipにする
Me.Section(0).BackColor = RGB(255, 255, 0) '背景色を黄色にする
End If
End Sub
'~~~~~~~~~~
このままレポートの詳細のフォーマット時イベントプロシージャに貼り付けて確認してみてください
もし、これでもダメな場合は、
どのようなエラーメッセージ?等がでるのか教えて下さい
(またはどのような状態か?)
何度もすみませんm(_ _)m
返答が遅くなってしまって、すみません!!
Ifの条件には、
For i = 55 To 1000 Step 55
i_cnt = i_cnt + 1
If len_wa <= i Then
Exit For
End If
Next i
のi_cntの値で試してみたんですけど、どうもこの先で、
If i_cnt <= 1 Then
Me.Section(0).Height = 240
Else
hei = 240 * i_cnt
Me.Section(0).Height = hei
Me!w_a.Height = hei
Me!直線20.Height = hei
Me!直線21.Height = hei
Me!直線22.Height = hei
Me!直線23.Height = hei
Me!直線24.Height = hei
Me!直線25.Height = hei
Me!直線12.Top = hei
End If
としたら、可変にならないんです。
教えて頂いた、色で可変の文なら上手くいってたんですよ。
どこかマズイ点、ありますか?
No.2
- 回答日時:
その後、どのようになったでしょうか?
もしダメでしたら、以下のことについて教えて下さい
(1)レポートの種類は「単票」ですか?それとも「帳票」ですか?
詳細セクションのプロパティ→「書式」→「改ページ」にて確認できます
※ページヘッダー(フッター)または、グループヘッダー(フッター)が付加されていない状態で、"しない"だと「帳票」です
(2)現在の詳細セクションの「高さ」はどのくらいですか?
詳細セクションのプロパティ→「書式」→「高さ」にて確認できます
前回のコーディングで、
>詳細.Height = 2000
と書きましたが、これはtwip単位で記しております
twip単位とは...
「1cm」は、「567twip」です( 1 cm = 567 twip )
もし、前回のコーディングをそのまま使用していれば、(条件文だけ変えて...)
「高さ」の値が"3.5cm"以上だと視覚的にどのように動作しているか分からない状態になってしまいます
あと余談ですが、詳細セクションにあるテキストボックスのプロパティの「書式」→「印刷時拡張」を"はい"にすると、文字量が多ければ自動で詳細セクションが拡張されます
この回答への補足
レポート自体は、帳票式で、
現在の詳細セクションの高さは、0.46cm
(twipの記載では、240)
詳細セクションのテキストの、印刷自動拡張は、"いいえ"
になっています。
これで、何か原因が見つかれば良いのですが...
どんなもんでしょう?(-_-;)
No.1
- 回答日時:
詳細セクションのフォーマットイベントを使用しましょう
'~~~~~~~~~~
'サンプル(IF文には、条件を指定して下さい)
Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
If (CSng(Me![Ver]) Mod 2) > 0 Then
詳細.Height = 2000
Else
詳細.Height = 1000
End If
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- 高校 対数方程式につきまして 4 2022/05/05 07:55
- Visual Basic(VBA) access count数を変数に格納 2 2022/03/30 19:21
- その他(プログラミング・Web制作) pythonのグローバル変数 2 2022/11/25 18:02
- Visual Basic(VBA) Excel のユーザー定義関数でソルバーが動作しない 1 2022/09/05 19:51
- Oracle 列1と列2の関係性で列3の条件に一致するレコードを抽出したい 1 2022/04/13 07:46
- 高校 変数置き換えにつきまして 6 2022/05/01 16:44
- 教えて!goo ベストアンサーを選定出来る条件を変更・・・以前との違いが無いように思いますが? 何が言いたいのでしょ 7 2023/04/01 16:43
- Visual Basic(VBA) Accessフォームで全レコードを指定のExcelのセルへ転送し印刷する方法について 2 2022/09/08 18:23
- ドメイン・サーバー・クラウドサービス 独自ドメインでのNSレコード設定 1 2023/07/12 18:36
- C言語・C++・C# C言語初心者 構造体 課題について 1 2023/03/10 19:30
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
メモリのセクションに関して
-
DLL共用セクションの質問です
-
u_shortなどの省略した宣言につ...
-
CPUの考え方を教えてください ...
-
東芝のDynabookなのですがアン...
-
ルート要素ノードが2個ある場合?
-
あるノードリストに、特定の名...
-
XMLで要素が記述された順番に意...
-
UTF-8でエンコーディングとはど...
-
VBSでxmlの値を書き換えたい
-
SNMP リンクダウンとノードダ...
-
双方向リストの関数
-
XMLで特殊文字を扱うにはどうし...
-
Windowsで見かけるxmlファイル...
-
XML同じ名前の要素を自動で集約...
-
TreeViewの再表示のちらつきを...
-
XSLで、XMLの空タグを制御したい。
-
VB.NETで最後フォのフォ...
-
xmlファイルが上手にHTMLに変換...
-
同じタグ名の項目取得
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBA XML の置換方法
-
メモリのセクションに関して
-
Access2000レポート
-
translateの応用?文字の置換
-
CDATAセクションに<![CDATA[と...
-
東芝のDynabookなのですがアン...
-
CPUの考え方を教えてください ...
-
バッチファイルでテキストファ...
-
XML、XSLTの適応エラー(IEから...
-
XMLで要素が記述された順番に意...
-
XML同じ名前の要素を自動で集約...
-
xmlファイルが上手にHTMLに変換...
-
UTF-8でエンコーディングとはど...
-
excelにてweb関数を使い、webデ...
-
XPathで途中に名前空間が設定さ...
-
SNMP リンクダウンとノードダ...
-
head要素
-
XMLデータを整形して、ブラウザ...
-
VBSでxmlの値を書き換えたい
-
同じタグ名の項目取得
おすすめ情報