[Resolvido]Data automática - Gerar registos entre datas

tenho um sistema de facturação que gostava que ao fazer click num botão me gerasse dentro de um formulário continuo todo o mês ou seja crio o cliente e em seguida ao clicar no botão gera-me os 30 ou 31 dias dentro do subform continuo associado ao cliente tipo:
01/12/2017
02/12/2017
03/12/2017
etc. até 30 ou 31 consoante o mês

Alguém sabe como se faz?

Essa data não é para todos os clientes por isso só deve gerar se eu quiser por isso o botão
outro modo que também necessitava caso fosse possível um código que não excluísse e outro que excluísse os fins de semana

Olá Nuno, com um FOR ou DO e consulta acrescentar ou via recordset consegue obter o pretendido.

Não falta exemplos no fórum para "dias uteis" e "gerar parcelas".

Poste base de dados com form e tabela em questão, assim fica mais fácil para elaborar o código.
Quanto ao mês para gerar é o mês da data sistema, pretendenque seja datas selectivas? Envie mais detalhes.

Abraço
.

Boa noite Álvaro Teixeira peço desculpa mas só agora pude ir ao fórum.
Já me fartei de procurar e não encontrei.
O que queria era ter duas caixas de texto Caixa1 e Caixa2 onde a Caixa1 era data de inicio e Caixa2era data de fim.
Coloco as datas e faço clique no botão que coloco ao lado das mesmas e é gerado o intervalo de datas num sub-formulário continuo no Campo1.
Tipo

Data Inicio: 01/01/2017
Data Fim: 05/01/2017

Subformulário - Campo1

01/01/2017
02/01/2017
03/01/2017
04/01/2017
05/01/2017

Olá Nuno,

Montei um pequeno exemplo, veja o código utilizado:

Código:

Private Sub btnGerar_Click()
    'ahteixeira 2017 - MaximoAccess
    Dim I As Date
      
    'verifica se foi introduzida uma data Inicial
    If Not IsDate(Me.txtDataI) Then
        MsgBox "Introduza uma data inicial válida.", vbInformation, ""
        Me.txtDataI.SetFocus
        Exit Sub
    End If
  
    'verifica se foi introduzida uma data Final
    If Not IsDate(Me.txtDataF) Then
        MsgBox "Introduza uma data final válida.", vbInformation, ""
        Me.txtDataF.SetFocus
        Exit Sub
    End If
  
    'verifica se data Final é menor que a data Inicial
    If Me.txtDataF < Me.txtDataI Then
        MsgBox "Data final inferior à data inicial, verifique.", vbInformation, ""
        Me.txtDataI.SetFocus
        Exit Sub
    End If
  
    For I = Me.txtDataI To Me.txtDataF
        CurrentDb.Execute "INSERT INTO tbl_Exemplo(mData) Values(#" & Format(I, "yyyy/mm/dd") & "#);"
    Next I
    
    'atualiza lista
    Me.lstParcelas.Requery

End Sub


Espero que ajude, é só ajustar.

Abraço

Boa noite Álvaro Teixeira, é quase isso mas num subformulário continuo. Vê.

Olá Nuno,

O exemplo foi para mostrar o caminho das pedras.
É necessário ajustar nome tabela de consulta, campos, etc.

Veja se é isso:
cld.pt/dl/download/6a52c2b4-4e01-400f-b860-5e4712beecf6/gerarRegistosEntreData_toyebom.zip

Abraço

Boa noite Álvaro Teixeira é isso mesmo obrigado.

Só mais uma duvida se puderes ajudar.
Para alem do que está feito, é possível acrescentar mais um botão que gerasse as datas com a excepção dos fins de semana? Os feriados não importa que coloque mas ao gerar só gerava dias úteis excluindo fins de semana.
Se puderes ajudar agradeço.

Nuno

O botão gerar parcelas repete datas. É assim que quer ?

Teste

Desculpa a intromissão Álvaro Teixeira

Olá a todos,

