Query no toma el valor del combo
Recibe un cordial saludo de parte de un servidor. Estoy haciendo un Query en Access para el evento "change" de un combo... Pero el valor que le pido que tome simplemente no lo agarra del combo... Es decir... Si al ejecutar el programa escogo la opción "Producción" en dicho combo, lo que hace es abrirme una cuadro de mensaje y pedirme el valor... Lo curioso es que el texto del cuadro de mensaje es justamente "Producción"... Espero estarme explicando... Y si escibo -Producción- en el cuadro de mensaje, al dar Aceptar, el query funciona perfectamente.
Tengo exactamente el mismo query para otro combo y funciona perfectamente, es decir, toma del combo el valor y no pregunta nada al usuario. La diferencia es la forma en que hice los combos, el que funciona bien muestra los valores que mandé llamar de una tabla y el que no funciona, muestra los valores de una lista que yo he indicado en su propiedad "Origen de la fila".
El query es:
Private Sub Cuadro_combinado9_Change()
Me.Subformulario_Pedidos.Form.RecordSource = "SELECT Pedidos.Codigo_Cliente, Pedidos.No_Pedido_Interno, Pedidos.No_Pedido_Cliente, Pedidos.Codigo_Destino, Pedidos.Fecha_Colocacion, Pedidos.Estatus, Clientes.Cliente_Corto, Destinos.Fraccionamiento FROM Clientes INNER JOIN (Destinos INNER JOIN Pedidos ON Destinos.Codigo_Destino = Pedidos.Codigo_Destino) ON Clientes.No_Cliente = Pedidos.Codigo_Cliente WHERE Pedidos.Estatus = " & Me.Cuadro_combinado9.Value & " ORDER BY Clientes.Cliente_Corto, Pedidos.Fecha_Colocacion;"
End Sub
¿Puedes ayudarme para encontrar qué estoy haciendo mal?
Tengo exactamente el mismo query para otro combo y funciona perfectamente, es decir, toma del combo el valor y no pregunta nada al usuario. La diferencia es la forma en que hice los combos, el que funciona bien muestra los valores que mandé llamar de una tabla y el que no funciona, muestra los valores de una lista que yo he indicado en su propiedad "Origen de la fila".
El query es:
Private Sub Cuadro_combinado9_Change()
Me.Subformulario_Pedidos.Form.RecordSource = "SELECT Pedidos.Codigo_Cliente, Pedidos.No_Pedido_Interno, Pedidos.No_Pedido_Cliente, Pedidos.Codigo_Destino, Pedidos.Fecha_Colocacion, Pedidos.Estatus, Clientes.Cliente_Corto, Destinos.Fraccionamiento FROM Clientes INNER JOIN (Destinos INNER JOIN Pedidos ON Destinos.Codigo_Destino = Pedidos.Codigo_Destino) ON Clientes.No_Cliente = Pedidos.Codigo_Cliente WHERE Pedidos.Estatus = " & Me.Cuadro_combinado9.Value & " ORDER BY Clientes.Cliente_Corto, Pedidos.Fecha_Colocacion;"
End Sub
¿Puedes ayudarme para encontrar qué estoy haciendo mal?
1 Respuesta
Respuesta
1