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]Campo Data do Formulario muda para formato americano.

    Compartilhe
    avatar
    Walter
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 297
    Registrado : 17/04/2011

    [Resolvido]Campo Data do Formulario muda para formato americano.

    Mensagem  Walter em Sex Abr 13, 2018 4:22 pm

    Bom dia a todos.
    No BD anexo ao preencher os dados do Fml_LancamentoProducaoDiaria ocorre um fato que não consegui entender.
    Os campos são preenchidos, mas ao clicar no botão abaixo "Mais Procedimentos" todos os dados já digitados, do paciente se repetem, e deixam em branco apenas os Campos "Procedimento" e "Profissional Executante". Porem os campos Data "Data do Atendimento" e "Data de Nascimento", se o valor for menor que o dia 12, o mes e o dia se invertem.... Exemplo: Se estava 07/03/2018, ao clicar no botao "Mais Procedimentos" a data muda sozinha para 03/07/2018.
    No botao tem o seguinte código:

    Private Sub BtaoMaisProced_Click()
    DoCmd.GoToRecord , , acNewRec
    Me.Procedimentos = ""
    Me.ProfissionalExecutante = ""
    Me.Procedimentos.SetFocus
    End Sub

    Alguem pode me ajudar, por favor, a resolver esse problema?

    Obrigado
    Walter
    Anexos
    ProduçãoHSVP-.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (153 Kb) Baixado 3 vez(es)


    .................................................................................
    "A verdade é filha do tempo, e não da autoridade!"
    avatar
    wellingtoneo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 292
    Registrado : 30/07/2012

    Re: [Resolvido]Campo Data do Formulario muda para formato americano.

    Mensagem  wellingtoneo em Sex Abr 13, 2018 6:40 pm

    Amigo, boa tarde!

    Altere o código como segue.

    Código:

    Dim dtA As Date
    Dim dtB As Date

    dtA = Me!DataDeNascimento
    dtB = Me!DataDoAtendimento

    DoCmd.GoToRecord , , acNewRec

    Me!DataDeNascimento = dtA
    Me!DataDoAtendimento = dtB

    Me.Procedimentos = ""
    Me.ProfissionalExecutante = ""
    Me.Procedimentos.SetFocus

    Não sei por que você defini um valor padrão nestes campos... eu retiraria esse comando.
    Até mais!
    avatar
    Walter
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 297
    Registrado : 17/04/2011

    Re: [Resolvido]Campo Data do Formulario muda para formato americano.

    Mensagem  Walter em Sex Abr 13, 2018 7:25 pm

    Valeu, amigo Wellington.

    Coloquei o código que você sugeriu e tirei o valor padrao. Ficou perfeito.
    Muito obrigado pela ajuda.

    Um grande abraço.

    Walter


    .................................................................................
    "A verdade é filha do tempo, e não da autoridade!"
    avatar
    wellingtoneo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 292
    Registrado : 30/07/2012

    Re: [Resolvido]Campo Data do Formulario muda para formato americano.

    Mensagem  wellingtoneo em Sex Abr 13, 2018 7:26 pm

    Disponha!

      Data/hora atual: Sab Ago 18, 2018 4:41 pm