#297
ウィザードを使って作成したフォームやレポート、フィールドリストからドラッグ＆ドロップで配置した連結コントロールなどでは、テキストボックスなどに関連したラベルコントロールの標題の末尾に「:（コロン）」が付けられることがあります。
例：
ここでは、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
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
実行後のデザイン：
※このコードはデザイン時に一時的に使うだけのものですので、すぐに削除してもよいですし、またの機会に備えて保存しておいてもかまいません。
