#297 ラベルの標題の末尾に付けられたコロンを取り除く フォーム、VBA

ウィザードを使って作成したフォームやレポート、フィールドリストからドラッグ&ドロップで配置した連結コントロールなどでは、テキストボックスなどに関連したラベルコントロールの標題の末尾に「:(コロン)」が付けられることがあります。

例:
コロンの付いた状態

ここでは、VBAのプログラムを使って、そのコロンを一括して取り除く方法を紹介します。

次のプログラムは、"rpt売上明細"という名前のレポートを対象とした例で、そのレポートのデザインビューを開いた状態で、標準モジュールより次のコードを実行します。
Dim rpt As Report
Dim ctl As Control
  
Set rpt = Reports("rpt売上明細")
For Each ctl In rpt.Controls
  With ctl
    If .ControlType = acLabel Then
      If Right$(.Caption, 1) = ":" Then
        .Caption = Left$(.Caption, Len(.Caption) - 1)
      End If
      Debug.Print .Caption & "*"
    End If
  End With
Next ctl

実行後のデザイン:
コロンを取り除いた状態


※このコードはデザイン時に一時的に使うだけのものですので、すぐに削除してもよいですし、またの機会に備えて保存しておいてもかまいません。
| Index | Prev | Next |

この情報は参考になりましたか?、問題は解決しましたか?、もしまだなら......
T'sWareのワンポイトテクニカルアドバイスをご利用ください。3000円/件〜でご支援します。
スタンドアロンからSQL Server対応まで、オーダーメイドのシステムを短納期・安価でお届けします


Copyright © T'sWare All rights reserved