データコンボコントロールについて (ID:114984)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 [VB6.0] ’↓けっこう適当に作ってるので自分で改良して下さい。 Private Sub DataCombo1_Change() Debug.Print "Change" & Me.DataCombo1.SelectedItem With Me.Adodc1.Recordset '.MoveFirst ' ←この辺調整して下さい .Move Me.DataCombo1.SelectedItem - 1 ' ←この辺調整して下さい Debug.Print .Fields("社員番号") End With End Sub