Boa tarde amigos,
Tenho um campo de texto formato para datas. Preciso de uma condição que identifique quando usuário inserir alguma data do mês de fevereiro.
Antes eu usava a expressão abaixo que captava a data exata, mas preciso fazer referência ao mês em vez da data completa.
Private Sub txtCompetencia_AfterUpdate()
If txtCompetencia.Value = "01/02/2016" Then
Me.txtReferenciaFev.Visible = True
Else
Me.txtReferencia.Visible = True
End If
End Sub
Tenho um campo de texto formato para datas. Preciso de uma condição que identifique quando usuário inserir alguma data do mês de fevereiro.
Antes eu usava a expressão abaixo que captava a data exata, mas preciso fazer referência ao mês em vez da data completa.
Private Sub txtCompetencia_AfterUpdate()
If txtCompetencia.Value = "01/02/2016" Then
Me.txtReferenciaFev.Visible = True
Else
Me.txtReferencia.Visible = True
End If
End Sub