2007年06月15日

Access:入力コントロールに紐付いたラベルの特定

TextBoxやComboBoxなどに紐付いてるLabelは、LabelのParentプロパティに紐付いてるコントロールが入っている。

'TextBox,ComboBox,CheckBoxに紐付いてるLabelを一覧表示する
Sub ListLabels(ByVal FormName As String, ByVal Delimiter As String)
Dim ctl As Control
DoCmd.OpenForm FormName, acDesign, , , , acHidden
For Each ctl In Forms(FormName).Controls
If TypeOf ctl Is TextBox _
Or TypeOf ctl Is ComboBox _
Or TypeOf ctl Is CheckBox Then
Debug.Print GetLabelCaption(FormName, ctl.name) & Delimiter;
End If
Next
DoCmd.Close acForm, FormName
End Sub

'コントロールに紐付いてるLabelを取得する
Function GetLabelCaption(ByVal FormName As String, ByVal ControlName As String) As String
Dim ctl As Control
For Each ctl In Forms(FormName).Controls
If TypeOf ctl Is Label Then
If ctl.Parent.name = ControlName Then
GetLabelCaption = ctl.Caption
Exit Function
End If
End If
Next
GetLabelCaption = ""
End Function


posted by 忘却の達人 at 04:52| Comment(0) | TrackBack(0) | Access | このブログの読者になる | 更新情報をチェックする
この記事へのコメント
コメントを書く
お名前:

メールアドレス:

ホームページアドレス:

コメント:

認証コード: [必須入力]


※画像の中の文字を半角で入力してください。

この記事へのトラックバック
×

この広告は180日以上新しい記事の投稿がないブログに表示されております。