Newsgroup: it.comp.appl.access
Titolo: Annullare evento se..

Buongiorno ai partecipanti,
nella maschera M_Fiche ho:
la sottomaschera "SM_ Fiche_Oggi" ed il bottone "Comando134",
che mi lancia una macro.
Se nella mia sottomaschera "SM_ Fiche_Oggi" non ci sono dati inseriti
e vado a piggiare il "Comando134", come posso ricevere un avviso
e quindi poter annullare l'evento??
Per meglio dare l'idea, allego il codice sull'evento click del Comando134.
---------------
Private Sub Comando134_Click()
On Error GoTo Err_Comando134_Click
Call fctAggiornaUltimaVisitaCliente(lCodiceBarreCliente, Me.dDataIngresso)
DoCmd.Close
    Dim stDocName As String
    DoCmd.SetWarnings False
    ' Questa macro salva tutte le prestazioni e presenze poi le elimina
    stDocName = "Mac_Salva_Esci"
    DoCmd.RunMacro stDocName
DoCmd.SetWarnings True
Exit_Comando134_Click:
    Exit Sub
Err_Comando134_Click:
    MsgBox Err.Description
    Resume Exit_Comando134_Click
End Sub
--------------------------
Ringrazio quanti mi verranno in aiuto,
MA sopratutto, quanti mi hanno già dato incodizionatamente il loro aiuto!
Napoleone 


' con questa riga ma solo se non è possibile fare inserimenti
' nella sottomaschera altrimenti la cosa cambia.
If IsNull(form_frmSottoVisite.IdVisite) Then
    msgbox "nessuna visita presente per il cliente"
   Exit Sub
End if


CUT
Mi esce: Necessario oggetto
Ciao
Napoleone 

 ha scritto nel messaggio 
news:HpO0f.1420$8p3....@twister1.libero.it...

certo devi mettere il nome della tua sottomaschera e il nome del contatore 
della sottotabella,
come faccio a sapere i nomi, è chiaro che vanno sostituiti, e solo un 
esempio.
Ciao ;-) 

 ha scritto nel messaggio 
news:4343b3b6$0$8498$5fc...@news.tiscali.it...

Ciao Alex1,
ti riallego il codice:
---------------------------
Private Sub Comando134_Click()
On Error GoTo Err_Comando134_Click
If IsNull (SM_Fiche_Oggi.VisiteID) Then
    MsgBox "nessuna visita presente per il cliente"
   Exit Sub
End If
Call fctAggiornaUltimaVisitaCliente(lCodiceBarreCliente, Me.dDataIngresso)
DoCmd.Close
    Dim stDocName As String
    DoCmd.SetWarnings False
    ' Questa macro salva tutte le prestazioni e presenze poi le elimina
    stDocName = "Mac_Salva_Esci"
    DoCmd.RunMacro stDocName
DoCmd.SetWarnings True
Exit_Comando134_Click:
    Exit Sub
Err_Comando134_Click:
    MsgBox Err.Description
    Resume Exit_Comando134_Click
End Sub
----------------------
Ciao
Napoleone 


ci sentimao piu' tardi
Saluti 

Napoleone ha scritto:

Ciao Napoleone,
perchè non dici semplicemente
if me.recordsetclone.recordcount>0 then
             esegui macro e il resto che ti serve
else
     msgbox("non ci sono dati da salvare")
     exit sub
end if
ti indico solo questo perchè ti scrivo velocemente da internet e sono
sul  lavoro ....
Ci sentiamo in serata se vedo reply a questo post.
Mi deludi, ma come usi le macro :-)
Ciao, Sandro

 che mi lancia una macro.
Hai capito Sergio quante ce n'ha???!! le divide per giorno!!!!
S'č dovuto addirittura fare un db...
dalla Calabria con Testosterone!!!
-- 
_ _
Ciao
MAssimiliano Amendola            
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:  
www.donkarl.com/it


... e sopratutto molto peperoncino!
Ciao
Napoleone 

 Info:  
www.donkarl.com/it
Ciao.
-- 
Sergio MAZZA 

 Napoleone
-- 


CUT

Ciao Massimiliano,
anche con:
..
If IsNull (SM_Fiche_Oggi.VisiteID) Then
    MsgBox "nessuna visita presente per il cliente"
   Exit Sub
End If
..
mi segnala Necessario oggetto.
Grazie
Napoleone 

 Napoleone
Non hai cambiato nulla


 ha scritto nel messaggio 
news:v0b1f.44000$TR5....@news.edisontel.com...

Scusami, ho sbagliato a scrivere, è
...
If IsNull (SM_Fiche_Oggi.VisiteID) Then
...
dandomi l'errore, di cui prima accennavo.
Ciao
Napoleone

 Napoleone
NAPOLEONE Rotfl...
ha scritto ancora nel modo sbagliato, ci vuole l'esclamativo!


MAXI CUT
Credo che per meglio dare l'idea, è più utile allegare tutto il codice:
----------
Private Sub Comando134_Click()
On Error GoTo Err_Comando134_Click
If IsNull(SM_Fiche_Oggi!VisiteID) Then
    MsgBox "nessuna visita presente per il cliente"
   Exit Sub
End If
Call fctAggiornaUltimaVisitaCliente(lCodiceBarreCliente, Me.dDataIngresso)
DoCmd.Close
    Dim stDocName As String
    DoCmd.SetWarnings False
    ' Questa macro salva tutte le prestazioni e presenze poi le elimina
    stDocName = "Mac_Salva_Esci"
    DoCmd.RunMacro stDocName
DoCmd.SetWarnings True
Exit_Comando134_Click:
    Exit Sub
Err_Comando134_Click:
    MsgBox Err.Description
    Resume Exit_Comando134_Click
End Sub
--------------------------
Adesso il ! c'è, assieme al "Necessario oggetto"
Ciao
Napoleone