Ir para conteúdo
Fórum Script Brasil

Julio Viana

Membros
  • Total de itens

    1
  • Registro em

  • Última visita

Sobre Julio Viana

Julio Viana's Achievements

0

Reputação

  1. Valeu amigo ! Sua postagem me ajudou muito fiz uma pequena adaptação no seu código para aceitar data formato dd/mm/yy Private Sub DATA_AfterUpdate() Me.DATA.InputMask = "" End Sub Private Sub DATA_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Or KeyCode = vbKeyTab Then GoTo FIM ElseIf Me.DATA.InputMask = "" Or IsNull(Me.DATA.InputMask) Then Me.DATA.InputMask = "99/99/9999;0" End If FIM: End Sub
×
×
  • Criar Novo...