Access - 1 combo para 3 textos

Hola (otravez :P ), no se bien como explicar esto, tengo 1 combo

----Combobox------

--Textbox1-----(Combo1.Column(1))
--Textbox2-----(Combo1.Column(1))
--Textbox3-----(Combo1.Column(1))

ok, ara si selecciono algo en el combobox me aparece en los textbox la seleccion. Ahora, como ago para poder seleccionar 1 cosa, y k me aparezca en el Textbox1 y la siguiente cosa que seleccione me aparezca en la segunta TExtbox, y asi seguidamente.

Yo e pensao en hacer un combobox pa cada Textbox xo eso keda un poko cutre.

Gracias a todos los de este foro.


-Adolfo-

Disculpa pero no entiendo bien.

Tienes un cuadro de lista (Combo1) y deseas que al seleccionar un item de este control, este valor aparezca en una cuadro de texto?

Si, xo eso ya me lo as dicho como hacerlo (x lo que estoy agradecido), lo que quiero es usar el mismo cuadro combinado para rellenar distintos cuadros de texto.

x ejemplo kiero seleccionar 5 productos entonces primero le doy a la ventanita y se me desplega el menu, elijo 1 (y se escribe en un cuadro de txt) y luego elijo en el mismo cuadro otro, y se me escirbe en otro cuadro de texto, lo k tb podria hacer es un boton (una macro o algo similar) que fuerse "Agregar" que seria un cuadro de texto con =combo1.column(2) y al darle al boton copia el resultado de ese cuadro de txt a otro (y asi sucesivamente)
no es que no me entiendas eske me explico muy mal por lo que veo. ... ara tengo k irme a comer, xo despues si no entiendes aun lo que quiero decir subire un screenshot o algo asi.

gracias.

y que aprovechen los que se vayan a comer ahora.

-Adolfo-

Adolfo:
Si lo que necesitas es añadir a los cuadros de texto la columna que se muestra en el Combo, no es necesario hacer referencia a dicha columna, es decir, no face falta poner Texto1 = Combo1.Column(X), simplemente Texto1 = Combo1, pero si el Combo tiene varias columnas ocultas y solo una visible y necesitas llamar a una de las ocultas, entonces es necesario nombrar esa columna.

En cuanto a tu pregunta para rellenar consecutivamente los 5 cuadros de texto, prueba de esta forma:

Private Sub Combo1_AfterUpdate()
If IsNull(Texto1) Then Texto1 = Combo1.Column(1): Exit Sub
If IsNull(Texto2) Then Texto2 = Combo1.Column(1): Exit Sub
If IsNull(Texto3) Then Texto3 = Combo1.Column(1): Exit Sub
If IsNull(Texto4) Then Texto4 = Combo1.Column(1): Exit Sub
If IsNull(Texto5) Then Texto5 = Combo1.Column(1): Exit Sub
If Not IsNull(Texto1) And Not IsNull(Texto2) And Not IsNull(Texto3) And Not IsNull(Texto4) And Not IsNull(Texto5) Then
MsgBox "Ya están completos los 5 campos.", vbInformation, "Aviso"
End If
End Sub

Cada vez que se actualiza el Combo con una nueva selección, el Evento "Después de actualizar" comprueba el estado de los Texbox y vá rellenando los vacios hasta completar los 5.

Saludos
Enrique

Mil gracias ! ! ! y 3 mil tb :)

-Adolfo-

Lo de antes va perfecto, xo yo k siempre kiero un poko mas, y no se pues la cago...

Se puede con la misma linea de IF llenar 2 campos, e probao con And, & y e probao azer:
---------------

If IsNull(p1) Then p1 = ComboCera.Column(1) And pp1 = ComboCera.Column(2): Exit Sub
-----------------

If IsNull(p1) Then p1 = ComboCera.Column(1): Exit Sub
If IsNull(p2) Then p2 = ComboCera.Column(1): Exit Sub
If IsNull(p3) Then p3 = ComboCera.Column(1): Exit Sub
If IsNull(p4) Then p4 = ComboCera.Column(1): Exit Sub
If IsNull(p5) Then p5 = ComboCera.Column(1): Exit Sub
If Not IsNull(p1) And Not IsNull(p2) And Not IsNull(p3) And Not IsNull(p4) And Not IsNull(p5) Then
MsgBox "Ya están completos los 5 campos.", vbInformation, "Aviso"
End If

If IsNull(pp1) Then pp1 = ComboCera.Column(2): Exit Sub
If IsNull(pp2) Then pp2 = ComboCera.Column(2): Exit Sub
If IsNull(pp3) Then pp3 = ComboCera.Column(2): Exit Sub
If IsNull(pp4) Then pp4 = ComboCera.Column(2): Exit Sub
If IsNull(pp5) Then pp5 = ComboCera.Column(2): Exit Sub
If Not IsNull(pp1) And Not IsNull(pp2) And Not IsNull(pp3) And Not IsNull(pp4) And Not IsNull(pp5) Then
MsgBox "Ya están completos los 5 campos.", vbInformation, "Aviso"
End If
----------------------------
xo no funcionan, uno si k funciona xo los dos juntos no.

yo sigo probando, xo si lo lees y sabes xk pues ... mas rapido.
gracias.

-Adolfo-

-leer el titulo- :)

grax

Prueba a sustituir el And por dos puntos ( : ), así:

If IsNull(p1) Then p1 = ComboCera.Column(1) : pp1 = ComboCera.Column(2): Exit Sub

Pero tienes que tener en cuenta que en este caso, si el campo pp1 ya tenía un valor anterior, será sustituido por el de la columna 2 del nuevo Item seleccionado, mientras que p1 solo tomará el valor si está vacío, aunque puede que eso no sea problema.

No lo he probado, pero supongo que funcionará, caso contrario comunícalo y buscamos una solución.

Saludos
Enrique

Ya esta solucionado, es asi :
Private Sub ComboMasajes_AfterUpdate()
If IsNull(p1) Then p1 = ComboMasajes.Column(1)
If IsNull(pp1) Then pp1 = ComboMasajes.Column(2): Exit Sub
If IsNull(p2) Then p2 = ComboMasajes.Column(1):
If IsNull(pp2) Then pp2 = ComboMasajes.Column(2): Exit Sub
If IsNull(p3) Then p3 = ComboMasajes.Column(1):
If IsNull(pp3) Then pp3 = ComboMasajes.Column(2): Exit Sub
If IsNull(p4) Then p4 = ComboMasajes.Column(1):
If IsNull(pp4) Then pp4 = ComboMasajes.Column(2): Exit Sub
If IsNull(p5) Then p5 = ComboMasajes.Column(1):
If IsNull(pp5) Then pp5 = ComboMasajes.Column(2): Exit Sub
If IsNull(p6) Then p6 = ComboMasajes.Column(1):
If IsNull(pp6) Then pp6 = ComboMasajes.Column(2): Exit Sub
If IsNull(p7) Then p7 = ComboMasajes.Column(1):
If IsNull(pp7) Then pp7 = ComboMasajes.Column(2): Exit Sub
If Not IsNull(p1) And Not IsNull(p2) And Not IsNull(p3) And Not IsNull(p4) And Not IsNull(p5) And Not IsNull(p6) And Not IsNull(p7) Then
MsgBox "Ya están completos los 7 campos.", vbInformation, "Aviso"
End If

Gracias, :D (voy a poner un ultimo post y que paseis un buen fin de semana)

-Adolfo-