Leandro_Pirozzi

Passa um selectionFormula com o periodo, tipo: strSelectionFormula = "{tabela.campoData} IN " & _ " DateTime(" & dtpDtInicio.Year & ", " & Format(dtpDtInicio.Month, "00") & ", " & Format(dtpDtInicio.Day, "00") & ", 00, 00, 00)" & _ " to DateTime(" & dtpDtFim.Year & ", " & Format(dtpDtFim.Month, "00") & ", " & Format(dtpDtFim.Day, "00") & ", 23, 59, 59)" mas ai nesse caso ele vai me adicionar a hora não é? no caso so preciso q seja exibido a data que o usuário selecionou no form.

Opa! Bom dia, não o código está certinho, faz o filtro e tudo o que acontece é que onde existe o campo no relatório que era pra exibir os valores dos datapickers ele mostra datas que não tem nada a ver com que o usuario selecionou nos datapickers. Ai voce vai me dizer: mas onde voce esta dizendo para pegar o valor do dtpicker?? Então ai como eu vi que não estava trazendo os valores dos dtpickers eu acabei deixando sem. Ai queria saber como faz para ele trazer para o Crystal o que o usuario selecionou no dtpicker da aplicação. então fiz isso que voce me pediu CTRL + G e aconteceu o seguinte so mostrou isso: 0.

Desculpa! coloquei o codigo do outro form, foi mals. Segue Private Sub cmdimprimir_Click() If cbostatus.Text = Empty Then MsgBox "Selecione o status!", vbExclamation, "Advertência" Exit Sub ElseIf datinicial.Value = Empty Then MsgBox "Selecione a data inicial!", vbExclamation, "Advertência" Exit Sub ElseIf datfinal.Value = Empty Then MsgBox "Selecione a data final!", vbExclamation, "Advertência" Exit Sub Else Dim diai Dim mesi Dim anoi Dim diaf Dim mesf Dim anof diai = Day(datinicial.Value) mesi = Month(datinicial.Value) anoi = Year(datinicial.Value) diaf = Day(datfinal.Value) mesf = Month(datfinal.Value) anof = Year(datfinal.Value) 'Caminho do Banco de Dados CrystalReport1.DataFiles(0) = App.Path & "\CONTATOS.mdb" 'Selecionamos os Registros que se enquadram entre as datas CrystalReport1.SelectionFormula = "{CONTATOS_PROPOSTA.ASSESSOR}= '" & Login & "'" & _ " and {CONTATOS_PROPOSTA.STATUS}= '" & cbostatus.Text & "'" & _ " and {CONTATOS_PROPOSTA.DATAPRO} >= Date(" & anoi & "," & mesi & "," & diai & ")" & _ " and {CONTATOS_PROPOSTA.DATAPRO} <= Date(" & anof & "," & mesf & "," & diaf & ")" 'Caminho do Relatório CrystalReport1.ReportFileName = App.Path & "\Proposta.rpt" CrystalReport1.WindowTitle = "Relatório de Proposta" CrystalReport1.Destination = 0 CrystalReport1.Action = 1 End If End Sub

Dim crAppl As CRAXDRT.Application, crRep As CRAXDRT.Report Set crAppl = New CRAXDRT.Application Set crRep = crAppl.OpenReport(App.Path & "\RProposta.rpt") crRep.RecordSelectionFormula = "{CONTATOS_PROPOSTA.DATAPRO}= Date'" & datapro.Value & "'" & _ " and CONTATOS_PROPOSTA.EMPRESA}= rsprop!EMPRESA" frmrprop.Show frmrprop.CRViewer1.ReportSource = crRep frmrprop.CRViewer1.ViewReport e desse jeito que eu chamei a data ele exibe a msg. The remaining text does not appear to be part of the formula. Ai clico em DEBUG e fica marcado em amarelo crRep.RecordSelectionFormula = "{CONTATOS_PROPOSTA.DATAPRO}= Date'" & datapro.Value & "'" & _ " and {CONTATOS_PROPOSTA.EMPRESA}= rsprop!EMPRESA" posicionando o mouse em cima de datapro.value exibe o valor do dtpicker correto, porem o rsprop!EMPRESA não exibe nada. obrigado.

