Newsgroup: it.comp.appl.access
Titolo: Casella Riepilogo

Come poter filtrare ,un report in base ad una data nel formato
Anno: (Year([Data])) , in una casella di riepilogo,dove
nella lista sono elencati  nello stesso formato gli anni ess.
2001
2002
2003
quindi in una selezione multipla il report dovrebbe restituirmi
i documenti in base a selezione.
Ferrari Rino

 wrote in message
news:qK3Xc.147643$
OR2.7...@news3.tin.it

Non hoprovato se la Preposizione "IN" funziona, ma eventualmente
ti sarà semplice sostituire la Stringa con l'altra ora non usata:
Private Sub ApriReport_Click()
   Dim strAnnoScelto As String
   Dim intCurrTable As Integer
   Dim varTable As Variant
   For Each varTable In Me!lboAnni.ItemsSelected()
 
         strAnnoScelto = strAnnoScelto & Me!lboAnni.ItemData(varTable) &
", "
         'Alternativa
         'strAnnoScelto = strAnnoScelto & " Year([Data])=" & _
                          Me!lboAnni.ItemData(varTable) & " OR "
   Next varTable
   'Alternativa
   'strAnnoScelto=Left(strAnnoScelto,Len(StrAnnoScelto)-4)
   strAnnoScelto = "Year([Data]) IN (" & strAnnoScelto & ")"
   Docmd.Openreport "NomeReport",ac
   DoCmd.OpenReport "Report Vendite", acViewPreview, ,strAnnoScelto
End Sub
Facci sapere.
Ciao.
@Alex.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:qK3Xc.147643$OR2.7...@news3.tin.it...

Vai sul Sito Comune (link qui sotto) e nella Sezione Report leggi la mia FAQ
intitolata "Come si puň filtrare un report in base alla selezione multipla
effettuata su una casella di riepilogo?".
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 ha scritto nel messaggio
news:qK3Xc.147643$OR2.7...@news3.tin.it...

Se nella Grig. Query nella data che e strutturata
Anno: (Year([DataFattura]))
inserisco nei criteri manualmente
In(2003,2004) con o senza apici mi filtra perfettamente
ma quando cerco di filtrare da codice form con casella di riepilogo
anche se:
    DoCmd.OpenReport stDocName, acPreview, , strCriteri
dove  -   strCriteri  mi restituisce :
strCriteri  ="[Anno] In('2003','2004')" nel modulo,
continua a non filtrare nulla e visualizza tutto.
Rino

 Rino
Guarda la creazione della stringa criteri.
Da come è sceritta ci sono gli APICI che non servono
essendo un campo numerico.


 ha scritto nel messaggio
news:3tiXc.192310$5D1.9...@news4.tin.it...

Hai provato a togliere gli apici, ovvero:
strCriteri  ="[Anno] In(2003,2004)"
?


 ha scritto nel messaggio
news:qK3Xc.147643$OR2.7...@news3.tin.it...

 Il Codice da me strutturato nel modulo chiamante e:
=============================================================
On Error GoTo Err1
    Dim Err1 As Long
    Dim strLista As String
    Dim strCriteri As String
    Dim varItem As Variant
    If Me!ElencoAnno.ItemsSelected.Count = 0 Then Exit Sub
    For Each varItem In Me!ElencoAnno.ItemsSelected
        strLista = strLista & Me!ElencoAnno.Column(0, varItem) & ","
    Next varItem
    strLista = Left$(strLista, Len(strLista) - 1)
    strCriteri = "[Anno] In (" & strLista & ")"
    Dim stDocName As String
    stDocName = "Report1"
    DoCmd.OpenReport stDocName, acPreview, , strCriteri
    Dim Cont As Integer
    For Cont = 0 To Me!ElencoAnno.ListCount - 1
        Me!ElencoAnno.Selected(Cont) = False
    Next Cont
Err1:
If Err1 = 2501 Then
    Exit Sub
        End If
=========================================================
Il Valore restituito e:
strCriteri  ="[Anno] In(2003,2004)"

 ha scritto nel messaggio
news:qK3Xc.147643$OR2.7...@news3.tin.it...

 Faccio riferimento al mio ultimo messaggio:
Il report di cui parlo contiene un grafico nel quale e strutturata la Query
in questione,
e facendo delle prove ,in un semplice report, funziona tutto, mentre nel
grafico niente da fare.
Rino

 ha scritto nel messaggio
news:YnkXc.151176$OR2.7...@news3.tin.it...

Bene, e cosa è che non va?


 Roberto il post piu giu
Grazie
Rino

 ha scritto nel messaggio
news:S1nXc.194775$5D1.9...@news4.tin.it...

Le soluzioni che abbiamo discusso sino ad ora filtrano l'origine record del
report, che non ha nulla a che spartire con la query che è origine riga del
grafico.



Hai pienamente ragione Roberto e stato una mia distrazione.
Ripropongo il post con un dettaglio piů appropriato.
Ciao Rino