2 cajas de texto con ado distintos

[APENA01]

Quisiera me ayudaran con esta duda que tengo en un formulario en visual basic 6 tengo 2 cajas de texto text1 y text 2
creado las cajas de texto con un ado

y estas cajas text 1 esta en en adodc1 y text2 esta amarrado a un adodc2

quisera saber si es posible que lo que escriba en el text1 se escriba al mismo tiempo en el text2

muchas gracias.

Alberto peña

[pakirringem]

no entiendo en tu pregunta que tienen que ver los adodc con lo que escribes en los textos, pero este codigo te sirve para que lo que escribes en el text1 aparezca al mismo tiempo en el text2

Private Sub Text1_Change()
Text2.Text = Text1.Text
End Sub

[APENA01]

Iniciado por pakirringem

no entiendo en tu pregunta que tienen que ver los adodc con lo que escribes en los textos, pero este codigo te sirve para que lo que escribes en el text1 aparezca al mismo tiempo en el text2

Private Sub Text1_Change()
Text2.Text = Text1.Text
End Sub

gracias amigo me funciono ok

saludos.

[APENA01]

Iniciado por pakirringem

no entiendo en tu pregunta que tienen que ver los adodc con lo que escribes en los textos, pero este codigo te sirve para que lo que escribes en el text1 aparezca al mismo tiempo en el text2

Private Sub Text1_Change()
Text2.Text = Text1.Text
End Sub

Gracias por la ayuda anterior con las 2 cajas de texto

pero ahora mi duda es si en vez de escribir el texto lo escogo de un combobox
cual seria su sintaxis

para que de un combobox escoja y se repita en una caja de texto


gracias x la ayuda

saludos

[Avellaneda]

Iniciado por APENA01

Gracias por la ayuda anterior con las 2 cajas de texto

pero ahora mi duda es si en vez de escribir el texto lo escogo de un combobox
cual seria su sintaxis

para que de un combobox escoja y se repita en una caja de texto


gracias x la ayuda

saludos

Prueba así:

Código:

Private Sub Combo1_Click()
Text2.Text = Combo1.Text
End Sub

[APENA01]

Iniciado por Avellaneda

Prueba así:

Código:

Private Sub Combo1_Click()
Text2.Text = Combo1.Text
End Sub

Sabes ya probe de esa forma y me da error y el depurador se localiza en el nombre combo1 al dar el error

lo he escrito asi y lo llamo desde un boton

Private Sub Command1_Click()
Adodc1.Recordset.AddNew
Combo1.Text = txtcontrata1.Text
txtfecha_Entrega.Text = txtfecha_entrega1.Text
txtorden1.Text = txtmemo.Text
End Sub

lo llamo desde un boton para que se repita la inf en cada addnew

gracias x la ayuda

saludos