Private Sub cmdprint_Click() If opttotais.Value = False And optempassessor.Value = False Then MsgBox "Escolha uma opção", vbExclamation, "Advertência" Exit Sub ElseIf PerfilUser = "ADMINISTRADOR" And opttotais.Value = True Then 'Caminho do Banco de Dados CrystalReport3.DataFiles(0) = App.Path & "\CONTATOS.mdb" 'Selecionamos os Registros que se enquadram entre as datas ' CrystalReport1.SelectionFormula = "{CONTATOS_EMPRESA.ASSESSOR}= '" & Login & "'" 'Caminho do Relatório CrystalReport3.ReportFileName = App.Path & "\EmpresasADM.rpt" CrystalReport3.WindowTitle = "Relatório de Empresas" CrystalReport3.Destination = 0 CrystalReport3.Action = 1 Exit Sub ElseIf PerfilUser = "ADMINISTRADOR" And optempassessor.Value = True Then If cboass.Text = Empty Then MsgBox "Campo obrigatório vazio, favor verificar.", vbInformation, "Atenção" 'txtassessor.SetFocus Exit Sub End If 'Caminho do Banco de Dados CrystalReport1.DataFiles(0) = App.Path & "\CONTATOS.mdb" 'Selecionamos os Registros que se enquadram entre as datas CrystalReport1.SelectionFormula = "{CONTATOS_EMPRESA.ASSESSOR}= '" & cboass.Text & "'" 'Caminho do Relatório CrystalReport1.ReportFileName = App.Path & "\EmpresasAss.rpt" CrystalReport1.WindowTitle = "Relatório de Empresas por Assessor." CrystalReport1.Destination = 0 CrystalReport1.Action = 1 Exit Sub

então kuroo o filtro tá funcionando MARAVILHA, mas não sei como jogar ele no relatório, porque são duas datas para um mesmo campo na tabela DATATAREFA ai ele acaba sempre jogando o valor do dtpicker1 e não joga o valor do dtpicker2, entendeu? achei meio estranho, mas é o que esta acontecendo cmg.

Quando é exibido o erro? Posta o código pra gente tentar ajudar.

Boa tarde galera!! Tenho uma dúvida: Em um relatorio preciso q seja exibido os nomes dos contatos das empresas que são exibidas, porem tenho uma tabela de EMPRESA e outra de CONTATOS. as EMPRESAS são carregadas sem problema nenhum. Porém como vou buscar um contato da empresa sendo que ele é de uma outra tabela. Como saber se o contato realmente é da empresa selecionada? EMPRESA e CONTATOS tem um mesmo campo em comum que seria o CODEMP. pensei em criar um SQL, mas tb não sei como fazer. Se alguém puder ajudar! Obrigado!!

Bom dia galera!! Tenho uma dúvida: Por exemplo estou gerando relatórios que o usuário pode selecionar os períodos. Porém não sei como jogar o período que o usuário escolheu no relatório. Para o usuario selecionar os períodos estou utilizando dtpicker, tanto para período de inicio quanto de fim. Quem puder ajudar, agradeço!!! Vlw!

Opa Kuroi consegui fazer imprimir, obrigadão. Deixa só perguntar uma coisa. Voce tem idéia de como fazer quando o texto q esta sendo impresso é grande e não sai na folha, porque ele imprime somente uma linha se o texto for maior não imprime na linha debaixo. olha meu codigo. Dim tamanhofolha As Integer Dim i As Integer 'define a fonte e o tamanhao da fonte Printer.FontName = "Arial" Printer.FontSize = "9" tamanhofolha = Printer.ScaleHeight - 1400 'define o tamanho da folha rsbuscapers.MoveFirst 'movimenta o ponteiro para o primeiro registro contapagina = 0 'inicia o variável Call cabecalho 'chama a rotina do cabeçalho Do While Not rsbuscapers.EOF ' If Printer.CurrentY >= tamanhofolha Then 'verifica se se folha já 'encheu' Printer.NewPage Call cabecalho End If '---------------imprime os dados da tabela---------------------------- Printer.Print Tab(0); "EMPRESA" Printer.Print Tab(5); rsbuscapers("EMPRESA") Printer.Print Tab(0); "CONTATO" Printer.Print Tab(5); rsbuscapers("CONTATO") Printer.Print Tab(0); "HISTORICO" Printer.Print Tab(5); rsbuscapers("HISTORICO") 'Por exemplo aqui normalmente so imprime uma linha e geralmente tenho varias linhas e não continua na linha debaixo, já vai direto para DATATAREFA Printer.Print Tab(0); "DATA DA TAREFA" Printer.Print Tab(5); rsbuscapers("DATATAREFA") Printer.Print Tab(0); "ASSESSOR" Printer.Print Tab(5); rsbuscapers("ASSESSOR") Call linha '-------------------------------------------- rsbuscapers.MoveNext 'vai para o proximo registro Loop Printer.EndDoc 'envia os dados para a impressora MsgBox "Os dados foram enviados para a impressora ... ! " End Sub

