Microsoft Access 掲示板

Microsoft Access 掲示板

高さが可変のテキストボックスの上下中央に文字を配置したい / 21

27 コメント
views
4 フォロー
21
hatena 2024/01/06 (土) 10:26:37

3.同じような書式設定にしたいものが複数あるが、同じコードを繰り返す以外のやり方はないのか？

テキストボックス名が、
txt_1月, txt_2月 ・・・・txt_12月
だとして、
Controlsで文字列のテキストボックス名でアクセスできますので、
それを利用してループ処理します。

    Dim i As Long
    For i = 1 to 12
        With Me.Controls("txt_" & i & "月")
            .Visible = False
            If Not IsNull(.Value) Then
                Me.FontSize = .FontSize
                Me.FontName = .FontName
                Me.CurrentX = .Left + 26 '//26は位置調整のための数字
                Me.CurrentY = (Me.Height / 2) - (Me.TextHeight(.Value) / 2)
                Me.Print .Value
            End If
       End With
    Next
通報 ...