Newsgroup: it.comp.appl.access
Titolo: Intercettare MSG eliminazione file

Buongiorno,
Come si puņ intercettare il msg, su eliminazione di un record e quindi 
personalizzarlo?
Ciao Napoleone 

 Ciao Napoleone
-- 
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------


Lo elimino con un pulsante situato nella stessa maschera.
Quindi come dovrebbe venire..
Napoleone 

 ha scritto nel messaggio 
news:OG0fe.84619$IN.14...@twister2.libero.it...

Penso bisogna intercettare l'errore e quindi il numero dell'errore stesso???
Napoleone

 stesso???
È ovviamente il tuo codice è un segreto.
Normalmente non c'è un errore ma un messaggio d'avviso che
si puo inibire nello stesso modo che Roberto ha già scritto per
query di comando, cioè SetWarnings.
Vedi 
www.donkarl.com/it
 FAQ 2.4 Eliminare i messaggi d'avviso
-- 
HTH
Karl
*********
Access FAQ: 
www.donkarl.com/it
 + iscriviti alla prima Conferenza
Italiana per Sviluppatori di Access (CISA 1), Arezzo, 4+5/6/2005 

 Karl
Ho visto la tua Faq 2.4
però, più che eliminare il messaggio, io vorrei modificarlo;
Anzichè: ..si sta eliminando un record...
sarà: ATTENZIONE: Stai eliminando un cliente dall'elenco!! confermi SI o 
NO...
Napoleone 

 Napoleone
Metti un MsgBox tuo all'interno della disabilitazione del Warning
come ti ha suggerito Karl, e ne controlli l'esito della selezione
VbYES/No.
SetWarning False
Tuo MEssaggio
Verifica Si/NO
   Se No Warning True: Esci
   Se Si Esegui il DELETE
      Warning True
Esci
Saluti
@Alex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio 
news:86f61ebcfee116fe8e...@mygate.mailgate.org...

Scusami Alessandro,
mi sento un po confuso, forse perchè non so com eutilizzare SetWarning,
farei prima a chiederti una riga di codice, ma vorrei capire
(in generale come intercettare un errore e personalizzarlo):
con quale logica creare quanto mi serve,
anche perche dovrò in seguito applicarlo ad altre maschere e quindi saprò 
cosa fare!
1)Io stò eliminando un record nella MiaMaschera (col click del MioBottone)
    -quindi l'errore va captato su corrente della MiaMaschera?
        -o sul click del MioBottone
            -con quale stringa ottengo cio?
2)Ho pensato cosi: ma è sbagliato
Private Sub eliminacliente_dal_salone_Click()
On Error GoTo Err_eliminacliente_dal_salone_Click
SetWarning False
MsgBox "Sei sicuro di voler cancellare un cliente presente nel Salone!!", 
vbOKOnly, "ATTENZIONE!!!!!"
Else
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Me.CasellaCombinata27.Requery
Exit_eliminacliente_dal_salone_Click:
    Exit Sub
Err_eliminacliente_dal_salone_Click:
    MsgBox Err.Description
    Resume Exit_eliminacliente_dal_salone_Click
End Sub
Speriamo bene....
Napoleone

SUPERCUT
Ho risolto cosi, dopo infinite prove:
Private Sub eliminacliente_dal_salone_Click()
DoCmd.SetWarnings False
If Me.lCodiceBarreCliente > 0 Then
End If
  Dim retValue As Integer
   Dim strTtl As String
   Dim strMsg As String
   strTtl = "AVVISO DI ELIMINAZIONE !!!!"
   strMsg = "STAI ELIMINANDO UN CLIENTE DAL SALONE." & vbCrLf & _
            "Vuoi Confermare?"
   retValue = MsgBox(strMsg, vbQuestion + vbYesNoCancel, strTtl)
   Select Case retValue
       Case vbYes
           DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
            DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
       Case vbNo
           'DoCmd.RunCommand acCmdUndo
       Case vbCancel
           Cancel = True
   End Select
  DoCmd.SetWarnings True
Me.CasellaCombinata27.Requery
End Sub
Funziona permettamente, solo che vorrei inserire una condizione e cioe,
annulli tutto il procedimento se si va a pozizionare sull'ultimo record,
per l'inserimento di un nuovo record.
Fammi sapere
Napoleone