Newsgroup: it.comp.appl.access
Titolo: Forzare uscita da evento EXIT

Volevo chiedere se qualche
persona mi potrebbe delucidare
in merito all'uscita forzata
da evento exit su un controllo datafattura
esempio: documento consolidato 08/02/04
oggi è il 08/02/05
Private Sub DataFattura_Exit(Cancel As Integer)
if year("Dataazienda") <> year("08/02/05") then
Dataazienda= 08/02/04
msgbox ("La data non fa parte dell'Anno in corso")
cancel=true
end if
& dopo non riesco + ad uscire se
devo chiudere Access forzando
C'è qualcuno che mi può dare una mano?
Grazie mille
Davide


Ciao,
non e' molto chiaro quello che desideri fare, in particolare
con l'assegnazione:     Dataazienda=08/02/04
Supponiamo che nel campo DataAzienda desideri che
l'utente immetta una data il cui anno sia l'anno corrente, e nel
caso in cui non sia così, da codice, modifichi la data forzando
l'anno in corso dando un messaggio di avviso.
In questo caso, io userei l'evento AfterUpdate() piuttosto che
Exit, comunque puoi scrivere :
Private Sub DataAzienda_Exit(Cancel As Integer)
    If Year(Me!DataAzienda) <> Year(Date) Then
       MsgBox "la data non fa parte dell'anno in corso"
       Me!DataAzienda = CDate(Day(Me!DataAzienda) & "/" & Month(Me!DataAzienda) 
& "/" & Year(Date))
       Cancel = True
    End If
End Sub
Ciao
lorenzo

 ha scritto nel messaggio
news:9mbOd.23429$QG6.4...@twister2.libero.it...

Lorenzo, grazie mille della tua risposta!
Mi hai aperto la mente!
Poi col tuo esempio mi è venuto in mente
questo evento:
Private Sub DataAzienda_Exit(Cancel As Integer)
   If Year(Me!DataAzienda) <> Year(Date) Then
        MsgBox "la data non fa parte dell'anno in corso"
        Me.DataAzienda = Me.DataAzienda.OldValue
così con OLDVALUE ripristina il controllo ai dati originali
        Cancel = True
     End If
 End Sub
sai perché?
perché su attivato gli sparo la dataazienda
Private Sub DataAzienda_GotFocus()
Me.DataAzienda =  ME.DATAAZIENDATABELLA
End Sub
Comunque, andava bene anche il tuo esempio!
Grazie ancora.
Ciao, Davide

Newsgroup: it.comp.appl.access
Titolo: somma condizionale in un report con raggruppamenti

Ciao a tutti,
ho un report per la stampa di saldi contabili, raggruppati per gruppi
nel seguente modo:
-------------------------------
gruppo1 - oneri
saldo_conto_1
saldo_conto_2
....
saldo gruppo1
-------------------------------
gruppo2 - proventi
saldo_conto_3
saldo_conto_4
....
saldo gruppo2
--------------------------------
Vorrei fare in modo che in fondo al gruppo2 mi visualizzi anche il
saldo del gruppo1, per poi creare un campo risultato di esercizio:
-------------------------------
gruppo2 - proventi
saldo_conto_3
saldo_conto_4
....
saldo gruppo2
saldo gruppo1
[risultato di esercizio]=[saldo gruppo2]-[saldo gruppo1]
--------------------------------
Non riesco a prendere il valore [saldo gruppo1] se sono all'interno del
raggruppamento del gruppo2, tantomeno se mi sposto nel report footer.
Qualcuno ha un'idea? Magari VBA???
Grazie
Riccardo

 ha scritto nel messaggio
news:1166118929....@73g2000cwn.googlegroups.com...

hai provato a riferirti al nome del controllo?
oppure puoi utilizzare un sottoreport che ha origine dati una query
raggruppata per saldi d'esercizio.