Microsoft Access 掲示板

Microsoft Access 掲示板

フォームの表示で、文字数が多くなった場合、自動で、入力項目を広げる方法ありますでしょうか

3 コメント
views
4 フォロー

お世話になります。
ACCESS2016を使っているのですが、今ひとつVBAの理解ができなく、色々と検索しております。

今回、ACCESSのフォームの項目へ色々と指摘点や確認内容を書き込んでいるのですが、画面が
小さいため、フォーム全体を表示できるように全体を小さくして表示しております。(項目同士を
狭めたり、項目の内容を最低限の表示にしたりして活用しております)

度々に思っているのですが、上記に書いたように、指摘、確認などを記入する項目は、文字数を
メモ仕様にしているため、見えていない部分が出て来てしまうのです。スクロールさせれば見れる
のです。

スクロールさせるのも手間になるかと考えて、項目をクリックした時に、文字数がある程度以上の
場合、項目のサイズを一時的に大きく表示するようにできないでしょうか(項目から、マウスが離れ
ると元の大きさになると嬉しいです)
※クリックした時のイベントには、どのようなVBAを書いたら実現可能でしょうか

お忙しいとは思いますが宜しくお願い致します。

yoshima20618436
作成: 2020/08/04 (火) 10:02:37
通報 ...
1
hatena 2020/08/04 (火) 13:03:34

マウスクリックより、フォーカス取得時とフォーカス喪失時に設定するのがいいと思います。

Private Sub テキスト5_Enter()
    Me.テキスト5.Height = Me.テキスト5.Height * 2 '高さを2倍に
End Sub

Private Sub テキスト5_Exit(Cancel As Integer)
    Me.テキスト5.Height = Me.テキスト5.Height / 2 '高さを元に戻す
End Sub
2
yoshima20618436 2020/08/05 (水) 12:42:22

お世話になります。
早速ありがとうございました。

後ほど、確認と報告をさせて頂きます。
3
yoshima20618436 2020/08/05 (水) 13:18:53

お世話になります。

文字を入力する時だけ、下記のように指定するように設定しました。
    Me.テキスト114.Height = 1600

ありがとうございました。