Newsgroup: it.comp.appl.access
Titolo: Routine VBA che non funziona in modo adeguato

Al fine di evitare che utenti finali inesperti possano manipolare o
invvertitamente cancellare tabelle, ho costruito maschere continue che
visualizzano i record delle tabelle. I record, all'apertura della maschera,
sono bloccati tramite VBA:
Private Sub Blocca()
Campo1.Locked = True
Campo2.Locked = True
Campo3.Locked = True
End Sub
un pulsante "Modifica" sblocca tutti i campi per permettere modifiche o
aggiunte. Fin qui tutto bene!
Ora un pulsante "Cancella Record" mi mostra un messaggio con all'interno due
pulsanti che dice:
Sei sicuro di voler CANCELLARE in modo PERMANENTE la Persona selezionata e
quindi tutti i suoi Corsi Formativi???"
Il pulsante SI cancella il record selezionato, mentre il pulsante NO
dovrebbe evitare la cancellazione del record invece si comporta come il
pulsante Si.
Non riesco a capire cos'è che non funziona nella routine sottostante, forse
una persona più esperta può essermi di aiuto!!
Grazie in anticipo
Karsten
Private Sub CAncella_Record_Click()
On Error GoTo Err_CAncella_Record_Click
Dim msg, Style, Title, Help, Ctxt, Response, Mystring
msg = "Sei sicuro di voler CANCELLARE in modo PERMANENTE la Persona
selezionata e quindi tutti i suoi Corsi Formativi???" 'Definisce il
messaggio da visualizzare.
Style = vbYesNo + vbCritical + vbDefaultButton2 'Definisce i Pulsanti del
MsgBox.
Title = "Cancella Dati" 'Definisce il Titolo del MsgBox.
Help = "demo.hlp" 'Definisce il file della Guida.
Ctxt = 1000 'Definisce il contesto dell'Argomento.
Response = MsgBox(msg, Style, Title, Help, Ctxt)
If Response = vbYes Then 'L'utente scieglie il pulsante Si.
Sblocca 'Il pulsante Si sblocca tutti i campi e i tasti bloccati.
IdDipendente.Enabled = True
Cognome.Enabled = True
Nome.Enabled = True
Dimissioni.Enabled = True
IdSocietà.Enabled = True
Mystring = "Si" 'Esegue un'azione.
Else 'L'utente scieglie il pulsante No.
Mystring = "No" 'Esegue un'azione.
End If
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Exit_CAncella_Record_Click:
    Exit Sub
Err_CAncella_Record_Click:
    MsgBox Err.Description
    Resume Exit_CAncella_Record_Click
End Sub

     DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
--
a.cara 
Togli qualcosa dall'email

 ha scritto nel messaggio
news:402FB47E...@blunet.it...

Come posso far in modo che, con VBA, il pulsante NO annulli il comando
Delete??
Karsten


.......
If Response = vbYes Then 'L'utente scieglie il pulsante Si.
     Sblocca 'Il pulsante Si sblocca tutti i campi e i tasti bloccati.  ????
cos'e' sblocca? messa cosi' sembra una funzione!
      IdDipendente.Enabled = True
      Cognome.Enabled = True
      Nome.Enabled = True
      Dimissioni.Enabled = True
      IdSocietà.Enabled = True
      DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
     DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
     Mystring = "Si" 'Esegue un'azione.
Else 'L'utente scieglie il pulsante No.
      Mystring = "No" 'Esegue un'azione.
End If
.......


 ha scritto nel messaggio
news:wNLXb.9145$FJ6.3...@twister1.libero.it...

Esegui le istruzioni di cancellazione solo se l'utente risponde SI alla
domanda, ovvero:
Private Sub CAncella_Record_Click()
On Error GoTo Err_CAncella_Record_Click
Dim msg, Style, Title, Help, Ctxt, Response, Mystring
msg = "Sei sicuro di voler CANCELLARE in modo PERMANENTE la Persona
selezionata e quindi tutti i suoi Corsi Formativi???"
Style = vbYesNo + vbCritical + vbDefaultButton2
Title = "Cancella Dati"
Help = "demo.hlp"
Ctxt = 1000
Response = MsgBox(msg, Style, Title, Help, Ctxt)
If Response = vbYes Then
    IdDipendente.Enabled = True
    Cognome.Enabled = True
    Nome.Enabled = True
    Dimissioni.Enabled = True
    IdSocietà.Enabled = True
    Mystring = "Si"
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Else
    Mystring = "No"
End If
Exit_CAncella_Record_Click:
    Exit Sub
Err_CAncella_Record_Click:
    MsgBox Err.Description
    Resume Exit_CAncella_Record_Click
End Sub
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


[cut]

**Grazie** Roberto, ed anche a te Alessandro per il Vostro Aiuto.
Utilizzo il computer da 12 anni, ma solamente da poco tempo,  ho scoperto i
Newsgroups e devo dire che sono Interessantissimi.
Ringrazio tutte quelle persone che con il loro tempo rendono partecipi della
loro conoscenza chi è meno esperto!
--
Karsten