Newsgroup: it.comp.appl.access
Titolo: Paragone con le date

Buongiorno NG!
Mi aiutate a risolbere questo quesito?
"SanDataNotifica" 10/10/2008 =origine=
"SanDataScadenza" 08/01/2009 =autoincrementata=
"SanIntegrazData" 12/01/2009 =immagine visibile=
nel primo controllo inserisco una data che,
viene maggiorata di 90 giorni e,
riportata sul secondo controllo.
Vorrei che; quando sul terzo controllo inserisco una data, questa
venga paragonata con la prima e se risulta superiore a 90 giorni mi
renda visibile una immagine
Per la prima parte utilizo questo;
--------------
Private Sub Testo393_AfterUpdate()
    'legge la data inserita e la riporta sulla successiva casella
    'maggiorata di 90 giorni
If Not IsNull(Me!SanDataNotifica) Then
    Me!SanDataScadenza = DateAdd("d", 90, Me!SanDataNotifica)
    Me.Refresh
    'se la casella origine e vuota allora svuota la destinazione
Else
    Me!SanDataScadenza = Null
    Me.Refresh
End If
End Sub
-----------------
E per la seconda parte?....
Saluti da Princ....

 Saluti da Princ....
-- 
ac
y-1=x

 non ti basta controllare che sia maggiore del secondo controllo?
l'importante é che si raggiunga lo scopo.
Come potrei completare il codice?
Grazie.

 Grazie.
-- 
ac
y-1=x

 stesso controllo deve essere fatto sull'evento di form_current
Quale stringa inserisco?
Gentilissimo.

 Gentilissimo.
-- 
ac
y-1=x

 led.Visible = SanIntegrazData > SanDataScadenza
oops
led.Visible = Testo399 > Testo395
-- 
ac
y-1=x

 --------------
Ecco la situazione attuale, funziona ma non sono convinto della
funzione, credo che l'errore sia in agguato.
E comunque all'apertura della maschera anche se il controllo
"Integrazione" é vuoto, l'immagine è visibile invece non lo dovrebbe.
Dovrebbe apparire solamente quando sul controllo "Integrazione" viene
inserita una data maggiore di "Scadenza". Inoltre....
Ho rinominato i controlli ( Sei contento adesso?)
Notifica
Scadenza
Integrazione
================
Private Sub Notifica_AfterUpdate()
    'legge la data inserita e la riporta sulla successiva casella
    'maggiorata di 90 giorni
If Not IsNull(Me!SanDataNotifica) Then
    Me!SanDataScadenza = DateAdd("d", 90, Me!SanDataNotifica)
    Me.Refresh
    'se la casella origine e vuota allora svuota la destinazione
Else
    Me!SanDataScadenza = Null
    Me.Refresh
End If
End Sub
----------------------
Private Sub Integrazione_AfterUpdate()
    On Error Resume Next
    led.Visible = Integrazione > Scadenza
End Sub
----------------------
Private Sub Form_Current()
    'Form su cossente
    Me!cmdUndo1.Enabled = False
    On Error Resume Next
    led.Visible = Integrazione > Scadenza
End Sub
-----------------
Qualche anima Pia mi corregge gentilmente quanto sopra? Cordiali
Saluti.

 Integrazione
sei tu che dovresti essere contento. Ho provato a vedere nelle mie 
tasche ma sono vuote come prima.

Ho visto che i "null" li sai trattare quindi puoi fare da solo.
MA che stai a fa? qualcosa che riguarda le multe? Se e' cosi' non ti 
aiuto piu'! ;<)
-- 
ac
y-1=x

 - Mostra testo tra virgolette -
MA QUALE MULTE! Scherzi!
ARCHITETTURA, studio di architettura.
Devo gestirmi un mucchio di pratiche in ufficio e voglio smetterla di
correre sugli scaffali a controllare i cartacei.
Il mio problema é che metto mano a VBA sporadicamente e quindi poi non
ricordo più le stringhe e la loro struttura.
Ecco il perché del mio Nick.