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

    [Resolvido]Acrescentar dias entre duas datas

    mucascosta
    mucascosta
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 31
    Registrado : 22/01/2010

    [Resolvido]Acrescentar dias entre duas datas Empty [Resolvido]Acrescentar dias entre duas datas

    Mensagem  mucascosta 4/12/2019, 11:24

    Banco de dados: Access

    Tabela: tblAusencias

    Campos: ID(Tipo: Numeração automática), DT(Tipo: Data), DiaSemana(Tipo: Texto curto) e Descrição (Tipo: Texto Curto)

    Preciso acrescentar na tabela as ausências de Férias, Licença saúde, Folgas, etc...

    Desejo automatizar esses acréscimos informando Data Inicial, Data Final e Descrição.

    Pode ser por macro ou uma consulta acréscimo...

    Gostaria de contar com a ajuda de vocês!
    mucascosta
    mucascosta
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 31
    Registrado : 22/01/2010

    [Resolvido]Acrescentar dias entre duas datas Empty Acrescentar dias entre duas datas

    Mensagem  mucascosta 4/12/2019, 20:30

    Resolvi assim:

    Dim dtIni As Date, dtFin As Date, j As Long, N As String, De As String

    dtIni = VBA.Format(Me.dtIni, "Short Date")
    dtFin = VBA.Format(Me.dtFin, "Short Date")
    N = Me.nDias
    De = Me.Descricao

    DoCmd.SetWarnings False

    For j = 1 To N
    CurrentDb.Execute "INSERT INTO tblAusencias(DataFeriado, Semana, Descrição)" _
    & " Values(""" & Format(dtIni, "dd/mm/yyyy") & """,""" & WeekdayName(Weekday(dtIni)) & """," _
    & """" & De & """);"

    dtIni = dtIni + 1
    Next j

    DoCmd.SetWarnings True

    MsgBox j + 1 & " resgistros Salvos", 64, "Sucesso"
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7243
    Registrado : 15/03/2013

    [Resolvido]Acrescentar dias entre duas datas Empty Re: [Resolvido]Acrescentar dias entre duas datas

    Mensagem  ahteixeira 4/12/2019, 21:28

    Olá Muca,

    Obrigado pelo retorno, o fórum agradece.

    Abraço

      Data/hora atual: 16/6/2021, 21:13