Assis, isso é que é ser MaximoAccess, qual "desculpa intromissão"

Nuno, obrigado pelo retorno.

Abraço

Ok Teixeira

O exemplo deixa repetir dias no mesmo mês.

Isto é se selecionar 01/12/2017 a 31/12/2017, e depois selecionar do dia por exemplo 15/01/2017 a 31/12/2017 ele repete os dias.

Obrigado a ambos mas há um problema
Se houver mais de um registo não associa o ID vejam do formulário principal ao sub formulário

Nuno

Não devemos ocultar nada, temos que mostrar o que queremos.

O Nuno quer criar dados para vários clientes, é isso ?

Se sim, isso é novo para o Teixeira e para mim.

Aguardo

Teixeira

Afinal vai poder repetir !!!!!!

Pode ter vários clientes no mesmo mês.

Aguardemos

Peço desculpa aos dois

O que queria era gerar uma nota de movimentos por cliente ou seja por exemplo gero a nota para o João e preenche os dias dos movimentos, a seguir crio registo novo para a Ana e preencho os dias para a nota dela e por ai adiante.

O que queria era para isto

Nuno

Não tenho Office 2016

Vê agora

toyebom bom dia,

Eu fiz um pequeno exemplo conforme imagem:



Este exemplo faz a consistência de dados de períodos já informados, para não haver duplicação de dados.

Segue exemplo de banco de dados para sua avaliação.

Espero ter ajudado.

Abraço

Alexandre

É isso mesmo que queria obrigado.

Olá a todos,

Nuno, obrigado pelo retorno o fórum agradece.

Abraço

Paço desculpa por reabrir o tópico mas surgiu-me um problema com o código do Alexandre, funciona tudo mas ao seleccionar a exclusão dos fins de semana ele não exclui.
Vejam o código adaptado e se me enganei nalguma linha.

Private Sub btnGerar_Click()
   'ahteixeira 2017 - MaximoAccess
   Dim I As Date
     
   'verifica se foi introduzida uma data Inicial
   If Not IsDate(Me.txtDataI) Then
       MsgBox "Introduza uma data inicial válida.", vbInformation, ""
       Me.txtDataI.SetFocus
       Exit Sub
   End If
 
   'verifica se foi introduzida uma data Final
   If Not IsDate(Me.txtDataF) Then
       MsgBox "Introduza uma data final válida.", vbInformation, ""
       Me.txtDataF.SetFocus
       Exit Sub
   End If
 
   'verifica se data Final é menor que a data Inicial
   If Me.txtDataF < Me.txtDataI Then
       MsgBox "Data final inferior à data inicial, verifique.", vbInformation, ""
       Me.txtDataI.SetFocus
       Exit Sub
   End If
 
 
   If VerificaPeriodo = True Then
       If MsgBox("O sistema identificou que existem eventos registrados no período informado." & vbCrLf & _
                 "Após a confirmação, os dados serão excluídos." & vbCrLf & _
                 "Deseja realmente prosseguir?", vbQuestion + vbYesNo, "Aviso") = vbYes Then
                 
           'Exclui os registros do código e o periodo informado
           ssql = "DELETE FROM registos_Datas"
           ssql = ssql & " WHERE ID = " & Código & ""
           ssql = ssql & " AND Dataevento >= #" & Format(txtDataI, "yyyy/mm/dd") & "# "
           ssql = ssql & " AND Dataevento <= #" & Format(txtDataF, "yyyy/mm/dd") & "# "
           CurrentDb.Execute ssql
           Me.Filho18.Requery
           
           For I = Me.txtDataI To Me.txtDataF
               If chkFDS.Value = -1 And Weekday(I) <> 1 And Weekday(I) <> 7 Then
                   CurrentDb.Execute "INSERT INTO tblHorasExtras (IdFuncionário,He_DataLançamento,DiaSemana) Values(" & Me.IdFuncionário.Value & ", '" & Format(I, "yyyy/mm/dd") & "','" & WeekdayName(Weekday(I)) & "');"
               ElseIf chkFDS.Value <> -1 Then
                   CurrentDb.Execute "INSERT INTO tblHorasExtras (IdFuncionário,He_DataLançamento,DiaSemana) Values(" & Me.IdFuncionário.Value & ", '" & Format(I, "yyyy/mm/dd") & "','" & WeekdayName(Weekday(I)) & "');"
               End If
               
           Next I
       End If
   Else
       For I = Me.txtDataI To Me.txtDataF
           CurrentDb.Execute "INSERT INTO tblHorasExtras (IdFuncionário,He_DataLançamento,DiaSemana) Values(" & Me.IdFuncionário.Value & ", '" & Format(I, "yyyy/mm/dd") & "','" & WeekdayName(Weekday(I)) & "');"
       Next I
   End If
       
   'atualiza lista
   Me.Filho18.Requery
   
   txtDataI.Value = Empty
   txtDataF.Value = Empty
