(2)フォームに挿入したコンボBOXのイベントプロシージャです
コンボBOX名は[cmb01]です
'コンボボックスを更新したときのプロシージャー
Private Sub cmb01_AfterUpdate()
'テキストBOXにコンボボックスの値を代入するときは
'テキストBOXの[Value]プロパティを指定する
Me.txb_発注者.Value = Me.cmb01.Column(1)
'ラベルにコンボボックス値を代入すときは
'ラベルの[Caption]プロパティを指定する
Me.lblNO.Caption = Me.cmb01.Column(1)
End Sub
通報 ...