Newsgroup: it.comp.appl.access
Titolo: Cancellare 'Annulla'.......

Un saluto cordiale a tutti!
Vorrei che mi aiutaste a capire cosa devo fare per modificare il seguente
codice associato ad un pulsante di comando, in modo da evitare che compaia
l'opzione 'Annulla' nel momento in cui mi chiede se voglio salvare i dati
all'interno di una maschera.
A me basta che compaia soltanto Sì o No, dal momento che, se clicco su
'Annulla', non fa altro che effettuare il salvataggio del record come se in
effetti si cliccasse sul 'Sì'.
Sarebbe opportuno invece che, cliccando su 'Annulla', sparisse semplicemente
la finestra lasciando il record lì dov'è per consentire l'immissione o la
modifica di altri dati.
Vi elenco il codice:
Private Sub Comando44_Click()
On Error GoTo Err_Comando44_Click
    Dim Cancel As String
    Dim retValue As Integer
    Dim strTtl As String
    Dim strMsg As String
   strTtl = "Salvare il record?"
   strMsg = "Vuoi salvare i dati?" & vbCrLf
   retValue = MsgBox(strMsg, vbQuestion + vbYesNoCancel, strTtl)
    Select Case retValue
       Case vbYes
           'non fare nulla
       Case vbNo
           DoCmd.RunCommand acCmdUndo
       Case vbCancel
           Cancel = True
       End Select
Grazie come sempre per il prezioso aiuto.
Ciao Rita

 ha scritto nel messaggio
news:0TuI8.18283$8x3.3...@twister1.libero.it...

retValue=msgbox(strMsg, vbQuestion + vbYesNo, strTtl)
if vbno then docmd.runcommand acCmdUndo
Dovrebbe andare, ciao
Paolo

 > la finestra lasciando il record lě dov'č per consentire l'immissione o

Grazie mille Paolo, provo subito.
Ciao Rita

 ha scritto nel messaggio
news:3cf2...@news.opennet.it...

Mi spiace Paolo non funziona, quando clicco su 'Annulla' scompaiono sempre
tutti i dati nei controlli della maschera ed io vorrei che invece rimanesse
tutto lì dove si trova.
Grazie in ogni caso per la disponibilità, se puoi darmi qualche altro
consiglio lo accetto volentieri.
Ciao Rita


Non era molto chiaro quello che volevi fare, ma prova con:
'---------
   retValue = MsgBox(strMsg, vbQuestion + vbYesNo, strTtl)
    Select Case retValue
       Case vbYes
           'non fare nulla
       Case vbNo
 'secondo me è qui che non devi fare nulla
       Case vbCancel
'vbCancel non serve perché il tasto non lo includi nel msgbox (vbYesNo al
posto di VbYesNoCancel)
'           Cancel = True
       End Select
'---------
Che praticamente si riduce il tutto a: nulla! Se il tapino preme No o
Annulla (se è presente) non succede nulla (appunto!), invece se preme Ok o
Sì... Pure...
Praticamente se togli il bottone non togli nulla alla maschera, ma forse non
ho capito quello che ti serviva...
Ciao.
--
Sergio MAZZA

 modifica di altri dati.
Se sei, come credo, su una maschera associata mi sa che non puo' funzionare
cosi' semplicemente. Questo perche' quando clicchi sul pulsante di fatto
esci dal record e ne determini il salvataggio automatico, quindi non c'e'
undo o cancel che tenga.
O usi una maschera non associata, in modo che i dati digitati li scrivi tu
quando lo decidi, oppure tieni in qualche modo traccia dell'oeprazione e ti
fai un undo personale.
Saluti.
Luciano

 ha scritto nel messaggio
news:acv9p1$go3$1...@canarie.caspur.it...

