質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

88.93%

Access 帳票フォームのレコードソース

解決済

回答 1

投稿

  • 評価
  • クリップ 0
  • VIEW 177

access

score 8

Accessの帳票フォームについて質問です。

非連結のフォーム(フォームのプロパティ - 書式 - 既定のビュー は "帳票フォーム"に設定)
があります。
これのプロパティ - レコードソースを、同じDBのT_資格一覧(資格の一覧が格納されているテーブル)に設定すると、以下のような感じになります。
(綺麗な一覧になっています。)

イメージ説明

ところが、レコードソース を別のDBのT_資格一覧(上記のT_資格管理と中身は全く同じ)から
DAOレコードセットとして設定すると、以下のように1行ずつの表示になってしまいます。

イメージ説明

データの中身としては同じ結果ではありますが、後者ではあまりに見栄えが悪いです。
どこかの設定で前者のように綺麗な一覧にはならないのでしょうか。

ちなみに、DAOレコードセッットとして設定したコードは以下の通りです。

Private Sub Form_Load()

Dim strSQL As String
'データソースをセット
strSQL = "select 資格コード , 資格名 from T_資格一覧 ;"
Set Me.Recordset = db.OpenRecordset(strSQL)   '変数dbは外部DBと接続してます

End Sub

  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 過去に投稿した質問と同じ内容の質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

質問への追記・修正、ベストアンサー選択の依頼

  • hatena19

    2020/07/20 20:38 編集

    db変数が外部接続したデータベースということですね。
    それなら、レコードソースプロパティにIN句で外部データベースに接続するSQLを設定したほうが制約が少ないと思います。
    Recordsetプロパティにレコードセットをセットする方法だとFilterプロパティやOrdrbyプロパティが使えなかったり、メインサブフォーム形式でリンクフィールドが使えないという制約があります。

    キャンセル

  • access

    2020/07/20 21:49

    ご回答有難うございます。

    >>Recordsetプロパティにレコードセットをセットする方法だとFilterプロパティやOrdrbyプロパティが使えなかったり、メインサブフォーム形式でリンクフィールドが使えないという制約があります。
    そうなのですね。制約については知りませんでした。

    >>1行しか表示されないのは、sousukeさんも指摘されているように帳票フォームになっていないからではないかと思われます。
    全件出力はされている(画像右の上下スクロールで移動できる)のですが、1行分の高さしか表示されないのがどうしてかなぁと・・・帳票フォームになっていることは間違いないです。
    境界線スタイルをサイズ調整可にしてウィンドウを上下に延ばすと1つ目の画像のように綺麗になるのですが、一度フォームを閉じるとまた1行分の高さしか表示されないのです。
    プロパティに「幅」はあるんですが、なぜか「高さ」がないのですね・・

    キャンセル

  • access

    2020/07/20 21:59

    追記です。
    DoCmd.MoveSize でフォームの高さや位置を指定することによりある程度綺麗に表示ができました。
    お騒がせいたしました。ご回答有難うございました。

    キャンセル

回答 1

checkベストアンサー

0

縦スクロールバーが表示されているので、帳票フォームですが、ウィンドウの高さが1行分になってますね。
なぜかというと、フォームを開いた直後は非連結なので1行分しか表示されないので、それを基準にフォームの高さが決まります。
「レコードソース」プロパティを設定しておけばそうならないので、IN句のSQLをレコードソースに設定すればいいでしょう。

「Recordsetプロパティにレコードセットを設定する方法」でいくなら、読み込み時にフォームの高さを設定すればいいでしょう。

Private Sub Form_Load()
    'フォームを10行分の高さに設定
    Me.InsideHeight = Me.フォームフッター.Height + Me.詳細.Height * 10

    Dim strSQL As String
    'データソースをセット
    strSQL = "select 資格コード , 資格名 from T_資格一覧 ;"
    Set Me.Recordset = db.OpenRecordset(strSQL) 

End Sub

「Recordsetプロパティにレコードセットを設定する方法」はFilterプロパティやOrdrbyプロパティが使えないという制約があります。

Recordset プロパティ (Access) | Microsoft Docs

投稿

編集

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2020/07/20 22:16

    とても良く分かりました
    有難うございます。
    一応レコードセットでやってみて、制約が気になってきたら教えて頂いたin句で記述してみようと思います。

    キャンセル

15分調べてもわからないことは、teratailで質問しよう!

  • ただいまの回答率 88.93%
  • 質問をまとめることで、思考を整理して素早く解決
  • テンプレート機能で、簡単に質問をまとめられる

関連した質問

同じタグがついた質問を見る