Foros del Web » Programación para mayores de 30 ;) » Programación General »

[VB Access] Solicitud mediante combobox

Estas en el tema de [VB Access] Solicitud mediante combobox en el foro de Programación General en Foros del Web. 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 ...
  #1 (permalink)  
Antiguo 13/04/2012, 08:43
 
Fecha de Ingreso: abril-2012
Mensajes: 5
Antigüedad: 12 años
Puntos: 0
[VB Access] Solicitud mediante combobox

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

Etiquetas: access, combobox, vb
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 22:02.