End Sub

Agradeço alguma dica.

Olá toyebom,

Como vc pode perceber, existem um botão de "Excluir" no fim de cada linha do formulário contínuo. É só clicar no botão referente à linha que deseja excluir e o sistema exclui o registro da tabela.

Att,

Alexandre

Sim eu verifiquei isso só questionei porque no código do Assis exclui mas obrigado na mesma.
Dou por resolvido.

Ok...sem problemas...o importante é que tá resolvido...rsss

Teixeira

Testou o Exemplo do Alexandre?

No meu 2013 32 tanto faz querer ou não os fins de semana, que ao confirmar os fins de semana são sempre registados.

Obrigado

Eu também vi isso por isso é que questionei.

Vamos esperar que o Alexandre Fim passa por aqui.

Oi Toyebom,
Segue o exemplo devidamente ajustado.

Caro Assis,
Obrigado por me avisar..tinha esquecido completamente.

Senhores? Me desculpem pelo imprevisto.

Um abraço a todos.

Att


Alexandre Fim

Obrigado Alexandre

Agora sim a caixa sim/não funciona.

Adicionei uma tabela de feriados, e a intenção é para informar no campo " Serviço Prestado " que é feriado quando as datas coincidem.

Já está no formato accde

Bom domingo

Grande Assis,

Ficou muito bom

Um abraço

Olá a todos,
Bom trabalho em equipa

Assis, não testei nada desde a mensagem n. 6, tenho acompanhado pelo telemóvel.
No entanto o colega Alexandre já verificou.

Ficamos então aguardar o retorno do colega Nuno que abriu o tópico ç.

Abraço a todos

Alexandre
Os feriados ainda não funcinam. Espero a sua ajuda

Boa tarde Senhores,

Fiz as devidas alterações, conforme abaixo:



Segue também o arquivo anexo.

Espero ter ajudado.

Att,

Alexandre

Muito bom vocês são de mais. Obrigado a todos.

Bom dia Alexandre

Criei uma relação entre as tabelas como mostra a imagem.

Isto para ao eliminar um registo na tabelas " tbl_Exemplo " anular os relacionados na tabela " registos_Datas "

Mas com as tabelas relacionadas não permite gravar registos .

Aguardo

Boa tarde

Como ilustra a imagem porque só marca o feriado do dia 01-01-2018 e não marca o dia 10-01-2018?

É um subformulário continuo

Obrigado

Existe um outro problema que ainda não foi descoberto Assis.

O Código vai buscar os feriados e coloca à frente o (F) mas só para o ano 2018 se for outro ano já não coloca o (F) nesse caso tem de se introduzir anualmente os feriados e não deveria ser necessário já que são fixos todos os anos.

Saudações meu caro Assis,

Fiz as devidas atualizações no sistema e o resultado é o seguinte:


Segue o exemplo para sua avaliação.

Um abraço.

Att,

Alexandre

Sou novo aqui

Achei legal, mas se eu quiser que ele repita os dia a cada 30 dias, exemplo:
05/01/18
05/02/18
05/03/18...