Estoy intentando filtrar un informe, pero al realizar el siguiente evento:

I'm trying to filter a report, but when run:

Private Sub Report_Open(Cancel As Integer)
    Dim L(1 To 1000) As Integer
    Dim n As Integer
    Dim i As Integer
    n = InputBox("?Cu?ntos lotes tiene el adjudicatario?")
        For i = 1 To n
            L(i) = InputBox("lote ")
        Next
        For i = 1 To n
             Me.Filter = "lot=" & L(i)
        Next
End Sub

?nicamente me filtra por el ?ltimo de los "inputbox".

The only information is last "inputbox".

?Alqui?n podr?a echarme una mano para corregirlo?

Could somebody help me?

Muchas gracias

Thx.

EggHeadCafe - Software Developer Portal of Choice
Build a Windows XP "Site Changer" IIS Utility
http://www.eggheadcafe.com/tutorials/aspnet/86d5b18d-871d-4d68-929c-1...

Hac?a una cosa mal. Esta es la rutina correcta:

Private Sub Report_Open(Cancel As Integer)
Dim L(1 To 1000) As Integer
Dim n As Integer
Dim i As Integer
Dim m As String
n = InputBox("?Cu?ntos lotes tiene el adjudicatario?")
     For i = 1 To n
          L(i) = InputBox("lote ")
     Next
m = "lot=" & L(1)
     For i = 1 To n
          m = m & " or " & "lot= " & L(i)
     Next
        Me.Filter = m
End Sub

En cualquier caso, muchas gracias

Filtro en informe - filter on report
04-nov-09

Estoy intentando filtrar un informe, pero al realizar el siguiente evento:

I'm trying to filter a report, but when run:

Private Sub Report_Open(Cancel As Integer)
    Dim L(1 To 1000) As Integer
    Dim n As Integer
    Dim i As Integer
    n = InputBox("?Cu?ntos lotes tiene el adjudicatario?")
        For i = 1 To n
            L(i) = InputBox("lote ")
        Next
        For i = 1 To n
             Me.Filter = "lot=" & L(i)
        Next
End Sub

?nicamente me filtra por el ?ltimo de los "inputbox".

The only information is last "inputbox".

?Alqui?n podr?a echarme una mano para corregirlo?

Could somebody help me?

Muchas gracias

Thx.

Previous Posts In This Thread:

EggHeadCafe - Software Developer Portal of Choice
WCF Workflow Services Using External Data Exchange
http://www.eggheadcafe.com/tutorials/aspnet/3d49fa0d-a120-4977-842a-6...

Hola
Lo que haces es actualizar el estado del filtro, no construir un filtro con
todos los lotes a filtrar. Deberías crear una variable de cadena, y asignarla
en tu bucle, preservando su valor entre ciclo y ciclo del bucle.

Private Sub Report_Open(Cancel As Integer)
    Dim L(1 To 1000) As Integer
    Dim n As Integer
    Dim i As Integer
    n = InputBox("?Cu?ntos lotes tiene el adjudicatario?")
        For i = 1 To n
            L(i) = InputBox("lote ")
        Next
        Dim sFiltro as string
        sFiltro="Lot in("
        For i = 1 To n
             sFiltro=sFiltro & L(i) & ","
        Next
        sFiltro=Left(sFiltro,len(sFiltro)-1) & ")"
         Me.Filter = sFiltro
End Sub

Salu2
--
José Mª Fueyo
[MS MVP Access]