[access - vb] assegnazione date

[1sirena]

Ciao a tutti!!
Stò facendo un controllo sulla data,in particolare sul mese; se il mese è compreso fra gennaio e giugno, allora una textfirld verrà popolata con un valore, altrimenti con un altro.
Qualcuno saprebbe aiutarmi???



:master:

[1sirena]

Ho risolto così ... grazie lo stesso!

Private Sub cmbData_BeforeUpdate(Cancel As Integer)
    Dim m As Integer
    m = Month(Me.cmbData.Value)
    
    If m > 1 And m < 6 Then
        Me.txtQuadrimestre.Value = 2
    Else
        Me.txtQuadrimestre.Value = 1
    End If
End Sub