Combo box a texbox
hola, gracias por ayurme, necesito si alguin sabe como pasar datos de un combo box a un texbox de la siguiente manera
'procedimiento que hice
Public Sub productos()
Dim sql1 As String
cboproducto.Clear
sql1 = "select campo1 from tabla1 where codigo = (select campo2 from tabla2 where campo3 = '" & Trim(cbocombo.Text) & "')"
DATA.rstabla.Open sql1, DATA.Connection1
With DATA.rstabla
If Not .EOF And Not .BOF Then
.MoveFirst
Do While Not .EOF
cbocombo.AddItem (!campo1)
.MoveNext
Loop
'cbocombo.ListIndex = 0
End If
End With
con ese procedimeinto logro que el combo1 se llene y con los datos de este me llene el combo 2
ahora lo que quiere es que el combo 2 me llene un texbox con los datos que apareces, es decir:
combo1 llena combo2 y combo2 llene a texbox
espero que me entiendan gracias
DATA.rsgeneral.Close
Public Sub productos()
Dim sql1 As String
cboproducto.Clear
sql1 = "select producto from generales where codigo = (select codigo from partidas where partida = '" & Trim(cbopartidas.Text) & "')"
DATA.rsgeneral.Open sql1, DATA.Connection1
With DATA.rsgeneral
If Not .EOF And Not .BOF Then
.MoveFirst
Do While Not .EOF
cboproducto.AddItem (!producto)
.MoveNext
Loop
'cboproducto.ListIndex = 0
End If
End With
DATA.rsgeneral.Close
'procedimiento que hice
Public Sub productos()
Dim sql1 As String
cboproducto.Clear
sql1 = "select campo1 from tabla1 where codigo = (select campo2 from tabla2 where campo3 = '" & Trim(cbocombo.Text) & "')"
DATA.rstabla.Open sql1, DATA.Connection1
With DATA.rstabla
If Not .EOF And Not .BOF Then
.MoveFirst
Do While Not .EOF
cbocombo.AddItem (!campo1)
.MoveNext
Loop
'cbocombo.ListIndex = 0
End If
End With
con ese procedimeinto logro que el combo1 se llene y con los datos de este me llene el combo 2
ahora lo que quiere es que el combo 2 me llene un texbox con los datos que apareces, es decir:
combo1 llena combo2 y combo2 llene a texbox
espero que me entiendan gracias
DATA.rsgeneral.Close
Public Sub productos()
Dim sql1 As String
cboproducto.Clear
sql1 = "select producto from generales where codigo = (select codigo from partidas where partida = '" & Trim(cbopartidas.Text) & "')"
DATA.rsgeneral.Open sql1, DATA.Connection1
With DATA.rsgeneral
If Not .EOF And Not .BOF Then
.MoveFirst
Do While Not .EOF
cboproducto.AddItem (!producto)
.MoveNext
Loop
'cboproducto.ListIndex = 0
End If
End With
DATA.rsgeneral.Close