nossa q objeto é esse?? qual o nome dele na lista de componentes?? Opa Kuroi, bom dia!! Então o bjeto é o ANIMATION. Adicione ele no Project/Components e habilita a opção Microsoft Windows Common Controls-2 6.0(SP6) muito simples de usar. e dá o resultado esperado, pelo menos pra mim hehehe... Dá uma testada ai e vê o que acha. Vlww

Existe a possibilidade de se gerar um relatório através de um datagrid preenchido? esse codigo somente esta trazendo por data. Se tiver como fazer com o datagrid já me facilita e muito. Obrigado!! Dim diai Dim mesi Dim anoi Dim diaf Dim mesf Dim anof diai = Day(DTPicker1.Value) mesi = Month(DTPicker1.Value) anoi = Year(DTPicker1.Value) diaf = Day(DTPicker2.Value) mesf = Month(DTPicker2.Value) anof = Year(DTPicker2.Value) 'Caminho do Banco de Dados CrystalReport1.DataFiles(0) = App.Path & "\CONTATOS.mdb" 'Selecionamos os Registros que se enquadram entre as datas CrystalReport1.SelectionFormula = "{CONTATOS_HISTORICO.ASSESSOR}= '" & Login & "'" & _ " and {CONTATOS_HISTORICO.DATATAREFA} >= Date(" & anoi & "," & mesi & "," & diai & ")" & _ " and {CONTATOS_HISTORICO.DATATAREFA} <= Date(" & anof & "," & mesf & "," & diaf & ")" 'Caminho do Relatório CrystalReport1.ReportFileName = App.Path & "\HistoricoPERS.rpt" CrystalReport1.WindowTitle = "Relatório de PERSPECTIVAS" CrystalReport1.Destination = 0 CrystalReport1.Action = 1 Exit Sub

Ahh sim!! Então não gostei muito do resultado do GIF e então adicionei um .AVI, ficou belezinha viu!!! So add no form o objeto ANIMATION e add o seguinte código quando clica no botao de procurar. Animation1.Visible = True ' Tornamos o controle animation1 visivel Animation1.Open App.Path & "\figuras\SEARCH.AVI" 'Aqui abrimos o .AVI Animation1.Play 10, 5, 15 ' E aqui: (executa o arquivo 10 vezes , do sexto ao decimo sexto frame) Ai ele mostra uma LUPA PESQUISANDO EQTO não traz os resultados.Ficou muito bom, eu gostei. Obrigado mais uma vez.

