[Resolvido]Gerar Datas de um período informado

Boa tarde a todos.

Num forms tenho os campos (não vinculados) DataDe e DataAté. Tenho um botão para visualizar o relatório.

Preciso no relatório o primeiro dia (dd/mm/yy) de cada mês que sejam >=DataDe e >=DataAté, é possível?

Vejam um exemplo:
No forms: DataDe = 01/04/12 e DataAté = 31/07/12

Relatório (Resultado esperado):
01/04/12
01/05/12
01/06/12
01/07/12

Obrigado

Olá
Amigos.

E aí? Alguém tem alguma idéia?

Obrigado

Bom dia, Luiz
Disponibilize a farinha para tentarmos fazer a massa

Boa tarde, Alexandre Neves.

Não sei se entendi a analogia, mas acredito que o que me pede é a aplicaçao para tal "função". Então vamos lá:

Antes porém, gostaria de registrar que postei tópico (Totalizar valores mês a Mês / Períodos sem resultado) que visava a solução do problema. Inclusive com a sua participação e a do mestre JPaulo. O mestre JPaulo apresentou a solução, porém a aplicação em meu DB mostrou-se inviável.

Preciso de um relatório com o faturamento mês a mês (total no mês) de um cliente em um determinado período. E nos meses que não houve faturamento para o cliente em questão deverá constar do relatório: mm/yyyy R$ 0,00.

O que pretendo é criar uma consulta que apareça todos os meses e anos do periodo informado com faturamento R$ 0,00, e aí, unir esta consulta a outra que mostra o faturamento daquele cliente.

Alexrandre, se não foi bem isto que pe pediu, peço-lhe desculpas e fico ao inteiro dispor para maiores esclarecimentos.

Boa tarde, Luiz
Pedi-lhe os dados para trabalhar, para que, além da ajuda, não tenhamos que criar dados significativos e dificilmente serão os que lhe servem

Oi
Alexandre

Enquanto você postava sua resposta eu editava o item anterior.

Se puder rever, agradeço

Abraços

Obrigado

Favor postar o BD, tenho um exemplo em vb que pega o primeiro e o ultimo dia do mês, veja:

Inicial = DateSerial(year(Date), month(Date), 1) 'primeiro dia do mes atual
Final = DateSerial(year(Date), month(Date) + 6, 0) 'ultimo dia do mes julho

Ólá, GContabil.
Grato pela participação.

Sinto mas não tenho um BD de exemplo para postar, pois os dados são muito simplista, veja:

No forms: CampoDataDe = 01/04/12 e CampoDataAté = 31/07/12 (âmbos não vinculados)

Relatório (Resultado esperado = primeiro dia de cada mês > = CampoDataDe e <= CampoDataAté):
01/04/12
01/05/12
01/06/12
01/07/12

É isto.

Obrigado

Fica então dificil de lhe ajudar?? Para gerar o relatório com este dados é muito simples bastar criar um frm com dois campos DataDe e DataAté e colocar o código de que informe no Evento ao Carregar...

Ok
GContabil.

Se é um BD a questão, então estou postando.

Você disse ser muito simples, mas nem imagino como. Você pode, por favor, aplicar no BD de exemplo?

Obrigado

Seu BD não tem dados, favor postar com os dados...

Amigão

A idéia é esta.
O BD não tem dados.
O forms tem campos não vinculados.
E aí está a dificuldade. Caso não, seria fácil.
A idéia é gerar uma consulta partindo de informações sem vínculos (Sem tabelas)

Abraços

Realmente, não sei para que serve um relatório sem dados, no meu modo de ver relatório são para demonstrar o resultado de alguns dados!

Criar um relatório sem dados não sei para que serve?
Fica difícil visualizar algo que não existe?

Espero que outro possam lhe ajudar, mais seria melhor explicar o que realmente deseja?

att.

Amigão.

Você não deve ter lido o tópico com atenção.
Na mensagem 4 explico o porque da minha necessidade.

Quanto a sua colocação de que eu quero "Criar um relatório sem dados" e "Com algo que não existe"' achei um pouco prepotente e desrespeitoso. Se há algo que aprendi aqui no fórum, além de Access, foi: respeito, humildade, doação, gratidão, educação, ética, etc.

