2 participantes
[Resolvido]Form para filtrar vários relatórios com data inicial e final
Convidado- Convidado
Boa noite colegas. Eu preciso de um form para visualizar todos os relatorios criados onde posso escolher e filtrar as datas inicial e final. Encontrei um modelo, mas não consigo filtrar com as datas, somente abrir. A copia de Bd sera anexado tao logo...
criquio- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009
Poste o código que encontrou para vermos.
.................................................................................
Meu novo site: www.vcssistemas.com.br Clique aqui e veja um vídeo que explica como fazer pesquisas no forum. DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo: 1 - faça uma cópia do aplicativo 2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar 3 - use o Compactar/Reparar 4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem) Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário. Positive as mensagens que achar útil, no canto superior direito delas. |
Convidado- Convidado
Criquio emio para seu email...
vieirasoft- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 7304
Registrado : 11/05/2010
A pedido do colega, está aqui a cópia
http://dl.dropbox.com/u/8157744/Emprestimo.zip
http://dl.dropbox.com/u/8157744/Emprestimo.zip
Convidado- Convidado
Alguem poderia me ajudar?????
vieirasoft- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 7304
Registrado : 11/05/2010
Que aconteceu colega? está tão aflito?
Convidado- Convidado
Usarei essa forma de visualizar e imprimir relatórios em todas os bd que estou desenv. e tambem futuramente. há exmplos do rogiel e até mesmo um que você me passou. mas esse eu pequei de outra aplicação e não consigo filtrar por data, abri-los eu consigo mas filtar por data não, esse é o problema. ja fiz algumas alterações no código sem sucesso, por isso mantive o original para ver o que esta dando errado para minha necessidade.
vieirasoft- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 7304
Registrado : 11/05/2010
Se tem o que o Rogiel lhe passou e funciona, o que eu fiz (deve ser o mesmo), porquê insistir noutro código. O que tem a mais o outro que os nossos não possuem?
Convidado- Convidado
Caro CafPr.... Claro que não vai coonseguir visualizar...
Cada relatório tem uma fonte de registro....
Ao clicar nos 3 pontinhos do lado acederá a consulta que gera este relatório....
Nele voce tem um critério que le 2 campos em seu Form
Caixa Texto DataInicial
Caixa Texto Datafinal
Eis o critério: >=[forms]![FrmRelChequeE]!]DataInicial] E <=[forms]![FrmRelChequeE]!]DataFinal]
Mas voce mudou o nome dessas caixa texto no seu Formulário, nele está assim:
Caixa Texto DataDeTérmino:
Caixa Texto DatadeInício:
Dessa forma o critério não encontra os campos no Form...
Renomeie suas caixas para:
DataInicial
DataFinal
Saudação
Cada relatório tem uma fonte de registro....
Ao clicar nos 3 pontinhos do lado acederá a consulta que gera este relatório....
Nele voce tem um critério que le 2 campos em seu Form
Caixa Texto DataInicial
Caixa Texto Datafinal
Eis o critério: >=[forms]![FrmRelChequeE]!]DataInicial] E <=[forms]![FrmRelChequeE]!]DataFinal]
Mas voce mudou o nome dessas caixa texto no seu Formulário, nele está assim:
Caixa Texto DataDeTérmino:
Caixa Texto DatadeInício:
Dessa forma o critério não encontra os campos no Form...
Renomeie suas caixas para:
DataInicial
DataFinal
Saudação
Convidado- Convidado
O nome do Form tambem está errado....
Eis o critério: >=[forms]!]FrmRelChequeE]!]DataInicial] E <=[forms]!]FrmRelChequeE]!]DataFinal]
O Seu está: Relatório...
Assim nem aqui nem na china ele filtra...
Saudações
Eis o critério: >=[forms]!]FrmRelChequeE]!]DataInicial] E <=[forms]!]FrmRelChequeE]!]DataFinal]
O Seu está: Relatório...
Assim nem aqui nem na china ele filtra...
Saudações
Convidado- Convidado
Estou revendo...
Vieira os exemplos do rogiel era abrir vários relatórios mas sem filtro por data
Vieira os exemplos do rogiel era abrir vários relatórios mas sem filtro por data
vieirasoft- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 7304
Registrado : 11/05/2010
O Hary parece-me que está a falar para si aí acima. Ora veja os postes.
Convidado- Convidado
Amigão nos relatórios havia referencia a Barra de menus feita em 2003.. não sei se voce os usa...
Eu retirei, pois se esrtiver com a referencia e não tiver a barra de menu... o reltório não abre...
Retire campos DLookup no relatrio pois nao havia a tabela empresa no BD
Se voce tem essas tabelas, apenas abra o bd, olhe as modificações e insira nos seu...
No Botão Visualizar coloquei:
Private Sub Visualizar_Click()
' Visualizar relatório selecionado. Este procedimento usa o procedimento
' Sub ImprimirRelatórios definido na seção (Geral) deste módulo.
If IsNull([DataInicial]) Or IsNull([DataFinal]) Then
MsgBox "Você deve informar as datas inicial e final."
DoCmd.GoToControl "DataInicial"
Exit Sub
Else
If [DataInicial] > [DataFinal] Then
MsgBox "A data final deve ser maior que a data inicial."
DoCmd.GoToControl "DataInicial"
Exit Sub
Else
Me.Visible = False
End If
End If
ImprimirRelatórios acViewPreview
Modifiquei esta funcão tambem....
Eis o Baita
http://dl.dropbox.com/u/26441349/CafPr1.rar
Eu retirei, pois se esrtiver com a referencia e não tiver a barra de menu... o reltório não abre...
Retire campos DLookup no relatrio pois nao havia a tabela empresa no BD
Se voce tem essas tabelas, apenas abra o bd, olhe as modificações e insira nos seu...
No Botão Visualizar coloquei:
Private Sub Visualizar_Click()
' Visualizar relatório selecionado. Este procedimento usa o procedimento
' Sub ImprimirRelatórios definido na seção (Geral) deste módulo.
If IsNull([DataInicial]) Or IsNull([DataFinal]) Then
MsgBox "Você deve informar as datas inicial e final."
DoCmd.GoToControl "DataInicial"
Exit Sub
Else
If [DataInicial] > [DataFinal] Then
MsgBox "A data final deve ser maior que a data inicial."
DoCmd.GoToControl "DataInicial"
Exit Sub
Else
Me.Visible = False
End If
End If
ImprimirRelatórios acViewPreview
Modifiquei esta funcão tambem....
Eis o Baita
http://dl.dropbox.com/u/26441349/CafPr1.rar
Convidado- Convidado
Harysohn a sua cópia esta com erros, as observações que você havia feito antes, nome form etc, fiz as alterações e derão resultado 50% resolvido.
No form "relatorios" a duascolunas C/DESCONTO e C/ACRESCIMO a primeira já consegui, agora estou a rever a segunda coluna, caso não consiga posto a mudança que fiz para você e os colegas analisarem.....
No form "relatorios" a duascolunas C/DESCONTO e C/ACRESCIMO a primeira já consegui, agora estou a rever a segunda coluna, caso não consiga posto a mudança que fiz para você e os colegas analisarem.....
Convidado- Convidado
Amigão algo esta mal ai...
Baixei e abri normalmente....
Observe que tem referencias ao sistema de onde retirou este exemplo...
Eu desmaquei uma referencia que faltava..
Da aviso de falta de objetos do access 2003.. menus e barra botoes...
ve isso ai
Eu abri um form filtrado na 2 coluna e abriu normalmente
Saudações
Baixei e abri normalmente....
Observe que tem referencias ao sistema de onde retirou este exemplo...
Eu desmaquei uma referencia que faltava..
Da aviso de falta de objetos do access 2003.. menus e barra botoes...
ve isso ai
Eu abri um form filtrado na 2 coluna e abriu normalmente
Saudações
Convidado- Convidado
Harysohn na alteração que você disponibilizou esta faltando nomes corretos dos relatórios no código. Também não trocou o nome do form, continua RELATORIOS. alterei o nome dos relatorios nos codigos e esta a principio funcionando as duas colunas. Estou adequando e fazendo testes. Quando terminar retorno.... mas me parece que irá funcionar.... desde já muitissimo obrigado.....
Convidado- Convidado
Haaa... quer que eu faça tudo por voce??? rsrsrs
Tens que colocar a mão na massa amigão...
Como diz nosso Mestre JP... esse é só o caminho das pedras.!!!!
Saudações
Tens que colocar a mão na massa amigão...
Como diz nosso Mestre JP... esse é só o caminho das pedras.!!!!
Saudações
Convidado- Convidado
Nesse exemplo que eu te mandei coloquei um código no Botão visualizar, para avisar se a data é nula ou
Data inicial > que data final...
Coloque ai... terminando poste aqui para ajudar aos demais que queira...
Boa noite
Data inicial > que data final...
Coloque ai... terminando poste aqui para ajudar aos demais que queira...
Boa noite
Convidado- Convidado
Não, não......coloquei a mão na massa..... as suas alterações derão resultado em parte, eu alterei os nomes dos open nos códigos e carregou certinho. antes alterei o nome data inicial e final conforme sua observação. Leia novamente o meu último comentário.... Uma coisa que não sou é preguiçoso....não participo muito do forum com comentarios porque obervo antes de perguntar......enfim..... de agradeço colega... esta nos finalmentes e colocarei uma copia inteira do Bd no Forum... para todos observarem form bem feitos e relatorios idem.... um abraço.... vou terminar os testes....
Convidado- Convidado
Ok Aguardamos então... Bom trabalho...
Boa noite
Boa noite
Convidado- Convidado
Boa noite colega é muito obrigado.....Deus te abençõe.
Convidado- Convidado
O Seu exemplo deu certo quem precisar é só adptar. não há necessidade de postar o mesmo exemplo. Harysohn muitisimo obrigado pela sua ajuda. estou criando mais um rel e adptar os niveis ai sim o bd esta pronto. topico encerrado e resolvido
Convidado- Convidado
Gostariamos que postasse o seu ja pronto sem erros, pois o que fiz era so um inicial para voce ter ideia...
Poste aqui, que sera de muita valia pra quem precisar algo semelhante
Aguardamos.. Abraços
Poste aqui, que sera de muita valia pra quem precisar algo semelhante
Aguardamos.. Abraços
Convidado- Convidado
Modelo obejeto deste tópico, confeccionado pelo Amigo cafpr
https://www.dropbox.com/s/bbsa6fdj2wgf3aq/Factory.rar
https://www.dropbox.com/s/bbsa6fdj2wgf3aq/Factory.rar
Conteúdo patrocinado
» [Resolvido]Formulário Padrão para inserir Data Inicial e Data Final para Todos os Relatórios por Período ao clicar no botão Imprimir
» [Resolvido]Filtrar Data Inicial e Data Final no FormsContínuo
» [Resolvido]Filtrar Data inicial e Final de um relatorio atraves de um Formulario
» [Resolvido]Fitrar Form por Nome e Data (Inicial + Final)
» [Resolvido]Exportar consulta * filtrada * com data inicial e final para uma planilha do Excel
» [Resolvido]Filtrar Data Inicial e Data Final no FormsContínuo
» [Resolvido]Filtrar Data inicial e Final de um relatorio atraves de um Formulario
» [Resolvido]Fitrar Form por Nome e Data (Inicial + Final)
» [Resolvido]Exportar consulta * filtrada * com data inicial e final para uma planilha do Excel