Tengo una base de datos en access en la cual tengo una tabla de codigo-articulo-precio, una tabla de destino a la cual van los valores solicitados en un formulario, y un primer formulario del cual el segundo formulario requiere los datos.
En si: en el formulario 2 se completa el cuadro que solicita "codigo", pide los datos al formulario 1, y completa en este formulario (rellenando la tabla 2)
Hasta ahi tengo
TABLA 1-origen datos
TABLA 2-destino datos
FORM 1-origen datos
FORM 2-creacion de nuevos datos solicitados por combobox
el problema que tengo, es que al llenar el combobox salta cualquier dato, o del codigo solicitado anterior
explico el error.
pido / recibo
2021 / nada
2240 / 2021
2240 / 2240
4040 / 2240
el error casi seguro esta en esta linea, que no la estoy entendiendo
Cita: DoCmd.OpenForm "Table1", acNormal, , "[Codigo]=" & "'" & Combo12.Value & "'", acFormEdit, acHidden
y dejo el codigo completo
Cita: 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