Ho risolto così ... grazie lo stesso!
codice: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![]()
Ho risolto così ... grazie lo stesso!
codice: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![]()