Gabriel Cabral

Aeeeeeeeee Macedo...agora foi Muitíssimo obrigado a todos vocês, Macêdo, Dudu_Capixaba e kuroi

Troquei........não deu certo....ta dando o mesmo erro ainda :(

Macedo e Duduh, fiz da seguinte forma... DESistempo.rsCommand1_Grouping.Filter = "Atend_Data Between #" & Format(DTPicker1.Value, "YYYY-MM-DD") & "# And #" & Format(DTPicker2.Value, "YYYY-MM-DD") & "# WHERE Atend_NomeFantasia = '" & cboNomeFantasia.Text & "'" DataReport1.Show Mas deu o seguinte erro: O aplicativo está usando argumentos que são do tipo incorreto, estão fora do intervalo aceitável, ou estão em conflito entre si.

Maravilha Duduh... fiz assim para gerar relatorio buscando um nome numa combo DESistempo.rsCommand1_Grouping.Filter = "Atend_NomeFantasia = '" & cboNomeFantasia.Text & "'" DataReport1.Show e assim para gerar relatorio entre duas datas DESistempo.rsCommand1_Grouping.Filter = "Atend_Data >= '" & DTPicker1.Value & "' AND Atend_Data <= '" & DTPicker2.Value & "'" DataReport1.Show Só tenho um ultimo problema... Preciso gerar um relatorio entre datas E especificando o nome na combo... por exemplo....quero um relatorio do Cliente A entre tais datas.... mas se faço assim... DESistempo.rsCommand1_Grouping.Filter = "Atend_Data >= '" & DTPicker1.Value & "' AND Atend_Data <= '" & DTPicker2.Value & "'" DESistempo.rsCommand1_Grouping.Filter = "Atend_NomeFantasia = '" & cboNomeFantasia.Text & "'" DataReport1.Show é gerado um relatorio somente pelo nome... e se faço assim... DESistempo.rsCommand1_Grouping.Filter = "Atend_NomeFantasia = '" & cboNomeFantasia.Text & "'" DESistempo.rsCommand1_Grouping.Filter = "Atend_Data >= '" & DTPicker1.Value & "' AND Atend_Data <= '" & DTPicker2.Value & "'" DataReport1.Show é gerado um relatorio somente entre as datas... Como gerar um relatorio com os dois criterios ?????

????????? :(

Ae Duduh_Capixaba, eu fiz tudo isso q você me indicou... mas ainda está dando o erro Failed getting Rowset(s) from current data source

Mas não sei usar DataReport sem o DataEnvironment... Voce poderia me dar algum exemplo?!! Ou então algum exemplo de como usar o Filter.....pois nunca usei e não sei como funcionaria sem o código do botao nem os parametros Obrigado

Olá pessoal..... Estou querendo gerar um relatorio entre datas e por nome...em DataReport ou seja... 3 parametro: DataInicial, DataFinal, NomeFantasia.... as datas serão definidas em dois DTPicker e o nome em uma combobox então criei um command e no SQL Statement coloquei: SELECT Atend_NomeFantasia, Atend_Inicio, Atend_Termino, Atend_Duracao, Atend_TempoDisp, Atend_TempoEx, Atend_Data FROM Atendimentos WHERE Atend_Data BETWEEN ? AND ? AND Atend_NomeFantasia LIKE ? ORDER BY Atend_Data e no botao q gera o relatorio está assim: Private Sub cmdRelAtendDataNome_Click() Dim DataInicial As Date Dim DataFinal As Date DataInicial = DTPicker1.Value DataFinal = DTPicker2.Value Dim NomeFantasia As String NomeFantasia = cboNomeFantasia.Text DESistempo.cmdAtendDataNome_Grouping DataInicial, DataFinal, NomeFantasia frmRelAtendDataNome.Visible = False rptAtendDataNome.Show End Sub Mas ao escolher as datas e o nome e clicar no botao, dá o seguinte erro: Failed getting Rowset(s) from current data source Tem algo de errado na instrução SQL do command?? ou no código do botao que gera o relatorio??? Obrigado

Encontrei o erro, Macedo... o código estava corretíssimo.. o problema era o lugar onde eu estava colocando-o eu estava colocando no evento Activate() do relatorio o certo é colocar no botão que abre o relatorio Obrigado...ateh +

Olá pessoal..... gostaria de saber se tem como a scroll do mouse funcionar numa MSHFlexGrid Obrigado

Coloquei ("PageHeader") porque o nome da seção, que está entre parêmteses é PageHeader Mas não dá certo troquei por Section2.......mesmo assim não deu certo nada aparece na label

Mas não ta aparecendo nada.... fiz assim Private Sub DataReport_Activate() rptAtendimentos.Sections("PageHeader").Controls("lblData").Caption = "Período de Referência: " & DTPicker1.Value & " a " & DTPicker2.Value & "" End Sub mas a label fica vazia

Boa noite Macedo.. segui este seu exemplo mas algo está dando errado numa parte.... logo após eu digitar Controls("lblData"). quando eu digito o ponto, não aparece a janela de propriedades, como se não existisse a lblData o que pode estar errado??

Pessoal, Tenho um relatorio entre datas gerado atraves de uma data inicial e uma data final indicadas em dois DTPicker..... Como eu faço para essas datas aparecerem no relatorio??? Obrigado

Olá pessoal.. mais duvidas sobre DataReport aqui o que acontece é q coloquei um título "Relatório de Atendimentos" na seção Repot Header do meu relatório.... mas tudo q está no Report Header só aparece na primeira página do relatório... Uma forma de fazer aparecer os textos em todas as paginas seria colocá-los na seção Page Header e tirar a seção Report Header.... mas tem alguma outra maneira de aparecer em todas as páginas do relatório sem ter q fazer isso???/ Obrigado

Isso ae Macêdo.... era isso mesmo... ajustei a seção acima e a seção abaixo da que contem os textbox.... muito obrigado

Olá pessoal.... cá estou mais uma vez com problemas no Data Report agora é o seguinte... os registros estão ficando muito espaçados uns dos outros... eu já diminui ao máximo a seção Details, onde estão as textbox com os registros... mas de nada adiantou alguém sabe como resolver isso? Muito obrigado

Entendi..... Perfeito, kuroi.... Agora deu certo... Muitíssimo obrigado

Desculpa kuroi, não entendi muito bem.... e também não sei se tem algum outro problema aki no meu código.. vou coloca-lo aki pra você ver se tem algo q está impedindo a data de ficar no formato desejado... Para fazer uma consulta entre datas e escolhendo um cliente numa combo, faz-se dessa forma... Set Conex = New ADODB.Connection Conex.Open StringDeConexao GrideCons.Visible = True cboNomeFantasia.Text = "" StringSQL = "SELECT * FROM Atendimentos WHERE Atend_NomeFantasia Like " StringSQL = StringSQL & "WHERE Atend_Data Between #" & Format(DTPicker1.Value, "YYYY-MM-DD") & "# And #" & Format(DTPicker2.Value, "YYYY-MM-DD") & "#" StringSQL = StringSQL & "ORDER BY Atend_Data" Set rs = New ADODB.Recordset rs.Open StringSQL, Conex, adOpenDynamic, adLockOptimistic If rs.EOF Then MsgBox "Não foram encontrados registros correspondentes.", vbExclamation, "Registro não encontrado" Set GrideCons.DataSource = rs GrideCons.Refresh rs.Close Set rs = Nothing aqueles DTPicker que uso pra selecionar as datas, só funcionam se estiverem no formato "YYYY-MM-DD" Eles podem estar interferindo em alguma coisa??? Agradeço muuuuuito se puder ajudar Obrigado

Então kuroi..... eu coloquei CDate para o campo como texto e deu certinho.....beleza mas e se o campo tiver q ser do tipo data?? como eu faço para no MSHFlexGrid mostrar a data no formato "dd/mm/yy" ????

Então Macêdo, eu precisaria colocar duas textbox pra indicar a data inicial e a data final..... só que essas datas não precisam necessariamente estar gravadas no banco de dados.... elas podem ser datas aleatorias que serão informadas pra se gerar um relatorio de todos os registros cadastrados entre essas datas..... Então eu teria mesmo que relacionar a texbox com o BD atraves do DataField??? Eu até fiz isso....mas deu o seguinte erro Run-time error '8577': Failed getting Rowset(s) from current data source Não teria algo como comando SQL com BETWEEN ou coisa do tipo??

Olá pessoal... estou com uma grande duvida aqui.... já vasculhei todos os topicos aki no forum e em outros também, mas não encontrei nada Eu estou precisando gerar um relatório especificando uma data inicial[textbox], uma data final[textbox] e um nome[combobox].... como fazer isso em data report ??? a consulta eu sei fazer......eu a faço e mostro o resultado numa MSHFlexGrid.... tem como também gerar um relatorio desse resultado que está no MSHFlexGrid??? Quem puder me ajudar, serei muito grato

Olá pessoal... Estou abrindo a calculadora do windows dessa forma Shell "calc.exe" como eu determino a posição da calculadora no form?? é q cada hora ela abre em um lugar diferente. Qm puder me ajudar...agradeço muito Obrigado

Ae kuroi....certinho....muito obrigado mesmo

Olá pessoal.... é o seguinte.... tenho uma combobox com os nomes de clientes e um MSHFlexGrid q aparecerá o resultado da consulta de acordo com o nome escolhido na combobox.... está assim... Private Sub cboNomeFantasia_Click() Set Conex = New ADODB.Connection Conex.Open StringDeConexao StringSQL = "SELECT * FROM Atendimentos WHERE Atend_NomeFantasia Like " StringSQL = StringSQL & "'" & cboNomeFantasia & "' ORDER BY CDate(Atend_Data)" Set rs = New ADODB.Recordset rs.Open StringSQL, Conex, adOpenDynamic, adLockOptimistic If rs.EOF Then MsgBox "Não foram encontrados registros correspondentes." Set GrideCons.DataSource = rs GrideCons.Refresh rs.Close Set rs = Nothing O problema surge quando preciso fazer essa consulta entre datas...separadamente ou juntamente com a consulta feita do nome... como se faz a consulta entre datas? já tentei utilizar BETWEEN na instrução SQL mas não deu certo.... o campo Atend_Data, q armazena as datas é do tipo texto....mas convertido para data [CDate()] na instrução SQL.... para fazer a consulta entre datas é preciso especificar as datas em duas textbox... elas não precisam estar ligadas a nenhum campo não é?! Agradeço muito quem puder me ajudar Obrigado