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
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
"Text22.Enabled = False" no funciona