Ayudenme son esta consulta por favor

proactivo · #1 (**permalink**) 26/08/2010, 12:07

tengo una tabla llamada gastos la cual contiene los siguientes datos fecha, numero de factura, orden de factura, proveedor, cantidad, descripcion y codigo este ultimo que tiene 8 datos lo cales son alma, ved, mtt y otros

logre hacer una consulta por fecha y me salio bien pero ahora necesito una mediante la fecha y codigo es decir del tal a tal fecha y seleccionar el codigo y me lo muestre en el reporte hasta ahora solo tengo esta codificacion que me fal ta

Private Sub Report_Open(Cancel As Integer)

Dim Inicio As String, Fin As String
Forms.Item("detalle").Inicio.SetFocus
Inicio = Format(Forms.Item("detalle").Inicio.Text, "mm/dd/yyyy")
Forms.Item("detalle").Fin.SetFocus
Fin = Format(Forms.Item("detalle").Fin.Text, "mm/dd/yyyy")
Me.RecordSource = "Select * From gastos Where fecha Between #" & Inicio & "# And #" & Fin & "#"
Forms.Item("detalle").Inicio.SetFocus
Me.control.Caption = "Entre " & Forms.Item("detalle").Inicio.Text & " y "
Forms.Item("detalle").Fin.SetFocus
Me.control.Caption = Me.control.Caption & Forms.Item("detalle").Fin.Text

End Sub

esto seria el de las fechas por rango pero como enlazo eso con los codigos por favor ayudaaaaaaaaaaaaaaaa

__SDP__ · #2 (**permalink**) 26/08/2010, 22:25

/*...codigo porq tiene 8 datos...no entiendo???

supongo q codigo es una referencia a otra tabla q tiene 8 valores distintos.....

explicate mejor */

jchuk · #3 (**permalink**) 27/08/2010, 03:22

Hola,

Prueba añadiendo lo que te pongo en rojo, a ver qué tal

Código:

Dim Inicio As String, Fin As String
Forms.Item("detalle").Inicio.SetFocus
Inicio = Format(Forms.Item("detalle").Inicio.Text, "mm/dd/yyyy")
Forms.Item("detalle").Fin.SetFocus
Fin = Format(Forms.Item("detalle").Fin.Text, "mm/dd/yyyy")
Me.RecordSource = "Select * From gastos Where fecha Between #" & Inicio & "# And #" & Fin & "# And codigo like '"& Codigo &"'"
Forms.Item("detalle").Inicio.SetFocus
Me.control.Caption = "Entre " & Forms.Item("detalle").Inicio.Text & " y "
Forms.Item("detalle").Fin.SetFocus
Me.control.Caption = Me.control.Caption & Forms.Item("detalle").Fin.Text

Necesitarás una variable o campo de form donde recojas el código.

Saludos

proactivo · #4 (**permalink**) 31/08/2010, 15:15

tengo en un formulario (se llama detalle) dentro de este tengo tres cuadro de texto el primero dice desde ( en el cual colocas la fecha desde donde quieres ver (este se llama inicio) ) el otro dice hasta (en el cual colocas la fecha hasta donde quieres ver (se llama fin)), y el ultimo es un cuadro combinado el cual le puse estas 8 opciones (TALL001, MANG002, SEGU003, GANA004, MTTO005, REFRI006, VIVE007 y ALMA008) el cual se llama codigo quiero una codificacion que me consulte por fecha y codigo por ejemplo de la fecha 01-06-2010 a 01-06-2010 del codigo MTTO005 quiero que me lance en el reporte llamado gastos1 todos esos regitros.

bueno aqui creo que me explique mejor

proactivo · #5 (**permalink**) 31/08/2010, 15:20

todo esto esta en el boton buscar al final del formulario

jchuk · #6 (**permalink**) 01/09/2010, 01:44

Hola,
Probaste la modificación que te sugerí?

Saludos.

proactivo · #7 (**permalink**) 01/09/2010, 11:53

si me sale error

jchuk · #8 (**permalink**) 01/09/2010, 12:06

Qué error?

proactivo · #9 (**permalink**) 01/09/2010, 15:05

Se ha producido un error 2465 en tiempo de ejecucion

access no en encuentra el campo codigo al que hace referencia la expresion

jchuk · #10 (**permalink**) 02/09/2010, 04:37

Hola,

Si te nentendí bien, en el form detalle tienes un botón, que quieres te lance el Report.

En el evento Al hacer click del botón, me un procedimiento de evento con el siguiente código, que creo te debería funcionar bien

Código:

Dim Inicio As String, Fin As String, codigo as string, sSQL as string

Inicio = Me.Inicio
Fin = Me.Fin
codigo = Me.codigo

sSQL = "(fecha between #" & Inicio & "# AND  #" & Fin & "#) AND codigo like '" & codigo & "'"

Docmd.OpenReport "Gastos1", acPreview,  ,sSQL

OJO con la comilla simple o apóstrofe después del like y tras el último & dentro del entrecomillado doble.

Creo que así te debe abrir el informe Gastos1 con los datos que comentas.

Saludos

proactivo · #11 (**permalink**) 02/09/2010, 12:33

error 3011

jchuk · #12 (**permalink**) 02/09/2010, 13:51

Para que funcione este código debes tener en el formulario un cuadro de texto con nombre Inicio, otro con nombre Fin y el combo debe llamarse Codigo.ç

Debes tener también un Informe llamado Gastos1, basado en la tabla que contenga los campos llamados codigo y fecha.

Si no es así, no funciona. Otra razón para el error, no se me ocurre.

Saludos.

proactivo · #13 (**permalink**) 08/09/2010, 12:36

bueno cambie el combo por un cuadro de texto llamado codigo tambien y si tengo todo eso que me escribiste la tabla todo eso.

esto es lo que estoy ingresando ya no me sale ningun error pero no me salen los datos sale el informe en blanco

Private Sub Report_Open(Cancel As Integer)

Dim Inicio As String, Fin As String, Codigo As String
Forms.Item("detalle").Inicio.SetFocus
Inicio = Format(Forms.Item("detalle").Inicio.Text, "mm/dd/yyyy")
Forms.Item("detalle").Fin.SetFocus
Fin = Format(Forms.Item("detalle").Fin.Text, "mm/dd/yyyy")
Me.RecordSource = "Select * From gastos Where fecha between #" & Inicio & "# AND #" & Fin & "# AND Codigo like '" & Codigo & "'"

Forms.Item("detalle").Inicio.SetFocus
Me.control.Caption = "Entre " & Forms.Item("detalle").Inicio.Text & " y "
Forms.Item("detalle").Fin.SetFocus
Me.control.Caption = Me.control.Caption & Forms.Item("detalle").Fin.Text

End Sub

proactivo · #14 (**permalink**) 08/09/2010, 12:48

Algo me debe faltar pero que?

proactivo · #15 (**permalink**) 14/09/2010, 08:14

ahora no me sale ningun error pero no me busca ningun registro

proactivo · #16 (**permalink**) 14/09/2010, 08:44

La cuetion es que no me reconoce el codigo

proactivo · #17 (**permalink**) 14/09/2010, 08:45

si tienes algun mail para ya enviarte la informacion porque es lo unico que me falta