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

    Incrementar uma tabela de 7 em 7 dias

    marcos_vitorino
    marcos_vitorino
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 29
    Registrado : 24/03/2022

    Incrementar uma tabela de 7 em 7 dias  Empty Incrementar uma tabela de 7 em 7 dias

    Mensagem  marcos_vitorino 22/9/2022, 22:30

    Ola, desculpem eu está postando 2 problemas ao mesmo tempo, e um problema de logica, no VBA, e que eu não sou profissional e estou tentando fazer a incrementarão de uma tabela e 7 em 7 dias, assim se eu marcar uma data, ele marcara a outra 7 dias depois, tenho um código não estou conseguindo fazer.


    Agradeco a ajuda..


    Código:
    https://1drv.ms/u/s!ApmWUgZEd2wPkvI6ryx21_mNyQDGzA?e=K25z3s

    o banco esta no link


    Última edição por Alexandre Neves em 21/10/2022, 22:41, editado 1 vez(es) (Motivo da edição : corrigir o título (Incrementar uma tebela de 7 em 7 dias ))
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2677
    Registrado : 23/01/2018

    Incrementar uma tabela de 7 em 7 dias  Empty Re: Incrementar uma tabela de 7 em 7 dias

    Mensagem  crysostomo 19/10/2022, 22:33

    Boa noite

    Sub CalculateEndDate()
    Dim WDay As String
       txtEndDate = txtStartDate + txtDays
       WDay = Weekday(txtStartDate)
       WDayName = WeekdayName(WDay)


    Encrementa mais 7 aqui

    Sub CalculateEndDate()
    Dim WDay As String
     txtEndDate = txtStartDate + 7
       WDay = Weekday(txtStartDate)
       WDayName = WeekdayName(WDay)


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2677
    Registrado : 23/01/2018

    Incrementar uma tabela de 7 em 7 dias  Empty Re: Incrementar uma tabela de 7 em 7 dias

    Mensagem  crysostomo 23/10/2022, 00:16

    Boa noite marcos_vitorino
    REsolvido?


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    marcos_vitorino
    marcos_vitorino
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 29
    Registrado : 24/03/2022

    Incrementar uma tabela de 7 em 7 dias  Empty Re: Incrementar uma tabela de 7 em 7 dias

    Mensagem  marcos_vitorino 29/10/2022, 18:39

    Desculpa a demora, eu estava com problemas de saúde e tive que me afastar por uns dias. vou aplicar o que voce me passeou para dar uma olhada

    obrigado pelo help.


    Conteúdo patrocinado


    Incrementar uma tabela de 7 em 7 dias  Empty Re: Incrementar uma tabela de 7 em 7 dias

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/4/2024, 22:26