Newsgroup: it.comp.appl.access
Titolo: COMANDO ANNULLA NON DISPONIBILE.

Ho inserito del codice su un Bottone; quando lo clicco mi appare la domada:
" Vuoi Accodare i dati ?"  con i bottoni di risposta : Si    -    No   -
Annulla .
Come mai a volte l'annulla funziona e a volte no?????
Premetto che ho creato un menu' personalizzato che comprende quel comando..
Grazie.

 ha scritto nel messaggio
news:Gh0S8.125766$g04....@tornado.fastwebnet.it...

Questo un esempio di codice:
Dim msg As Integer
msg = MsgBox("Vuoi accodare i dati?", vbYesNoCancel + vbDefaultButton1,
"pIPPO")
If msg = 6 Then ' Sě
ElseIf msg = 7 Then ' NO
ElseIf msg = 2 Then  'ANNULLA
End If
Vedi un po se puň servirti
Ciao, Carlo

 ha scritto nel messaggio
news:KJ1S8.67098$j65.1...@twister1.libero.it...

Non mi funziona correttamente; se clicco su No procede ugualmente: ti invio
il codice che ho inserito.
Dim Cancel As Integer
   Dim stDocName As String
   Dim retValue As Integer
     Dim strmsg As String
     strmsg = "Si stanno per passare i dati a consuntivo.Verificare di aver
compilato il campo REDATTO DA: e RIF. INT.: . Il passaggio dei dati da
preventivo a consuntivo NON PERMETTERA' LA CANCELLAZIONE DELLA SCHEDA !!!."
& vbCrLf & _
            "CONFERMI IL PASSAGGIO ?"
   retValue = MsgBox(strmsg, vbYesNo + vbDefaultButton1, "pIPPO")
   If retValue = 6 Then 'Si
   ElseIf retValue = 7 Then 'no
   End If
    Me.Consuntivo_si_no = True
    stDocName = "Passaggio_a_consuntivo"
    DoCmd.OpenQuery stDocName, acNormal, acEdit
    Me.Requery
    DoCmd.GoToRecord , , acLast
Exit_passaggio_a_consuntivo_Click:
    Exit Sub
Err_passaggio_a_consuntivo_Click:
    MsgBox Err.Description
    Resume Exit_passaggio_a_consuntivo_Click
End Sub


Certo che non funziona: il codice che apre la query va inserito dopo il
valore 6 (esegui) dell'if.
Dim Cancel As Integer
   Dim stDocName As String
   Dim retValue As Integer
     Dim strmsg As String
     strmsg = "Si stanno per passare i dati a consuntivo.Verificare di aver
compilato il campo REDATTO DA: e RIF. INT.: . Il passaggio dei dati da
preventivo a consuntivo NON PERMETTERA' LA CANCELLAZIONE DELLA SCHEDA !!!."
& vbCrLf & _
            "CONFERMI IL PASSAGGIO ?"
   retValue = MsgBox(strmsg, vbYesNo + vbDefaultButton1, "pIPPO")
   If retValue = 6 Then 'Si
    Me.Consuntivo_si_no = True
    stDocName = "Passaggio_a_consuntivo"
    DoCmd.OpenQuery stDocName, acNormal, acEdit
    Me.Requery
    DoCmd.GoToRecord , , acLast
   ElseIf retValue = 7 Then 'no
'qui devi mettere il codice in caso si sia scelto NO
   End If
    Exit_passaggio_a_consuntivo_Click:
    Exit Sub
Err_passaggio_a_consuntivo_Click:
    MsgBox Err.Description
    Resume Exit_passaggio_a_consuntivo_Click
Ciao, Carlo

 ha scritto nel messaggio
news:b1hS8.70278$j65.1...@twister1.libero.it...

Si hai perfettamente ragione, infatti subito dopo sono giunto all tua stessa
conclusione.
Pero' il codice da inserire dopo il no?????
Es. una conferma si/no io l'ho messa sul before_update della form; se dopoil
si non metto nulla prosegue e salva cio' che ho fatto ma dopo il no????cosa
devo mettergli se il comado annulla non finziona???
Grazie.


Puoi mettere una msgbox che avverte che l'operazione non č stata effettuata
e poi un bel Exit sub.
Oppure puoi semplicemente cancellare l'ElseIf = 7 se non ti serve nessuna
azione.
Ciao, Carlo