Este fórum, assim como seus membros, são o MÁXIMO . Vamos mantê-lo assim.

Obrigado, GContabil, por sua participação.

Amigos do fórum
Alguma sugestão?

Boa noite a todos
Obrigado

Bom Dia Luiz;

Veja por favor se é o que pretende;

Private Sub SeuBotão_Click()
'By JPaulo ® Maximo Access
Dim sMesSomado As String
Dim i As Integer
Dim IntQtdMeses As Integer
Dim DataArray() As String
 
    'Busca a quantidade de meses entre as datas informadas
    IntQtdMeses = DateDiff("m", txtDataInicio, txtDataFim)
    'Soma os meses
    'sMesSomado = DateSerial(1, Month(txtDataInicio) + IntQtdMeses, Year(txtDataInicio))
    'monta o Array da quantidade de meses
    ReDim DataArray(IntQtdMeses) As String
    For i = 0 To IntQtdMeses
    sMesSomado = DateAdd("m", i, txtDataInicio)
    'altera o sMesSomado para o primeiro dia do mês
    sMesSomado = DateSerial(Year(sMesSomado), Month(sMesSomado), 1)
    'insere na tabela cada mês
    CurrentDb.Execute "INSERT INTO tblMesAno (MesAnoRef) VALUES (#" & Format(sMesSomado, "mm-dd-yyyy") & "#);"
    Next i
End Sub

Olá
Mestre JPaulo.
Mais um vez obrigado pela colaboração.

Estou postando outro BD, de sua autoria, baixado em outro tópico. Nele conseguimos o resultado esperado, no entando, na prática, ficou inviável aplicar em meu BD. O que preciso, no BD que posto agora, é obter o mesmo resultado sem ter que criar/usar a tabela tblMeses.

Preciso de uma consulta que resulte em todos os meses e anos dentro de um determinado período e depois possa usá-la para unir a uma outra consulta.

Abraços

Obrigado

Ola Luiz,

Estou no meu ipad e não posso testar agora, mas o amigo pode aproveitar o codigo que contrui para si e automaticamente ele cria os meses pelas datas informadas, que poderá ligar à sua consulta.

Ok, agora no trabalho;

Luiz, amigão;

Fiz de forma automatica, você só tem de ter a tabela dos meses (Vazia), o código faz tudo por si...

Private Sub Comando6_Click()
On Error GoTo Err_Comando6_Click

'By JPaulo ® Maximo Access
Dim sMesSomado As String
Dim i As Integer
Dim IntQtdMeses As Integer
Dim DataArray() As String
Dim stDocName As String
    
'deleta os dados da tabela temporaria
    CurrentDb.Execute "delete * from tblMeses"

    'Busca a quantidade de meses entre as datas informadas
    IntQtdMeses = DateDiff("m", De, Até)
    'Soma os meses
    'sMesSomado = DateSerial(1, Month(txtDataInicio) + IntQtdMeses, Year(txtDataInicio))
    'monta o Array da quantidade de meses
    ReDim DataArray(IntQtdMeses) As String
    For i = 0 To IntQtdMeses
    sMesSomado = DateAdd("m", i, De)
    'altera o sMesSomado para o primeiro dia do mês
    sMesSomado = DateSerial(Year(sMesSomado), Month(sMesSomado), 1)
    'formata para Ano-Mês
    sMesSomado = Format(sMesSomado, "yyyy - mm")
    'insere na tabela cada mês
    CurrentDb.Execute "INSERT INTO tblMeses (MesRef, SValor) VALUES ('" & sMesSomado & "',0);"
    Next i

    stDocName = "tbVenda"
    DoCmd.OpenReport stDocName, acPreview

Exit_Comando6_Click:
    Exit Sub

Err_Comando6_Click:
    MsgBox Err.Description
    Resume Exit_Comando6_Click
End Sub

Mestre.
Quando falamos em access, você "é o Cara!"
Mais um resolvido para sua coleção.
Parabéns.
Muito Obrigado

Meus agradecimentos também, ao Alexandre Neves e GContabil pela participação.

Luiz, eu é que agradeço o seu retorno e fico feliz de você poder ficar mais descansado com mais esta.

Valeu, Mestre!!!
Abraços