OKWAVEのAI「あい」が美容・健康の悩みに最適な回答をご提案!
-PR-
締切り
済み

Access2000レポート

  • すぐに回答を!
  • 質問No.131416
  • 閲覧数567
  • ありがとう数3
  • 気になる数0
  • 回答数4
  • コメント数0

お礼率 68% (84/122)

条件によって、レコード一件ずつ、詳細セクションの高さを変えたいんですけど、
Me.Section(0).Height=変数
(変数は、条件によってレコード一件ずつ変わります)
で出来ないんです...
何か間違っていますか?
通報する
  • 回答数4
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

回答 (全4件)

  • 回答No.1
レベル7

ベストアンサー率 50% (9/18)

詳細セクションのフォーマットイベントを使用しましょう '~~~~~~~~~~ 'サンプル(IF文には、条件を指定して下さい) Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer) If (CSng(Me![Ver]) Mod 2) > 0 Then 詳細.He ...続きを読む
詳細セクションのフォーマットイベントを使用しましょう
'~~~~~~~~~~
'サンプル(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
お礼コメント
Kalen_F

お礼率 68% (84/122)

ご返答、有難うございます!
試してみたのですが、Ifの条件分岐を使っても、ダメでした...(ーー;)
投稿日時 - 2001-09-08 14:24:01


  • 回答No.2
レベル7

ベストアンサー率 50% (9/18)

その後、どのようになったでしょうか? もしダメでしたら、以下のことについて教えて下さい (1)レポートの種類は「単票」ですか?それとも「帳票」ですか? 詳細セクションのプロパティ→「書式」→「改ページ」にて確認できます ※ページヘッダー(フッター)または、グループヘッダー(フッター)が付加されていない状態で、"しない"だと「帳票」です (2)現在の詳細セクショ ...続きを読む
その後、どのようになったでしょうか?
もしダメでしたら、以下のことについて教えて下さい

(1)レポートの種類は「単票」ですか?それとも「帳票」ですか?
詳細セクションのプロパティ→「書式」→「改ページ」にて確認できます
※ページヘッダー(フッター)または、グループヘッダー(フッター)が付加されていない状態で、"しない"だと「帳票」です

(2)現在の詳細セクションの「高さ」はどのくらいですか?
詳細セクションのプロパティ→「書式」→「高さ」にて確認できます

前回のコーディングで、
>詳細.Height = 2000
と書きましたが、これはtwip単位で記しております
twip単位とは...
「1cm」は、「567twip」です( 1 cm = 567 twip )

もし、前回のコーディングをそのまま使用していれば、(条件文だけ変えて...)
「高さ」の値が"3.5cm"以上だと視覚的にどのように動作しているか分からない状態になってしまいます

あと余談ですが、詳細セクションにあるテキストボックスのプロパティの「書式」→「印刷時拡張」を"はい"にすると、文字量が多ければ自動で詳細セクションが拡張されます
補足コメント
Kalen_F

お礼率 68% (84/122)

レポート自体は、帳票式で、
現在の詳細セクションの高さは、0.46cm
 (twipの記載では、240)
詳細セクションのテキストの、印刷自動拡張は、"いいえ"

になっています。
これで、何か原因が見つかれば良いのですが...
どんなもんでしょう?(-_-;)
投稿日時 - 2001-09-11 13:21:51
  • 回答No.3
レベル7

ベストアンサー率 50% (9/18)

こんなサンプル文を作成してみました 奇数行だったら、高さ1000 twip 背景色を赤色にする 偶数行だったら、高さ500 twip 背景色を黄色にする にするコーディングです '~~~~~~~~~~ Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer) Static a As Integer ...続きを読む
こんなサンプル文を作成してみました
奇数行だったら、高さ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
お礼コメント
Kalen_F

お礼率 68% (84/122)

返答が遅くなってしまって、すみません!!

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
としたら、可変にならないんです。
教えて頂いた、色で可変の文なら上手くいってたんですよ。
どこかマズイ点、ありますか?
投稿日時 - 2001-09-17 15:22:15
  • 回答No.4
レベル7

ベストアンサー率 50% (9/18)

はい、マズイ点と言うか、何でこうじゃないといけないの? というかアクセスのバグなのか、よく分からないのですが、 詳細セクションの"高さ"プロパティ変更コードを、他のプロパティ変更コードよりも後に持ってきて下さい 今回のコーディングでは、 '~~~~~~~~~~ If i_cnt <= 1 Then Me.Section(0).Height = 240 ...続きを読む
はい、マズイ点と言うか、何でこうじゃないといけないの?
というかアクセスのバグなのか、よく分からないのですが、
詳細セクションの"高さ"プロパティ変更コードを、他のプロパティ変更コードよりも後に持ってきて下さい

今回のコーディングでは、
'~~~~~~~~~~
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)
(または別の手順で行う...)
お礼コメント
Kalen_F

お礼率 68% (84/122)

早速試してみたんですけど、ダメでした...
条件のi_cntのIf文で、可変にならないんです!(-_-;)
ある程度、Accessのレポートは使いこなしてきたつもりでしたが、こんなちょっとした設定にここまで悩まされるなんて、思いもしませんでした。悔しい~!!(ーー;)
投稿日時 - 2001-09-17 20:11:41
このQ&Aで解決しましたか?
関連するQ&A
-PR-
-PR-
こんな書き方もあるよ!この情報は知ってる?あなたの知識を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


いま みんなが気になるQ&A

関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