Asignar valor a un textbox
Buenas tengo un formulario con un cuadro combinado y un cuadro de texto. Estoy trabajando con Access 2000 y Vb6. Me gustaría que al seleccionar un valor del cuadro combinado y hacer clic en el cuadro de texto, me copie el valor que he marcado en el cuadro combinado al textbox.
GRACIAS.
GRACIAS.
En el evento click del cuadro de texto pon:
Text1.Text = Combo1.Text
Sustituyendo Text1 y Combo1 por los nombres de tu
cuadro de texto y tu cuadro combinado.
Text1.Text = Combo1.Text
Sustituyendo Text1 y Combo1 por los nombres de tu
cuadro de texto y tu cuadro combinado.
Tienes que cambiar el evento del combo, en vez de que se asigne al evento Change, tienes que poner click. Si no me entiendes lo que digo, preguntame
Ya he probado asi, en el evento al hacer clic, pero me dice: " Se ha producido el error 2185 en tiempo de ejecución. No se puede hacer referencia a una propiedad o a un método para un control a menos que el control tenga enfoque".
Private Sub Form_Load()
With Combo1
.AddItem "LUNES"
.AddItem "MARTES"
.AddItem "MIERCOLES"
.AddItem "JUEVES"
.AddItem "VIERNES"
End With
End Sub
Private Sub Text1_GotFocus()
Text1.Text = Combo1.Text
End Sub
En vez de programar el evento GotFocus, también puedes programar el Click de la caja de texto.
Private Sub Text1_Click()
Text1.Text = Combo1.Text
End Sub
Espero te sirva saludos
With Combo1
.AddItem "LUNES"
.AddItem "MARTES"
.AddItem "MIERCOLES"
.AddItem "JUEVES"
.AddItem "VIERNES"
End With
End Sub
Private Sub Text1_GotFocus()
Text1.Text = Combo1.Text
End Sub
En vez de programar el evento GotFocus, también puedes programar el Click de la caja de texto.
Private Sub Text1_Click()
Text1.Text = Combo1.Text
End Sub
Espero te sirva saludos
