[access - vb] assegnazione date

[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