AccessVBA データシートの幅・高さを自動で調整したい

Question

改行のあるデータを含むテーブルをデータシート形式で表示する際、
幅・高さをVBAで自動で調整したいです。
下記コードを設定すると、幅は各データの一行目のデータで判定されるため、
説明のデータが途中で見切れてしまいます。

Private Sub Form_Load()
'高さを設定
    RowHeight = 240 * 2

'幅を設定
  Dim ctl As Control
  For Each ctl In Controls
    If ctl.ControlType = acTextBox Then
        ctl.ColumnWidth = -2
    End If
  Next ctl
End Sub

上記の状態から、幅は下記の状態に設定され、
高さもいずれかのデータで３行以上になるデータが入力されている場合は
行数に応じて調整されるように変えるにはどうすればよいでしょうか。
よろしくお願いします。

ご回答ありがとうございます。

データシートではすべての行の高さは同じ

同じで大丈夫です。そのすべて同じとなる行の高さを、
説明フィールドで一番行数の多いデータに合わせたいと考えています。
下記クエリ（最大改行数取得）を作成し、クエリ単体を実行すると
説明列の最大改行数を取得するので、VBAで同クエリを実行したのですが、
VBAで実行するとクエリで取得する値が常に１でうまくいきません。
また、各列の幅を最大行に合わせる方法も分かりません。
よろしくお願いします。

SELECT Max(Len([説明])-Len(Replace([説明],Chr(13)+Chr(10),"")))/2 AS 最大行数
FROM 商品;

Private Sub Form_Load()
'高さを設定
'    RowHeight = 240 * 2
    DoCmd.OpenQuery "最大改行数取得"
    Debug.Print DCount("最大行数", "最大改行数取得")
    RowHeight = 240 * (1 + DCount("最大行数", "最大改行数取得"))

Answer 1

各行ごとに内容に合わせて、行の高さを変更したいということでしょうか。
だとしたら、データシートでは無理です。データシートではすべての行の高さは同じになります。

レポートのレポートビュー表示なら、詳細セクションとそこのコントロールの印刷時拡張プロパティを「はい」に設定すれば内容に合わせて高さが拡張します。