お世話になっております。

質問

お世話になっております。

さて、accessにて以下の３点がわかりませんので、
教えていただきたく存じます。

(1)２つのテーブルを１つのレポートにする場合に、
パラメーターをテキストボックスから随時入力できる形にしたい
　※クリエにて条件を　[Forms]![フォーム名]![テキストボックス名]　にしましたが、
　　テキストボックスに条件を入力しても、なぜか別にポップアップ画面が表示されます。

(2)上記レポートにて、表形式にて一覧リストを作成する場合に、
５レコードごとに、枠線の下線を太くし、見やすくしたい

(3)レポートにてレコードを２列表示にしたいが、なぜか２列目がページの外に表示される

以上、よろしくお願いいたします。

回答No.1

piroin654 · ベストアンサー

なかなかレスがつかないようですが。

(1)について

たぶん、表記上のミスがあると思います。
[Forms]![フォーム名]![テキストボックス名]
をもう一度確認してみてください。
たとえば、[フォーム名]で[ フォーム名]のように
半角隙間があったり、フォーム名がデータベースウィンドウ
に表示されている名前と違っていたり、テキストボックス名
が微妙に違っていたりなどです。
クエリの抽出条件の部分をコピーしてメモ帳に
貼り付け、何かいらないものがくっついて
いないかも確認してみてください。

(2)について

(その１)
結構大変かも。設定は難しくないのですが。
レポートのコード表の一番上のところで、

Option Compare Database
Option Explicit
Dim i As Integer

のように、
Dim i As Integer
を追加して、保存してください。

(その2)
次に、詳細のテキストボックスの下側に引いた直線をL2という
名前にします。名前は直線をポイントし、プロパティシート
を表示して名前をL2と入力して保存してください。続いて

Private Sub Report_Open(Cancel As Integer)
i = 0
End Sub

Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
i = i + 1
If cnt Mod 5 = 0 Then
Me!L2.BorderWidth = 2
Else
Me!L2.BorderWidth = 1
End If
End Sub

以上を貼り付け保存してください。普通ならばこれで
レコードが5つ表示される毎に下線が太く表示されます。
ところが、何らかの理由で最初の一行目の下線が太くなり、
その後5レコード毎に下線が太くなることがあります。
理由はいろいろですが、そのような状況ならば、コードを

Private Sub Report_Open(Cancel As Integer)
i = -1
End Sub

Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
If cnt Mod 5 = 0 Then
Me!L2.BorderWidth = 2
Else
Me!L2.BorderWidth = 1
End If
i = i + 1
End Sub

のように設定してみてください。尚、
Me!L2.BorderWidth = 2
の=2の2は線の太さを設定する数値です。
一応、これで確認してみてください。

(3)について
レコードを２列表示する場合、すべてのフィールドは
レポートの詳細部分に入れる必要があります。
それでも、フィールドの項目が多い場合やフィールドの幅が
広い場合などでレポートの幅が広くなりすぎて収まり
きれなくなりページをまたぐ場合があります。
その場合は3列あるいは４列にすることに
なるかもしれません。あるいは、最初からレポートを
横にしてデザインすることで対応できるかもしれません。
または、フィールドを設定しているテキストボックスの幅を
狭くするかです。

以上、急ぎ足で書いたので抜けた部分があるかもしれません。

回答No.2

piroin654

訂正です。
Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
i = i + 1
If cnt Mod 5 = 0 Then

で、

If cnt Mod 5 = 0 Then

を

If i Mod 5 = 0 Then

としてください。2箇所あります。