Newsgroup: it.comp.appl.access
Titolo: Casella di riepilogo modificare il campo di scelta

Ho una maschera per le varie stampe di un programmino. Con la funzione
"opzioni" gestisco le varie stampe, una di queste, opzioni, ha agganciato un
passaggio per la scelta, su due caselle di riepilogo (ognuna con una query)
dove vengono , sulla prima scelto l'anno di arrivo del documento e sulla la
seconda il tipo di documento.
Adesso vorrei poter inserire una opzione, sulla stessa maschera dove sia
possibile al posto, nella casella riepilogo, del tipo di documento far
comparire l'ufficio di competenza del documento. Cioe cambiare la query,
della seconda casella riepilogo, con la query dell'ufficio.
Grazie a chi potrŕ darmi una dritta
Valter

 Valter
Ci hai detto un pò pochino. Ci sono diversi modi in cui possa avvenire il
doppio filtro. In buona sostanza però su una copia del tuo db elimina il
vecchio 2° controllo, inserisci il controllo che ti serve (associato o meno,
questo non lo dici), che ha come origine dati la tabella (o un elenco valori
- neanche questo lo dici). Su enter di questo nuovo conrollo ci metti il
requery del controllo e modifichi la query del report con
forms!tuamaschera!tuonuovocontrollo.
Cerca d'essere + preciso x farti aiutare.
ciao MAssimiliano
--------------------------------
Inviato via 
http://usenet.libero.it

 Valter
Da codice è possibile modificare la proprietà rowsource della casella di
riepilogo assegnandogli il nome di una tabella, di una query salvata e una
stringa SQL valida.
Antonio

 Valter
Innanzitutto Grazie  a "MA" e "Antonio Biso" per la cortesia di avermi
risposto
Il codice dove faccio le scelte è sotto riportato
La scelta del cambio di tipo tra tipo di documento e Ufficio la desidererei
farla nella casella di riepilogo nominata "tipo_documento" dove è impostata
la query di selezione. Il report puo restare il solito.
****************************
Sub StampaReport(PrintMode As Integer)
On Error GoTo Err_Anteprima_Click
    Dim strTrovaCategoria As String
    strTrovaCategoria = "[anno] =
Forms![M_STAMPA_TIPO_DOCUMENTO]!SelezionaCategoria And [tipo_documento] =
Forms![M_STAMPA_TIPO_DOCUMENTO]!scelta_documento"
    Select Case Me!ReportDaStampare
               Case 1
               'attualmente non in uso
               Case 2
                    If
IsNull(Forms![M_STAMPA_TIPO_DOCUMENTO]!SelezionaCategoria) Then
                            MsgBox "***********ATTENZIONE SELEZIONA UN
ANNO*********"
                       Else
                    If
IsNull(Forms![M_STAMPA_TIPO_DOCUMENTO]!Scelta_documento) Then
                            MsgBox "***********ATTENZIONE SELEZIONA UN TIPO
DI DOCUMENTO *********"
                    Else
                            DoCmd.OpenReport "R_POSTA", PrintMode, ,
strTrovaCategoria
                    End If
                    End If
        End Select
Esci_Anteprima_Click:
    Exit Sub
Err_Anteprima_Click:
    Resume Esci_Anteprima_Click
End Sub
***********************************
Private Sub ReportDaStampare_AfterUpdate()
 Const conR_POSTA = 2
    If Me!ReportDaStampare.Value = conR_POSTA Then
                Me!SelezionaCategoria.Enabled = True
        Else
                Me!SelezionaCategoria.Enabled = False
                Me!Scelta_documento.Enabled = False
    End If
  End Sub
*************************
Private Sub SelezionaCategoria_AfterUpdate()
    Me!Scelta_documento.Requery
    Me!Scelta_documento.Enabled = True
    Me!Scelta_documento.SetFocus
End Sub
************************
Private Sub Anteprima_Click()
    StampaReport acPreview
End Sub
******************
Private Sub Stampa_Click()
    StampaReport acNormal
End Sub
*********
Grazie dell'attenzione  Valter