Newsgroup: it.comp.appl.access
Titolo: Inserire comando in VBQuestion

Dopo la modifica di un record, mi esce una txt box che mi chiede se voglio
salvare o meno i dati,
se rispondo si, vorrei venisse anche richiamata la miafunzione "Call
AggiornaGiac(cod)"
come dovrebbe venire considerando questo codice:
---------------
Private Sub Form_BeforeUpdate(Cancel As Integer)
  Dim retValue As Integer
   Dim strTtl As String
   Dim strMsg As String
   strTtl = "AVVISO !!!!"
   strMsg = "CONFERMI IL SALVATAGGIO DELL'OPERAZIONE APPENA EFFETTUATA" &
vbCrLf & _
            "Vuoi salvare le modifiche?"
   retValue = MsgBox(strMsg, vbQuestion + vbYesNoCancel, strTtl)
   Select Case retValue
       Case vbYes
               'SALVA
       Case vbNo
           DoCmd.RunCommand acCmdUndo
       'Case vbCancel
           'Cancel = True
   End Select
End Sub
----------------
Napoleone

 ha scritto nel messaggio 
news:BfBle.28956$795.8...@twister1.libero.it...

Ciao Napoleone,
come passi a quella funzione AggiornaGiac(cod) il parametro? 

 ha scritto nel messaggio 
news:ajBle.948843$b5.41...@news3.tin.it...

La vorrei lanciare quando
 Case vbYes
non se sono stato chiaro.
Napoleone 

 ha scritto nel messaggio 
news:eoBle.28979$795.8...@twister1.libero.it...

Si...ho capito ma non è una sub-routine, devi passargli il parametro 
'cod'...dove lo vai a prendere? 

 ha scritto nel messaggio
news:BfBle.28956$795.8...@twister1.libero.it...

Ciao Napoleone,
basta aggiungere
AggiornaGiac(cod)  dopo Case vbYes
cosě:
 Private Sub Form_BeforeUpdate(Cancel As Integer)
   Dim retValue As Integer
    Dim strTtl As String
    Dim strMsg As String
    strTtl = "AVVISO !!!!"
    strMsg = "CONFERMI IL SALVATAGGIO DELL'OPERAZIONE APPENA EFFETTUATA" &
 vbCrLf & _
             "Vuoi salvare le modifiche?"
    retValue = MsgBox(strMsg, vbQuestion + vbYesNoCancel, strTtl)
    Select Case retValue
        Case vbYes
                'SALVA
                   AggiornaGiac(cod)
        Case vbNo
            DoCmd.RunCommand acCmdUndo
        'Case vbCancel
            'Cancel = True
    End Select
 End Sub
Saluti
Cinzia

 Napoleone
p.s. Ciao Gaspare, mi permetto di rispondere io per te, perchè conosco la
funzione che Napoleone richiama.
In realtà vai scorrere tutta una tabella e quel cod è il codice prodotto per
il filtro.
p.s.s. Napoleone, in realtà ti basta copiaincollare le istruzioni che avevi
previsto con quel pulsante Comando36
a posto di 'SALVA
-- 
_ _
Ciao
MAssimiliano Amendola            
www.accessgroup.it
Cisa1 - I° Conferenza Italiana per Sviluppatori Access Arezzo 4+5
Giugno 2005 Sono aperte le iscrizioni  Info:  
www.donkarl.com/it

 ha scritto nel messaggio 
news:_vBle.12619$TR5....@news.edisontel.com...

;-) 

 ha scritto nel messaggio 
news:4296e35d$0$15916$5fc...@news.tiscali.it...

Ciao Cinzia,
Ho provato con
 Call AggiornaGiac(cod)
e non va, in debug si posiziona su (cod)
Ciao Napoleone 

> così:

Napoleone devi mettere Call AggiornaGiac(lcodiceprodotto)
Cinzia non poteva saperlo


 ha scritto nel messaggio 
news:_vBle.12619$TR5....@news.edisontel.com...

Ho aggiunto
cod = Me.lCodiceBarreProdotto
Me.Recalc
Call AggiornaGiac(cod)
e mi segnala lo stesso errore come da Cinzia
Napoleone 


lCodiceBarreProdotto è presente nella maschera?
perchè con "me. " gli stai dicendo di sì


 ha scritto nel messaggio 
news:0kCle.12635$TR5....@news.edisontel.com...

Adesso è
--------------------
cod = Me.lCodiceBarreProdotto
 Me.Recalc
Call AggiornaGiac(lCodiceBarreProdotto)
--------------
continua apiantarsi su Me.Recalc 


che c'hai combinato?
Prima funzionava. ti aggiusto e spedisco tutto


 ha scritto nel messaggio 
news:0tCle.12639$TR5....@news.edisontel.com...

Niente!!!!
Dai che pomeriggio ti, vi lascio tranquilli..
Napoleone