Ciao e grazie per la disponibilità.
Scusami se sono stata un pò ingarbugliata nell'esposizione.
In pratica io vorrei 3 opzioni: Sì (salva il record), No (non salvare il
record), Annulla (chiudi la finestra messaggio e lascia i dati del record lì
dove sono per eventuali aggiunte o modifiche).
Potrei anche accontentarmi di 2 opzioni ( Sì/No), però ho pensato che
sarebbe meglio prevedere anche che l'utente possa cliccare sbadatamente il
tasto di 'Conferma salvataggio'.
Inserendo il tasto Annulla sarebbe possibile ritornare sui dati appena
immessi senza passare al record suvccessivo.
Però leggendo anche il messaggio di Luciano forse non sarebbe possibile
attuare una cosa del genere visto che adopero una maschera associata.
Vorrà dire che adopererò 2 opzioni (Sì/No) e l'utente starà attento!
Ciao e di nuovo grazie.
Rita

 ha scritto nel messaggio
news:acvoph$sq759$1...@ID-86073.news.dfncis.de...

Ciao Luciano.
Ho capito ciò che mi hai scritto e sono giunta alla conclusione che l'utente
starà attento a cliccare il tasto di conferma salvataggio quando necessario.
Adopero una maschera associata e per ora mi accontento di avere 2 opzioni
(Sì/No).
Taglio la testa e le ..........corna al toro!
Buona giornata e grazie
Ciao Rita

 Taglio la testa e le ..........corna al toro!
Con buona pace dei cornuti...ma perche' non fai una maschera non associata?
Non e' tutto piu' semplice?
Saluti.
Lcoa

 ha scritto nel messaggio
news:ad02j6$snqp6$1...@ID-86073.news.dfncis.de...

A domanda rispondo : non la so fare! Sigh, non saprei come fare...
Ciao Rita
P.S.: Devo correre a mangiare la pizza!

 P.S.: Devo correre a mangiare la pizza!
Ah, se leggevo priam venvo anche io!:-)
Saluti.
Luciano

 ha scritto nel messaggio
news:ad1tu9$tne2f$1...@ID-86073.news.dfncis.de...

Ciao Luciano, come rendere non associata la maschera so come fare e dopo che
non so se riesco, cmq sei stato molto chiaro e cercherò di migliorare le mie
conoscenze in VBA.
Ci sarebbe stata pizza anche per te, la prossima volta ti avviso!
Ciao e grazie
Rita


Ti confesso che mi ha lasciato perplesso il messaggio di Luciano (DOC); io
ho creato (con il wizard) una form associata ad una tabella e in un bottone
(evento "su clic") ho inserito questo codice:
'----------------------
Dim risposta As Integer
risposta = MsgBox("Salvi i dati?", vbInformation + vbYesNoCancel, "Dubbio
Amletico")
Select Case risposta
    Case vbYes 'salvo i dati
        Me.Refresh
    Case vbNo 'annullo tutti i dati inseriti
        Me.Undo
    Case vbCancel 'non faccio nulla
    Case Else
End Select
'----------------------
e non ho riscontrato nulla di "strano", ma forse ho male interpretato il
messaggio di Luciano (DOC)...
Ciao.
--
Sergio MAZZA

 Ti confesso che mi ha lasciato perplesso il messaggio di Luciano (DOC); io
Lungi da me il proposito di perpledere Sergio Mazza!:-))
Comunque il fatto e' questo: io in genere visualizzo i dati in sottomaschere
foglio dati quindi se vado a cliccare su un bottone in maschera esco dalla
griglia e determino il salvataggio automatico del record. A quel punto hai
voglia a fare undo e cancel! Io in genere lavoro sugli eventi di uscita dal
campo o dal record e chiedo conferma, ad esempio se c'e' qualcosa che non mi
quadra.
Saluti.
Luciano

 Ci sarebbe stata pizza anche per te, la prossima volta ti avviso!
Con un discreto anticipo, vista la distanza fra le nostre citta'....:-)
Saluti.
Luciano


Praticamente hai usato della benzina per spegnere il fuoco... Ma si parlava
di schede e sottoschede? Allora mi è sicuramente sfuggito qualcosa e hai
ragione tu in questo caso...
Ciao.
--
Sergio MAZZA

 ha scritto nel messaggio
news:ad20a5$p9n$1...@canarie.caspur.it...

