質問: db.OpenRecordset(strSQL) '変数dbは外部DBと接続してます End Sub
回答: 縦スクロールバーが表示されているので、帳票フォームですが、ウィンドウの高さが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