Newsgroup: it.comp.appl.access
Titolo: Pulsanti Multifunzione

Ciao a tutti.
Nelle maschera che ho realizzato vi sono tre pulsanti che eseguono ciasuno
una query diversa. Come si possono assegnare queste tre operazioni ad un
solo pulsante in modo tale da rendere più pratica la cosa?
Grazie
Ciao
Benedetto

 ha scritto nel messaggio
news:lY68a.167323$YG2.5...@twister1.libero.it...

Ti crei tre un gruppo di opzioni e poi con un Select Case imposti la qry che
vuoi eseguire.
Se non ti è chiaro ti mando un piccolo esempio.
Ciao
Giuseppe

 Scusami, sono stato un po' impreciso, quello che volevo sapere č come č
possibile far eseguire ad un pulsante piů azioni, ossia , cliccandolo,
automaticamente compie queste tre azioni contemporaneamente:
esegue "Query1", "Query2" e "Query3" (tutte e tre ogni volta che viene
cliccato)
Scusate se mi sono espresso male, portate pazienza!
Grazie ancora
Ciao
Benedetto

 Ciao
ciao se guardi il codice dei tre pulsanti avrai (tralasciando la gestione
errore) una struttura dell'istruzione simile:
dichiarazione della variabile dim stdocname
assegnazione della variabile alla query che ti interessa stdocname= "query1"
e l'azione docmd.openquery etc...
basta che riprendi l'asseganzione della variabile e determini l'azione per
tutte e tre le query.
dim stdocname
stdocname = "query1"
docmd....
stdocname = "query2"
docmd....
stdocname = "query3"
docmd....
e il gioco è fatto.
ciao MAssimiliano
--------------------------------
Inviato via 
http://usenet.libero.it

 Benedetto
Forse non comprendo quale sia il tuo problema, ma se ho ben compreso devi
solamente generare a fronte dell'evento "Su clic" dell'unico pulsante un
codice VBA che risulta dall'insieme dei codici VBA generati a fronte degli
eventi "Su clic" dei tre pulsanti.
O non ho capito cosa ti serviva?
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 ha scritto nel messaggio
news:plE8a.172019$YG2.5...@twister1.libero.it...

[..]
Prova questo
Private Sub cmdMultifunzione_Click()
    DoCmd.OpenQuery "Query1", acNormal, acEdit
    DoCmd.SetWarnings False
    DoCmd.OpenQuery "Query1", acNormal, acEdit
    DoCmd.SetWarnings False
    DoCmd.OpenQuery "Query1", acNormal, acEdit
    DoCmd.SetWarnings False
End Sub
P.S.
DoCmd.SetWarnings False serve per evitare se fai qry di aggiornamento che
access ti chieda la conferma
Fammi sapere
Giuseppe


Ah Giuseppe, l'unica variante che hai introdotto è eseguire 3 volte la
stessa query. Sicuro che Benedetto voleva questo.
Il setwarnings basta una volta prima dell'esecuzione della query per poi
coerenza vuole che lo ripristini dopo


 Giuseppe
Perché lo dici a me?
Inoltre il codice corretto della routine sarebbe:
Private Sub cmdMultifunzione_Click()
     DoCmd.SetWarnings False
     DoCmd.OpenQuery "Query1", acNormal, acEdit
     DoCmd.OpenQuery "Query1", acNormal, acEdit
     DoCmd.OpenQuery "Query1", acNormal, acEdit
     DoCmd.SetWarnings True
End Sub


 ciao MAssimiliano
Ops mi sono chiaramente sbagliato la routine va scritta cosě.
Private Sub cmdMultifunzione_Click()
 DoCmd.OpenQuery "Query1", acNormal, acEdit
 DoCmd.SetWarnings False
 DoCmd.OpenQuery "Query2", acNormal, acEdit
DoCmd.SetWarnings False
 DoCmd.OpenQuery "Query3", acNormal, acEdit
DoCmd.SetWarnings False
 End Sub
Scusate
Giuseppe

 Perché lo dici a me?
Scusa Roby mi sono sbagliato ad inviare l'e-mail.
Ciao
Giuseppe