Evento current di una maschera

di
Mailman
il
1 risposte
M
Mailman
Utente Attivo
Iscritto da
mag, 2022
Messaggi:
244

Evento current di una maschera

Buongiorno a tutti,
in una maschera ho inserito nell'evento current il seguente codice:
Private Sub Form_Current()
    
    Dim lngred As Long, lnggreen As Long
    Dim ctr1 As Date
    Dim ctr2 As Integer
    
    lngred = RGB(255, 0, 0)
    lnggreen = RGB(0, 255, 0)
    ctr1 = Me.frmOLDATAtabOLda.Value
    ctr2 = Me.frmOLNUMtabOLco.Value
    
    If ctr1 = Null Or ctr2 = Null Then
     
    Exit Sub
    Else
    Call OreGiorno
    Call Copiadati
        If frmOLTXTstatocommessa.Value = "Aperta" Then
            frmOLTXTstatocommessa.ForeColor = lnggreen
        Else
        frmOLTXTstatocommessa.ForeColor = lngred
        End If
    End If
        
End Sub
Quando inserisco un nuovo record mi da "errore di runtime '94' Utilizzo non valido di null" su ctr1=Me.frmOLDATAtabOLda.Value perche' il valore e' nullo. Dove sto sbagliando?

1 Risposte

  • M
    Mailman
    Utente Attivo
    Iscritto da
    mag, 2022
    Messaggi:
    244

    Re: Evento current di una maschera

    Ho trovato l'errore grazie ad un suggerimento di Alex trovato qui nel forum; ho corretto cosi':
    Private Sub Form_Current()
    
    Dim lngred As Long, lnggreen As Long
    lngred = RGB(255, 0, 0)
    lnggreen = RGB(0, 255, 0)
    If Not IsDate(Me.frmOLDATAtabOLda.Value) Or IsNull(Me.frmOLNUMtabOLco.Value) Then
     
    Exit Sub
    Else
    Call OreGiorno
    Call Copiadati
        If frmOLTXTstatocommessa.Value = "Aperta" Then
            frmOLTXTstatocommessa.ForeColor = lnggreen
        Else
        frmOLTXTstatocommessa.ForeColor = lngred
        End If
    End If
        
End Sub
Devi accedere o registrarti per scrivere nel forum
1 risposte