Bom vou postar a function que estou utilizando, porém não consigo imprimir o conteúdo do recordset. Somente imprime o cabeçalho com o nome dos campos da tabela. Se alguém puder ajudar. Agradeço. É necessário adicionar a Referencia Microsoft Activex data Objects. Public Function imprimir(ByVal DataGrid1 As DataGrid, _ ByVal rsbuscapers As ADODB.Recordset, _ ByVal Titulo As String) As Boolean On Error GoTo Error_Function Dim c As Integer Dim dato As String Dim Titles As String Dim Header As String Dim l As Integer 'number of lines For portrait Dim LLCount As Integer 'temporary line counter Dim MyArray(20) As Integer Dim Rowado As Integer Dim Rowdatag As Integer Dim mAllowAddNew As Boolean mAllowAddNew = DataGrid1.AllowAddNew DataGrid1.AllowAddNew = False DataGrid1.Row = 0 Screen.MousePointer = vbHourglass Header = " - Página n°: " ' Recupera os dados da coluna For c = 1 To DataGrid1.Columns.Count MyArray© = Len(DataGrid1.Columns(c - 1).Caption) + 10 Titles = Titles & Space(10) & DataGrid1.Columns(c - 1).Caption Next ' Configura a fonte da impressão para os dados Printer.Font.Size = 9 Printer.Font.Bold = True Printer.Font.Name = "Courier New" Printer.Orientation = vbPRORPortrait l = 82 ' Imprime o titulo , os dados e o número de páginas Printer.Print Space(40) & Titulo Printer.Print Header; Printer.page Printer.Print Titles Printer.Font.Bold = False DataGrid1.Refresh ' Percorre os dados do Datagrid For Rowado = 1 To Int((rsbuscapers.RecordCount - 1) / 13) + 1 For Rowdatag = 0 To DataGrid1.VisibleRows - 1 DataGrid1.RowBookmark (Rowdatag) dato = Space(10) For c = 1 To DataGrid1.Columns.Count dato = dato & DataGrid1.Columns(c - 1).CellText(DataGrid1.Bookmark) & _ Space(MyArray© - _ Len(DataGrid1.Columns(c - 1).CellText(DataGrid1.Bookmark))) Next LLCount = LLCount + 1 If LLCount <= l Then Printer.Print dato Else ' Adiciona nova folha Printer.NewPage Printer.Print Space(40) & Titulo Printer.Print Header; Printer.page Printer.Print Titles Printer.Print dato LLCount = 0 End If rsbuscapers.MoveNext Next Rowdatag DataGrid1.Scroll 0, DataGrid1.VisibleRows Next Rowado Printer.Print " " Printer.EndDoc Screen.MousePointer = vbNormal imprimir = True DataGrid1.AllowAddNew = mAllowAddNew Exit Function ' erro Error_Function: MsgBox Err.Description, vbCritical DataGrid1.AllowAddNew = mAllowAddNew Screen.MousePointer = vbNormal End Function 'Aqui onde chamo a function, passando como parametros o Datagrid, o recordset e o título que será impresso. Private Sub Image1_Click() Call imprimir(DataGrid1, rsbuscapers, "PERSPECTIVAS") End Sub 'mesmo assim não imprime o conteudo do RECORDSET. Private Sub Form_Load() Me.Height = 2370 Me.Width = 4500 txtpers.Text = "pers" Set cnbuscapers = New Connection cnbuscapers.CursorLocation = adUseClient ' usa o BD cnbuscapers.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _ App.Path & "\CONTATOS.mdb;Persist Security Info=False" ' abre a conexao ADO cnbuscapers.Open ' Cria um novo recordset Set rsbuscapers = New Recordset ' abre os registros rsbuscapers.Open "SELECT EMPRESA, CONTATO, HISTORICO, DATATAREFA, ASSESSOR From CONTATOS_HISTORICO", _ cnbuscapers, adOpenStatic, adLockOptimistic ' inicia o datagrid Set DataGrid1.DataSource = rsbuscapers End Sub

Nossa de tanto q eu já li matéria sobre isso estou ficando doido e o maximo q consegui imprimir foi o cabeçalho do datagrid.

é normal a GIF não se movimentar? porque pra mim ela ficou parada.

é possível imprimir o que é exibido em um Datagrid?

Aqui ele informa que não existe dados para essa busca. ai apelei e fiz o seguinte: criei um text e deixei visible = false No load do form txtpers.Text = "pers" E no select SQL = "SELECT EMPRESA, CONTATO, HISTORICO, DATATAREFA, ASSESSOR " & _ " FROM CONTATOS_HISTORICO " & _ " WHERE HISTORICO like '%" & txtpers.Text & "%'" & _ " AND (DATATAREFA) BETWEEN #" & Format(DTPicker1.Value, "YYYY-MM-DD") & "# AND #" & Format(DTPicker2.Value, "YYYY-MM-DD") & "# AND ASSESSOR = '" & Login & "'" Ai ele localizou, tudo que era maiusculo e minusculo. No caso minha base de dados vai ser oracle, ai não vai funcionar dessa maneira ne? no caso só vai localizar o q estiver em minusculo é isso? tem como localizar em maiusculo e minusculo? obrigado e olha a gambiarra ai hahahaha...

tem alguma sugestão para poder localizar tipo a palavra iniciando com "pers"?? ahhh se possivel localizar sendo maiuscula PERS ou minuscula pers

dá pra fazer com like tb, porque tenho medo de algum usuário escrever errado a palavra "perspectiva" e quando eu pedir pra procurar ele não retornar nada. entendeu?

