閉じる

CDのコンボボックスの結果を名称として表示する。コンボボックス＋テキストボックス　Dolookup


'コンボボックスの更新後イベント　と　レコード移動時イベントに

'Dlookup関数で、txt名称にデータをセットする。





Private Sub cmbID_AfterUpdate()



    Me.txt名称 = DLookup("tech_KU1_NM", "t191_tech_ku1", "[KU1_ID] = " & Me!cmbID)



End Sub





Private Sub Form_Current()



    Me.txt名称 = DLookup("tech_KU1_NM", "t191_tech_ku1", "[KU1_ID] = " & Me!cmbID)



End Sub