22/02/2011, 05:12
|
Colaborador | | Fecha de Ingreso: marzo-2008 Ubicación: Sabadell
Mensajes: 4.897
Antigüedad: 16 años, 8 meses Puntos: 574 | |
Respuesta: Impresion ultimos registros de una tabla strWhere = "[DesdeNroPieza]>=" And "[ultimo]<="
Aqui falta algo no?
strWhere = "NumeroPieza>=[DesdeNroPieza]" And "NumeroPieza<=[ultimo]"
Mirandolo bien incluso sobran lineas
strWhere = "NumeroPieza>=[DesdeNroPieza]"
Si el campo es correlativo por que restringes a ser menor o igual al numero mas alto? Con que sea mayor o igual al que deseas, ya lo tienes no?
Private Sub DesdeNPieza_Click()
Dim strWhere As String
Me.Visible = False
strWhere = "NumeroPieza>=[DesdeNroPieza]"
DoCmd.OpenReport ReportName:="ActualizTema", View:=acPreview, WhereCondition:=strWhere
DoCmd.SelectObject acReport, "ActualizTema"
DoCmd.Close acForm, Me.Name
End Sub
No veo donde cargas el valor de [DesdeNroPieza]
No seria
strWhere = "NumeroPieza>=" & Me.[DesdeNroPieza]
si el nombre del objeto es ese.
Revisa en el manual como se define la WhereCondition
__________________ Quim
--------------------------------------------------
Ayudar a ayudar es una buena práctica!!! Y da buenos resultados. |