[Access] tablas dependientes

[julesrif]

Que tal? Este es el problema que no razono solucion.

Tengo 2 tablas, una con los datos de origen, y la otra que quiero que se "autocomplete". Estuve leyendo varios articulos, pero no logro entender, tal vez una solucion personalizada me ayude.

En la tabla 1 tengo las columnas

Codigo / Articulo / Precio
-------------------------------
1 / Taza / 10
2 / Plato / 15
3 / Tenedor / 4

en la tabla 2 tengo

Codigo / Articulo / Precio
-------------------------------


mi intencion es que, la tabla 1 sea el origen de los datos, y en la tabla 2, al yo colocar en la columna codigo un numero, se autocomplete la fila con los datos de "articulo" y "precio", con los datos obtenidos de la primer tabla.

ejemplo de tabla 2 *lo que quiero*


Codigo / Articulo / Precio
-------------------------------
2 / --Plato-- / --15--


( "--" representa autocompletado, que no se puede modificar)

Que solucion habra? no parece tanta ciencia

[omarock]

Lo que yo haria es hacerlo con formularios, desde ahi se me hace mas facil manipula todo, creas el formulario para la tabla 2, y colocas un combo select, de ahi le das que jale los datos de la tabla 1 y eso lo guardas en la tabla 2.

Saludos.

[julesrif]

Estoy en un formulario aplicando un Combo Box con la opcion "que el cuadro combinado busque los valores en una tabla o consulta", y lo mas que consigo es que: colocando el codigo, vuelque precio O descripcion, pero preciso ambas al mismo tiempo en 2 cuadros distintos.

[omarock]

Ya vi, que me equivoque al tratarlo de explicar, lo que pasa que se necesita usar codigo VB, si gustas proporcioname un correo y te mando un ejemplo con lo que quieres hacer.

[julesrif]

Iniciado por omarock

Ya vi, que me equivoque al tratarlo de explicar, lo que pasa que se necesita usar codigo VB, si gustas proporcioname un correo y te mando un ejemplo con lo que quieres hacer.

genial! aqui te dejo

[email protected]

[omarock]

Listo ya te mande un archivo en access 2010, para que revises en tu bandeja de correo no deseado mi correo es

[email protected]

[julesrif]

pense que estaba todo solucionado, pero no.
resultan dos problemas

1. pude agregar una parte de codigo para que "autoacepte" a los 4 digitos ingresados, ya que el original solo me tomaba el primer digito, pero ahora no me acepta con menos de 4.

2. mas grave aun, es que al colocar el codigo por primera vez me sale un resultado equivocado, y a la segunda vez el correcto

es decir, por ejemplo
primer intento: codigo 2424 - articulo Pava - Precio 30
segundo intento: codigo 2424 - articulo Mesa - Precio 1000
el correcto vendria a ser el segundo

Private Sub Combo12_Change()
If Len(Combo12.Text) = 4 Then
DoCmd.GoToRecord acDataForm, "Table2", acNewRec
DoCmd.OpenForm "Table1", acNormal, , "[Codigo]=" & "'" & Combo12.Value & "'", acFormEdit, acHidden
Form_Table1.Articulo.SetFocus
articulos = Form_Table1.Articulo.Text
Form_Table1.Precio.SetFocus
precios = Form_Table1.Precio.Text
DoCmd.Close acForm, "Table1"

Text2.Enabled = True
Text4.Enabled = True
Text22.Enabled = True

Text2.SetFocus
Text2.Text = Me.Combo12.Value
Text4.SetFocus
Text4.Text = articulos
Text22.SetFocus
Text22.Text = precios

DoCmd.RunCommand acCmdSaveRecord

Text2.SetFocus
Text2.Enabled = True
Text4.SetFocus
Text4.Enabled = True
Text22.SetFocus
Text22.Enabled = True
End If
End Sub

"Text22.Enabled = False" no funciona

[omarock]

Mandame una copia del archivo que no te funciona para ver lo de los 4 digitos, porque con el que yo te mande no tengo ningun problema si son 4 digitos o mas, ya que el combo12 jala los datos que tengas en la tabla1, entonces si ahi pones codigos con 4 digitos el combo los jala y los muestra, igual si pones codigos de mas digitos el combo los muestra...