Grazie Sergio per la disponibilità, ho provato il codice, ma purtroppo non
ottengo ciò che vorrei.
Tutto bene per le opzioni Sì e No, ma quando clicco su 'Annulla'
automaticamente mi salva il record, io vorrei invece che cliccando su
'Annulla' rimanesse tutto lì (la maschera con i dati appena immessi) e che
mi fosse consentito agire ancora sui dati.
Penso che dovrò seguire altre vie.
Grazie ancora
Ciao Rita

 ha scritto nel messaggio
news:ad1tu9$tne2f$1...@ID-86073.news.dfncis.de...

Grazie Luciano, ..vista così la cosa non mi sembra molto comlicata... Ok, mi
hai convinta, ci provo.
Ciao Rita
P.S.: Ti terrò presente per la prossima pizza!


Strano; invia il codice associato al bottone che ci diamo un'occhiata.
Ripeto, il test l'ho effettuato con:
- una tabella di prova;
- maschera associata alla tabella;
- bottone (con codice di esempio) sia posizionato nel corpo che nel piè di
pagina della maschera;
se io modifico/inserisco dei dati, prima che il record venga salvato
(matitina), alla pressione del bottone se rispondo sì mi registra il record;
no mi annulla tutti i dati inseriti/modificati e annulla mi ritorna sulla
form con i dati ancora da salvare (matitina).
Ciao.
--
Sergio MAZZA

 ha scritto nel messaggio
news:ad2fad$381$1...@canarie.caspur.it...

Ti premetto che la mia maschera è associata ad una query ottenuta mediante
il join tra due tabelle.
Il codice è il seguente:
Private Sub Comando44_Click()
On Error GoTo Err_Comando44_Click
    Dim risposta As Integer
    Dim Cancel As String
    Dim retValue As Integer
    Dim strMsg As String
   strMsg = "Vuoi salvare i dati?" & vbCrLf
   retValue = MsgBox(strMsg, vbInformation + vbYesNoCancel, "Dubbio
Amletico")
    Select Case retValue
       Case vbYes
           Me.Refresh
       Case vbNo
           Me.Undo
        Case vbCancel
        Case Else
       End Select
End sub
Ciao e grazie
Rita

 il join tra due tabelle.
C'e' una cosa che non ho capito: quando l'utente si sposta tabulando fra i
controlli, arivato all'ultimo il cursore va automaticamente in eof e salva
il record. Quand'e' che dovrebbe premere il pulsante con la tua routine?
Saluti.
Luciano

 Praticamente hai usato della benzina per spegnere il fuoco...
Era per stimolare Rituccia....:-)))
Saluti.
Luciano

 ha scritto nel messaggio
news:ad2jig$tp1ga$1...@ID-86073.news.dfncis.de...

Ciao Luciano, eh si quando tabula va automaticamente in eof e salva il
record. Questo non lo avevo previsto, in effetti dovrebbe cliccare sul tasto
di 'Conferma salvataggio' prima che tabuli oltre l'ultimo controllo.
Ok meglio di cosě non so che fare, altrimenti cosa posso fare? Dovrei
disattivare il tasto di tabulazione?
Aiutoooooooo!
Ciao Rita

 Aiutoooooooo!
Dissocia, dissocia....dammi retta!:-)
Saluti.
Luciano


Ti rispondo a "braccio" anche perché ho letto i messaggi successivi.
Concordo con Luciano (DOC), se vuoi dare tu l'unica via all'operatore per
salvare/annullare i dati inseriti devi iniziare con disabilitare il
passaggio al nuovo record (che scatena il salvataggio) del tasto TAB e
Return. In effetti la mia prova si limitava a modificare i dati e premere il
tasto incriminato, non arrivavo all'ultimo controllo con il tab o return.
Ciao.
--
Sergio MAZZA


Eh si hai ragione tu Luciano! Non c'č via di scampo.....
Per ora, se l'utente vuole lavorare senza darmi il tempo di realizzare
questa cosa gli propongo un rito Vudů.
Grazie e ciao
Rita.

 ha scritto nel messaggio
news:ad4q7v$5kq$1...@canarie.caspur.it...

Eh si infatti non avevo previsto il maledetto Tab. Dovrò piegarmi a fare
questa dissociazione....
Grazie cmq Sergio per la tua collaborazione.
Ciao Rita