Newsgroup: it.comp.appl.access
Titolo: Selezionare minimo du valori

Vorrei selezionare, per stampare sul report o a video, minimo due campi di
selezione.
Attualmente io scelgo un campo che corrisponde all'anno e questo mi viene
stampato, però adesso vorrei aggiungere all'attuale selezione la possibilità
di scegliere anche il comune, perché l'attuale scelta mi stampa tutti i
comuni agganciati a quell'anno.
Nella speranza che qualcuno mi indichi la strada corretta ringrazio
anticipatamente.
Valter

 ha scritto nel messaggio
news:uXo17.7098$q77....@news2.tin.it...

Con quale tecnica effettui attualmente il filtro del report in base
all'anno?
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 wrote in message
Xrz17.5033$eB4.1...@news.infostrada.it...



In questo NG č regola rispondere DOPO e non prima dei messaggi precedenti:
ti saremmo tutti grati se rispettassi questa regola.
Forse non sono stato chiaro nel farti la domanda: avrei voluto sapere se,
per stampare solo i record di un determinato anno, hai usato come origine
record del report una query di selezione parametrica oppure hai impostato un
filtro all'atto dell'apertura del report.


 wrote in message
fsU17.10601$eB4.3...@news.infostrada.it...

Scusandomi di aver risposto prima dei messaggi, ti ripropongo il quesito
sperando di essere piů chiaro
Su una maschera, creata appositamente chiamiamola Menu stampa, ho inserito
dei pulsanti opzioni dove una volta selezionati attivano una "casella di
riepilogo" dove si possono scegliere le annate. Queste annate sono basate su
una query che raggruppa col metodo valori univoci tutte le campagne uguali.
A questo punto vorrei che una volta fatta questa selezione poter attivare
un'ulteriore "casella di riepilogo" dove poter selezionare un comune che
riguardi quell'anno.
Attualmente con l'attuale sistema posso selezionare si la campagna ma stampo
tutti i comuni, dove che vorrei selezionare anche il comune.
Ti invio anche l'attuale sistema di VBA che uso per detta scelta.
Sub StampaReport(PrintMode As Integer)
On Error GoTo Err_Anteprima_Click
    Dim strTrovaCategoria As String
    strTrovaCategoria = "ANNO = Forms![MENU_STAMPA]!SelezionaCategoria"
       Select Case Me!ReportDaStampare
        Case 1
           DoCmd.OpenReport "   ", PrintMode
        Case 2
           DoCmd.OpenReport "   ", PrintMode
        Case 3
           DoCmd.OpenReport "   ", PrintMode
        Case 4
            If IsNull(Forms![MENU_STAMPA]!SelezionaCategoria) Then
                MsgBox "ATTENZIONE SELEZIONA UN ANNO"
            Else
                DoCmd.OpenReport "R_RIEP", PrintMode, , strTrovaCategoria
            End If
    End Select
Esci_Anteprima_Click:
    Exit Sub
Err_Anteprima_Click:
    Resume Esci_Anteprima_Click
End Sub
******
Private Sub ReportDaStampare_AfterUpdate()
 Const conR_RIEP = 4
    If Me!ReportDaStampare.Value = conR_RIEP Then
                Me!SelezionaCategoria.Enabled = True
       Else
                Me!SelezionaCategoria.Enabled = False
    End If
 End Sub
***************
Private Sub Anteprima_Click()
    StampaReport acPreview
End Sub
*********
Private Sub Stampa_Click()
    StampaReport acNormal
End Sub
Sperando di esserTi stato chiaro Ti ringrazio
Valter

 ha scritto nel messaggio
news:fJ227.20348$cd.1...@news1.tin.it...

Beh, mi sembra che chi ha fatto questo database non amasse troppo le cose
semplici. :-))
Bisognerebbe che tu postassi il codice SQL della query che č origine riga
della caselle di riepilogo SelezionaCategoria.
Se come origine record del report R_RIEP hai una query dovresti postare il
suo codice SQL; se invece come origine record del report hai una tabella,
posta la sua struttura.


 wrote in message
TWe27.16503$eB4.6...@news.infostrada.it...

Ti invio le sql richiesomi
SQL della query della casella di riepilogo
SELECT DISTINCT tabella.ANNO
FROM tabella
ORDER BY tabella.ANNO;
************************
SQL della query per il Report
SELECT tabella.ANNO, tabella.CATEG, tabella.POS,  tabella.DENOMINAZIONE,
tabella.COMUNE
FROM tabella;
Valter

 ha scritto nel messaggio
news:ckl27.39280$q77.2...@news2.tin.it...

Nella maschera chiamata MENU_STAMPA inserisci, vicino a quella attuale,
un'altra casella di riepilogo non associata e chiamala Pippo; come origine
riga di Pippo inserisci il seguente codice SQL:
SELECT DISTINCT tabella.COMUNE
FROM tabella
WHERE (((tabella.Comune)=[Forms]![MENU_STAMPA]![SelezionaCategoria]))
ORDER BY tabella.COMUNE;
A fronte dell'evento "Dopo aggiornamento" della casella di riepilogo
SelezionaCategoria genera il seguente codice VBA:
Me!Pippo.Requery
Me!Pippo.Enabled = True
Me!Pippo.SetFocus
Modifica la routine Sub StampaReport(PrintMode As Integer) in questa
maniera:
Sub StampaReport(PrintMode As Integer)
On Error GoTo Err_Anteprima_Click
    Dim strTrovaCategoria As String
    strTrovaCategoria = "ANNO = Forms![MENU_STAMPA]!SelezionaCategoria And
COMUNE = Forms![MENU_STAMPA]!Pippo"
    Select Case Me!ReportDaStampare
       Case 1
           DoCmd.OpenReport "   ", PrintMode
       Case 2
          DoCmd.OpenReport "   ", PrintMode
       Case 3
          DoCmd.OpenReport "   ", PrintMode
        Case 4
           If IsNull(Forms![MENU_STAMPA]!SelezionaCategoria) Then
                MsgBox "ATTENZIONE SELEZIONA UN ANNO"
           Else
                IF IsNull(Forms![MENU_STAMPA]!Pippo) Then
                    MsgBox "ATTENZIONE SELEZIONA UN COMUNE"
                Else
                   DoCmd.OpenReport "R_RIEP", PrintMode, ,strTrovaCategoria
                End If
           End If
    End Select
Esci_Anteprima_Click:
    Exit Sub
Err_Anteprima_Click:
    Resume Esci_Anteprima_Click
End Sub
Modifica poi la routine Private Sub ReportDaStampare_AfterUpdate() nel modo
seguente:
Private Sub ReportDaStampare_AfterUpdate()
Const conR_RIEP = 4
    If Me!ReportDaStampare.Value = conR_RIEP Then
               Me!SelezionaCategoria.Enabled = True
    Else
               Me!SelezionaCategoria.Enabled = False
               Me!Pippo.Enabled = False
    End If
End Sub
Spero di non essermi dimenticato nulla.
Prova e facci sapere.


 Valter
--


 Ho riprovato dopo un momento di pausa e funziona
Pero
Senza Where ecc. della Forms
Ti ringrazio dell'attenzione e dell'aiuto
Scusa del ritardo pero avevo preso un paio di giorni di pausa dal PC
Valter