Mais uma dúvida. No caso aqui nesse select como eu faria pra ele localizar uma palavra exata? No caso preciso que localize a palavra "perspectiva" dentro do campo HISTORICO. SQL = "SELECT EMPRESA, CONTATO, HISTORICO, DATATAREFA " & _ " FROM CONTATOS_HISTORICO " & _ " WHERE HISTORICO like '" & pers & "%'" & _ " AND (DATATAREFA) BETWEEN #" & Format(DTPicker1.Value, "YYYY-MM-DD") & "# AND #" & Format(DTPicker2.Value, "YYYY-MM-DD") & "#" Obrigado!!!

Então kuroi ele não esta como texto não, o que está como texto é de uma outra tabela. Essa aqui a datatarefa esta como data mesmo. Mas vou aproveitar e converter pois pra mim o erro é no formato da data mesmo. vamos ver se vai dar certo! Obrigado! Opa Kuroi voce é o cara hehehe... Era isso mesmo. Era o formato. OBRIGADO!!!! Olha como ficou. Private Sub cmdloc_Click() Dim SQL As String SQL = "SELECT EMPRESA, CONTATO, HISTORICO, DATATAREFA " & _ " FROM CONTATOS_HISTORICO " & _ " WHERE HISTORICO like '%" & txtloc.Text & "%'" & _ " AND (DATATAREFA) BETWEEN #" & Format(DTPicker1.Value, "YYYY-MM-DD") & "# AND #" & Format(DTPicker2.Value, "YYYY-MM-DD") & "#" Set cnbuscahist = New ADODB.Connection With cnbuscahist .Provider = "Microsoft.Jet.OLEDB.4.0" .ConnectionString = "Data Source=" & App.Path & "\CONTATOS.mdb;" .Open End With Set rsbuscahist = New ADODB.Recordset Set rsbuscahist.ActiveConnection = cnbuscahist rsbuscahist.CursorLocation = adUseClient rsbuscahist.Open SQL Set DataGrid1.DataSource = rsbuscahist If rsbuscahist.EOF Then DataGrid1.Visible = False MsgBox ("Não existem dados para essa busca!") txtloc.Text = "" txtloc.SetFocus Else DataGrid1.Visible = True End If End Sub

Mudei o select e ainda nada. SQL = "SELECT EMPRESA, CONTATO, HISTORICO, DATATAREFA " & _ " FROM CONTATOS_HISTORICO " & _ " WHERE HISTORICO like '%" & txtloc.Text & "%'" & _ " AND DateValue(DATATAREFA) >= DateValue('" & DTPicker1.Value & "') AND DateValue(DATATAREFA) <= DateValue('" & DTPicker2.Value & "')" exibe a msg tipo de dados imcompativel na expressao de criterios.

então, na verdade ele vai me trazer os historicos que contenham a palavra q o usuario digitou entre o periodo, entendeu?

Bom dia galera!! Estou efetuando uma busca por período, porém ela não me exibe nenhum erro nem nada, simplesmente não carrega as informações e exibe a msg de q não existem dados para a procura, sendo que existe. Será que meu select esta errado? Quem puder ajudar, agradeço. Private Sub cmdloc_Click() Dim SQL As String Dim SQL1 As String SQL = "SELECT EMPRESA, CONTATO, HISTORICO, DATATAREFA " & _ " FROM CONTATOS_HISTORICO " & _ " WHERE HISTORICO like '%" & txtloc.Text & "%'" & _ " AND ((DATATAREFA) BETWEEN " & DTPicker1.Value & "" & _ " AND " & DTPicker2.Value & ")" Set cnbuscahist = New ADODB.Connection With cnbuscahist .Provider = "Microsoft.Jet.OLEDB.4.0" .ConnectionString = "Data Source=" & App.Path & "\CONTATOS.mdb;" .Open End With Set rsbuscahist = New ADODB.Recordset Set rsbuscahist.ActiveConnection = cnbuscahist rsbuscahist.CursorLocation = adUseClient rsbuscahist.Open SQL ' rsbuscahist.Open SQL1 Set DataGrid1.DataSource = rsbuscahist If rsbuscahist.EOF Then DataGrid1.Visible = False MsgBox ("Não existem dados para essa busca!") txtloc.Text = "" txtloc.SetFocus Else DataGrid1.Visible = True End If End Sub