[Resolvido]Entrar data sem digitar a barra "/"

Oi amigos,

Como crio um campo data que nao precise digitar as barras "/" de separação de datas?

Obrigado

Bom dia,


Tenta usar uma máscara de entrada: 99/99/9999


Deve resolver.


Nivaldo.

Nossa, que vergonha...
Era algo tao simples e eu não me toquei, obrigado Nivaldo, mas eu ainda tenho um problema dentro dessa questão. Eu criei o campo data de nascimento que é onde eu coloquei a mascara que vc me sugeriu, e um campo Idade, que calcula a idade baseado na data de nascimento que digito. Ele tem o seguinte codigo:

Código:


Private Sub txtDataNascimento_AfterUpdate()
If Not IsNull(Me.txtDataNascimento) Then
Me.txtIdade.Value = CalcularIdade(Me.txtDataNascimento)
Else
Me.txtIdade = 0
End If
End Sub


Agora que apliquei a mascara ele ta dando erro de execuçao : 13 - Tipos incompativeis.

Sabe como posso contornar isso?

Um abraço e me desculpe pelo amadorismo.

Boa noite,

Deve ser algo relacionado à função CalcularIdade que você está chamando.

Como é que está a função???

Nivaldo.

Tem esse módulo:

Código:


Option Compare Database
Option Explicit

Public Function CalcularIdade(txtDataNascimento As Date) As Integer
    If IsDate(txtDataNascimento) And Not IsNull(txtDataNascimento) Then
        CalcularIdade = Int((Date - [txtDataNascimento]) / 365.25)
    Else
        CalcularIdade = 0
    End If
End Function

' (E de 0-7) (D de 8-13) (C2 14-17) (C1 18-22) (B2 23-28) (B1 29-34) (A2 35-41) (A1 42-46)
Public Function RetornaClasse(Valor As Integer) As String

    If Valor >= 0 And Valor <= 7 Then
        RetornaClasse = "E"
    Else
        If Valor >= 8 And Valor <= 13 Then
            RetornaClasse = "D"
        Else
            If Valor >= 14 And Valor <= 17 Then
                RetornaClasse = "C2"
            Else
                If Valor >= 18 And Valor <= 22 Then
                    RetornaClasse = "B2"
                Else
                    If Valor >= 23 And Valor <= 28 Then
                        RetornaClasse = "B1"
                    Else
                        If Valor >= 29 And Valor <= 34 Then
                            RetornaClasse = "B1"
                        Else
                            If Valor >= 35 And Valor <= 41 Then
                                RetornaClasse = "A2"
                            Else
                                If Valor >= 42 And Valor <= 46 Then
                                    RetornaClasse = "A1"
                                Else
                                RetornaClasse ""
                                End If
                            End If
                        End If
                    End If
                End If
            End If
        End If
    End If
End Function



E esse apos o evento after_update do campo DataNascimento:

Código:


Private Sub txtDataNascimento_AfterUpdate()
If Not IsNull(Me.txtDataNascimento) Then
Me.txtIdade.Value = CalcularIdade(Me.txtDataNascimento)
Else
Me.txtIdade = 0
End If
End Sub


Obrigado

Testei aqui e funcionou perfeitamente.

Revisa se não tem algum nome de campo errado.

Na tabela o nome do campo é realmente txtDataNascimento ?

Nivaldo.

Eu tentei usar a mascara 99/99/9999 e nao consegui novamente, mas quando usei o assistente na folha de propriedades ele configurou como 00/00/0000 e passou a funcionar normalmente. Obrigado pela ajuda, viu Nivaldo?

Um abraço

Leo

Obrigado a você pelo retorno.

O fórum agradece.


Nivaldo.