MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

    [Resolvido]VBA para alteração de Campo Data em sequência

    Belobo
    avatar
    Belobo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 130
    Registrado : 12/07/2014
    • Mensagem nº1

    [Resolvido]VBA para alteração de Campo Data em sequência Empty [Resolvido]VBA para alteração de Campo Data em sequência

    Mensagem  Belobo Qui 01 Dez 2022, 1:53 am

    Amigos tenho um tabela que possui 3 campos
    2 deles já tem os dados pré definidos
    O terceiro é o campo DATA
    Preciso de um código VBA que faça a seguinte ação :
    Independente da qtde de registros na tabela , que ele altere o campo data para a data com horário mais 5 minutos até acabar o numero de registros da tabela

    Exemplificando
    Tabela tem o nome de DADOS
    Os campos são NOME , VENDA E DATA

    Aí a ação do VBA transformaria o campo DATA conforme sequência abaixo
    Nome.        Venda.        Data
    Leonardo    3000          30/11/2022 15:45:00
    Márcio.        4000.         30/11/2022 15:50:00
    Caroline.      5000.         30/11/2022 15:55:00

    A data vai alterando a cada 5 minutos e se por.um.acaso o horário ultrapassar a meia noite já alterar para o dia seguinte
    • Ir para o topo
    Avelino Sampaio
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3899
    Registrado : 04/04/2010
    • Mensagem nº2

    [Resolvido]VBA para alteração de Campo Data em sequência Empty Re: [Resolvido]VBA para alteração de Campo Data em sequência

    Mensagem  Avelino Sampaio Qui 01 Dez 2022, 7:41 am

    Olá!

    uma boa opção é utilizar a função DateAdd() do Access. Exemplo de código:

    Dim j%, DataHoraInicio, Rs As Recordset
    Set Rs = CurrentDb.OpenRecordset("tblDados")
    DataHoraInicio = #11/30/2022 11:50:01 PM#
    Rs.MoveFirst: j = 0
    Do While Not Rs.EOF
        Rs.Edit
            Rs!datavenda = DateAdd("n", j * 5, DataHoraInicio)
        Rs.Update
        Rs.MoveNext
        j = j + 1
    Loop
    MsgBox "Tabela atualizada...", vbInformation, "Aviso"
    DoCmd.OpenTable "tblDados"
    Rs.Close
    Set Rs = Nothing


    Nota 1: realize backup antes dos testes.
    Nota 2: não utilize o nome "Data" para o nome do campo. Utilize um nome composto. Exemplo: DataVenda
    Nota 3: para o nome de tabelas utilize o prefixo tbl antes do nome. Exemplo: tblDados


    Sucesso!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    • Ir para o topo
    Belobo
    avatar
    Belobo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 130
    Registrado : 12/07/2014
    • Mensagem nº3

    [Resolvido]VBA para alteração de Campo Data em sequência Empty Re: [Resolvido]VBA para alteração de Campo Data em sequência

    Mensagem  Belobo Qui 01 Dez 2022, 8:42 pm

    Amigo ficou show
    obrigado deu tudo certo
    • Ir para o topo
    Conteúdo patrocinado

    Conteúdo patrocinado


    • Mensagem nº4

    [Resolvido]VBA para alteração de Campo Data em sequência Empty Re: [Resolvido]VBA para alteração de Campo Data em sequência

    Mensagem  Conteúdo patrocinado

    • Ir para o topo
      Data/hora atual: Dom 08 Set 2024, 1:40 am