MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Correção automática de datas

    avatar
    vsusincxs
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 23/08/2018

    [Resolvido]Correção automática de datas Empty [Resolvido]Correção automática de datas

    Mensagem  vsusincxs em 28/1/2020, 18:03

    olá,

    estou desenvolvendo um código para preencher automaticamente a data em um campo do formulário. Exemplo: em um campo tipo data eu digito o número 10 e tiro o foco do campo, o código irá completar o dado informado com o mês e o ano atuais.

    No programa oficial da nossa empresa ele faz isso e acho muito útil por economia de tempo.

    O problema que encontro está na regra de validação, como o campo é vinculado e na tabela está como data, não consigo fazer as alterações sem que apareçam mensagens de erro.

    Publico um arquivo simples, só com o exemplo. É abrir o formulário e digitar um número qualquer no campo apdata e dar enter.

    Utilizando o formulário desvinculado seria fácil, mas gostaria de saber se há a possibilidade em um form vinculado (para não precisar rever todo o programa)

    Fico grato se alguém me ajudar.
    Anexos
    [Resolvido]Correção automática de datas Attachmenttestedata.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (101 Kb) Baixado 11 vez(es)
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4576
    Registrado : 20/04/2011

    [Resolvido]Correção automática de datas Empty Re: [Resolvido]Correção automática de datas

    Mensagem  Silvio em 28/1/2020, 20:28

    Boas...

    Tente algo parecido com isso..

    Código:

    Private Sub Form_Error(DataErr As Integer, Response As Integer)
    On Error Resume Next ' acrescentado
    Dim temporario As Date
    If DataErr = 2113 Then
    'MsgBox "Os dados inseridos para esse campo estão incorretos. Por favor, corriga.", vbInformation, "Dados incorretos"
    Response = acDataErrContinue
    temporario = FormatDateTime(calculodata(Screen.ActiveControl.Text), vbShortDate)
    Screen.ActiveControl.Text = temporario
    ElseIf DataErr = 2115 Then
    Response = acDataErrContinue
    Exit Sub ' acrescentado
    End If
    End Sub


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    vsusincxs
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 23/08/2018

    [Resolvido]Correção automática de datas Empty Re: [Resolvido]Correção automática de datas

    Mensagem  vsusincxs em 28/1/2020, 20:41

    Perfeito,

    coisas simples que fazem a diferença, muito obrigado.

    Logo disponibilizo o arquivo do módulo para hora também.
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4576
    Registrado : 20/04/2011

    [Resolvido]Correção automática de datas Empty Re: [Resolvido]Correção automática de datas

    Mensagem  Silvio em 29/1/2020, 11:03

    Boas....
    O fórum agradece o retorno.
    Abraços.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    vsusincxs
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 23/08/2018

    [Resolvido]Correção automática de datas Empty Re: [Resolvido]Correção automática de datas

    Mensagem  vsusincxs em 12/2/2020, 19:37

    Arquivo corrigido e com o módulo para horas também.

    obrigado.
    Anexos
    [Resolvido]Correção automática de datas Attachmenttestedata.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (104 Kb) Baixado 5 vez(es)

      Data/hora atual: 31/5/2020, 18:57