Newsgroup: it.comp.appl.access
Titolo: Gruppo di opzioni e pulsante di comando

Buona sera a tutti
Ho creato un gruppo di opzioni e vorrei collegarle ad un pulòsante di
anteprima e uno di stampa. Non ci riesco nonostante la guida in linea che
non dice nulla a questo riguardo.  Qualcuno mi può suggerire il procedere?
Grazie infinitamente Diana.

 ha scritto nel messaggio
news:x3zY9.45972$ZE.12...@twister2.libero.it...

Scusa, ma cosa intendi con collegare un gruppo di opzioni ad un pulsante di
comando; spiega meglio cosa vuoi fare.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 ha scritto nel messaggio
news:x3zY9.45972$ZE.12...@twister2.libero.it...

Private Sub OpzioniDiFiltro_AfterUpdate()
If OpzioniDiFiltro = 2 Then
    Stampa
Else
    Anteprima
End If
End Sub
Una domanda sola pero?
Why Mango?

 Roberto
Ciao Roberto
Ho tre report da stampare esempio:
-clienti
-ordini
-spedizioni
per non creare tre pulsanti stampa clie... ord... sped...., ho visto che nel
db Northwind di Access, si può creare un gruppo di opzioni chiamato report
da stampare con le opzioni desiderate e poi il tutto collegato ad un tasto
stampa, anteprima e annulla. Non capisco come si collega il gruppo di
opzioni ai pulsanti, nonostante le varie prove mi sfugge qualcosa; forse si
modifica il codice? In questo caso casca l'asino...
Spero di essere stata più chiara. Ciao grazie Diana

 Ciao Giuseppe grazie del codice ora lo provo.
Non apisco Why Mango? Che vor dě? Ciao ciao e grazie Diana.

 ha scritto nel messaggio
news:EmBY9.45995$YG2.1...@twister1.libero.it...

metti che il gruppo di opzioni si chiama cornice1 e che le tre opzioni hanno
valore rispettivamente 1 2 e 3.
Sul click del pulsante fai:
Select case me.cornice1.value
    case 1
            stampa o anteprima report1
    case 2
            stampa o anteprima report2
    case 3
            stampa o anteprima report3
end select
Questa è un'idea di base che poi puoi elaborare.
Ciao


Per verificare se la cornice di opzioni č impostata correttamenteprova su
click del pulsante:
Msgbox me.cornice1.value
Cosě verifichi il valore della cornice con il valore selezionato.
Ciao

 Ciao mi da un errore ""Impossibile trovare la Macro Msgbox me. Diana

 ha scritto nel messaggio
news:6pBY9.46002$YG2.1...@twister1.libero.it...

Era ironico.
Non avevo la tua e-mail di risposta a Roberto ed anche io
mi chiedevo il perchč dei pulsanti di opzione per i report..
Cmq scusa ma perchč non ti guardi quel codice allora?
Cioč....
Sub StampaReport(PrintMode As Integer)
On Error GoTo Err_Anteprima_Click
    ' Routine utilizzata nelle routine Sub Anteprima_Click e Stampa_Click.
    ' Dal gruppo di opzioni ReportDaStampare č possibile selezionare
Anteprima e Stampa report.
    ' Quindi chiude la maschera Finestra Report vendite.
    Dim strTrovaCategoria As String
    strTrovaCategoria = "NomeCategoria = Forms![Finestra Report
vendite]!SelezionaCategoria"
    Select Case Me!ReportDaStampare
        Case 1
            DoCmd.OpenReport "Vendite impiegato per paese", PrintMode
        Case 2
            DoCmd.OpenReport "Totali vendite per importo", PrintMode
        Case 3
            If IsNull(Forms![Finestra Report vendite]!SelezionaCategoria)
Then
                DoCmd.OpenReport "Vendite per categoria", PrintMode
            Else
                DoCmd.OpenReport "Vendite per categoria", PrintMode, ,
strTrovaCategoria
            End If
    End Select
    DoCmd.Close acForm, "Finestra Report vendite"
Esci_Anteprima_Click:
    Exit Sub
Err_Anteprima_Click:
    Resume Esci_Anteprima_Click
End Sub
Private Sub Annulla_Click()
' Codice generato dall'Autocomposizione Pulsante di comando.
On Error GoTo Err_Annulla_Click
    ' Chiude la maschera.
    DoCmd.Close
Esci_Annulla_Click:
    Exit Sub
Err_Annulla_Click:
    MsgBox Err.Description
    Resume Esci_Annulla_Click
End Sub
Private Sub Anteprima_Click()
' Visualizza in anteprima il report selezionato. La routine utilizza la
subroutine
' StampaReport definita nella sezione (generale) di questo modulo.
    StampaReport acPreview
End Sub
Private Sub Stampa_Click()
' Stampa il report selezionato. La routine utilizza la subroutine
' StampaReport definita nella sezione (generale) di questo modulo.
    StampaReport acNormal
End Sub
Private Sub ReportDaStampare_AfterUpdate()
' Attiva la casella combinata SelezionaCategoria se č stato selezionato il
report
' Vendite per categoria.
    Const conVenditePerCategoria = 3
    If Me!ReportDaStampare.Value = conVenditePerCategoria Then
        Me!SelezionaCategoria.Enabled = True
    Else
        Me!SelezionaCategoria.Enabled = False
    End If
End Sub
Giuseppe


Secondo me il metodo piů semplice č:
Scegli dalla tool bar il comando "Grupo di Opzioni" con selezionato il
comando "Creazione guidata controllo" (la bacchetta magica).
Nell'auto composizione scegli quando ti chiede le etichette:
Report1
report2
Report3
ecc
ecc
ecc
Sulla pagina dei valori dovrebbero essere automaticamente abbinati i valori
1 2 e 3 ecc ecc.
Scegli come formato Gruppo di opzioni.
A quest punto su un ipotetico tasto command1 (per la stampa) sull'evento
click inserisci il codice che ti ho suggerito prima:
SELECT CASE me.CorniceX.value
    CASE 1
                DoCmd.Openreport "nomereport"
    case 2
                docmd......
     case 3
                ....
END SELECT
Il riferimento Me.cornice.value lo usi se il codice che controlla i click
del tasto č sul codice della Form.
Se richiami una Routin Pubblica Esterna devi passare il riferimento della
maschera ala routine ma non penso sia il tuo caso.
Nota cornice 1 č il controllo che contiene le tre o piů opzioni e non una
singola opzione
Spero ti sia d'aiuto.
Ciao

 EUREKA finalmente. Ciao Jef meraviglioso funziona, grazie più di mille
ciao ciao e buona domenica Diana.

 ha scritto nel messaggio
news:EmBY9.45995$YG2.1...@twister1.libero.it...

Vedo che ormai sei in buone mani, quindi mi ritiro in buon ordine. ;-)


 Vedo che ormai sei in buone mani, quindi mi ritiro in buon ordine. ;-)
Eh Robè...
Non saresti il primo nè sarai l'ultimo dei cicisbei...
Ehe hee he e
Antonio