[VB6] Scadenziario che visualizza MSGBox

[bobovieri]

Come suggeritomi da alka posto il quesito in un nuovo post.

Sto implementando in un gestionale una sorta di scadenziario che mi faccia la differenza tra la data odierna e la data della scadenza, che si va a prendere dalla seconda colonna di un datagrid che contiene la lista delle date delle scadenze, il costo e la causale.

Il codice che sto utilizzando è il seguente:

    Dim dataOggi As Variant
    Dim dataScadenza As Variant
    Dim dataDifferenza As Long
    Dim messaggio As Integer
    Dim messaggio2 As Integer
    
    dataOggi = Date
    Text1.Text = dataOggi
    
    dataScadenza = DataGrid1.Columns(1)
    Text2.Text = dataScadenza
        
    dataDifferenza = DateDiff("d", dataOggi, dataScadenza)
    Text3.Text = dataDifferenza
    
    If dataDifferenza < 4 Then
        messaggio = MsgBox("Attento! Hai una scadenza a breve", vbOKOnly, "Attenzione")
    End If
    
    If dataDifferenza <= 0 Then
            messaggio2 = MsgBox("Ciao", vbOKOnly)
    End If

Il problema è il seguente: vorrei che ci fosse un ciclo che leggesse il primo valore della colonna "Data" nel dataGrid, lo confrontasse con dataOggi, e se inferiore ai tre giorni, messaggio, altrimenti passa al sussessivo record, confronto, se minore dei tre giorni, messaggio, altrimenti successivo e così via per tutti.
Come si scrive questo maleddetto ciclo??? Sto diventando scemo del tutto!!!:master::master:


Poi quando una data è stata superata vorrei che non mi venisse più calcolata; anche qui richiedo il vostro aiuto!!!

Spero di essere stato chiaro, altrimenti fatemelo sapere, che cercherò di spiegare meglio la situazione.

In parole povere mi servirebbe una mano nel fare il ciclo e sistemare a dovere i due messaggi per farli apparire solo quando veramente servono.

Intanto grazie infinite a tutti coloro che mi aiuteranno!!!

Aspetto con ansia Vostre notizie!!!

[bobovieri]

Ciao di nuovo a tutti!!!
Sto continuando a sbattere la capoccia su questo scandenziario. Di seguito il codice che sto utilizzando.

    Dim dataOggi As Variant
    Dim dataScadenza As Variant
    Dim dataDifferenza As Long
    Dim messaggio As Integer
    Dim messaggio2 As Integer
    
    dataOggi = Date
    Text1.Text = dataOggi
    
    dataScadenza = DataGrid1.Columns(1)
    Text2.Text = dataScadenza
        
    dataDifferenza = DateDiff("d", dataOggi, dataScadenza)
    Text3.Text = dataDifferenza
            
    If dataDifferenza <= 3 And dataDifferenza >= 0 Then
        messaggio = MsgBox("Attento! Hai una scadenza a breve", vbOKOnly, "Attenzione")
    Else
        'messaggio2 = MsgBox("Ciao", vbOKOnly)
    End If

(Le tre text le sto utilizando per vedere se calcola in modo corretto e funzionano).

Il problema è che non riesco a far apparire il messaggio di alert; penso che aver sbagliato qualcosa qui

If dataDifferenza <= 3 And dataDifferenza >= 0 Then
        messaggio = MsgBox("Attento! Hai una scadenza a breve", vbOKOnly, "Attenzione")

.

Spero di essere stato chiaro; quello che intendevo dire io nel codice è che se dataDifferenza è compresa nell'intervallo che va dai tre giorni ai zero giorni, allora mi fai apparire l'alert, altrimenti passa a leggere la data successiva.

Non so più come fare....vi prego se potete aiutatemi.

Grazie mille a tutti!!!

[kalosjo]

Come datadifferenza cosa ti scrive?

[bobovieri]

Essendo la prima data 01/08/2005 mi scrive -21.

[Jupy64]

Originariamente inviato da bobovieri
Essendo la prima data 01/08/2005 mi scrive -21.

beh..mi sembra che il risultato sia giusto (supponendo che l'abbia calcolato il 22/8). L'unica cosa da modificare il confronto.
Se vuoi che ti avvisi solo per scadenze ancora da avvenire (magari compreso lo stesso giorno della scadenza) allora va bene il confronto che hai fatto tu:

If dataDifferenza <= 3 And dataDifferenza >= 0 Then
        messaggio = MsgBox("Attento! Hai una scadenza a breve", vbOKOnly, "Attenzione")

altrimenti se vuoi un avviso anche per le scadenze già trascorse:

If dataDifferenza <= 3 Then
        messaggio = MsgBox("Attento! Hai una scadenza a breve", vbOKOnly, "Attenzione")

[bobovieri]

Ciao Jupy!!! Ho visto ora la tua risposta.

Come dicevo, così funziona ma non in tutto. Il mio problema è dire al codice di andare a leggere anche tutte le altre date e per ognuna confrontarla. Alla prima che trova, mi appare l'MSGBox.

Quello che non riesco a fare io è il ciclo per dirgli tutto ciò (lettura, verifica, eventuale mess, lettura record successivo, ecc, ecc).

Se mi potreste dare una mano in questo ve ne sarei veramente grato.

Grazie ancora!!!

[Jupy64]

devi fare un ciclo per quante sono le righe (record).
esempio:

For I=0 to numeroRighe-1
   DataGrid1.Row=I
   dataScadenza = DataGrid1.Columns(1)
   ...
   ....
Next

Anche se io ti consiglierei di fare una query e tirarti fuori direttamente le scandenze che ti interessano! Più veloce e pratico!

[bobovieri]

Intanto grazie mille per la porzione di codice.

Il fatto è che non so, però, quante righe ha il mio datagrid, in quanto si basa su una query che si aggiorna in base alle scadenze che vengono inserite mano a mano.

Quindi non posso fare neanche, come mi suggerisci tu, la query e poi tirarmi fuori le scadenze che mi interessano; questo scadenziario va ad integrarsi in un programma che sta già in piedi e che dovrebbe, automaticamente all'apertura della pagina che riguarda le uscite, fare il check sulle date ed eventualmente visualizzare il messaggio.

[Jupy64]

come popoli la griglia? posta il codice

[bobovieri]

La griglia la popolo con la proprietà DataSource; gli indico lì l'ADO che mi interessa e basta. Tutto il programma si basa su un DB Access.