kuroi

marcio, se o selection formula não tava aceitando e os parametros tb não, não sei se tem jeito. o filtro q você quer fazer é muito complexo, mesmo. uma otra alternativa seria você passar os dados a partir do recordset, como explicado nesse tópico: http://scriptbrasil.com.br/forum/index.php...mp;#entry477615 agora, não duvido q ocorra erro tb na hora de fazer o where no select. 3000 ORs é mta coisa mesmo. você podia usar o IN (Where Campo In ('valor1', 'valor2', ..., 'valor3000')), entretanto tb não duvido q va dar erro. acho q você devia rever uma forma pra simplificar esse filtro.

michelle, não sei o q a consulta devia fazer, então ele so ta ativando a celula. tipo, acho q não puxando nd, porque eu não sei pra onde tem q puxar. mas se você olhar na planilha enquanto, você consulta, vai ver q ele muda o cursor pra celula onde ta a data, testei aqui e deu certo. é essa linha aqui: .Range(x(i) & j).Activate ai o q teria q fazer seria alterar ela, pra por os dados onde você quiser. esses dados vao vir dessa consulta acima?? o q você pode fazer é, a cada vez q a consulta for feita, você apaga todos os dados do listbox, e adiciona as linhas e as colunas de acordo com o q achou na pesquisa.

pra q serve esse codigo?? for (i=0; i<=10; i++) vet[i];[/code]

michelle, da uma olhada na pesquisa por data q eu inventei aqui: Sub Pesquisar() Dim i As Integer, j As Integer Dim colunas As String, x() As String colunas = "J,L,N,P,R,T,V" x = Split(colunas, ",") Dim fim_coluna As Boolean For i = LBound(x) To UBound(x) j = 5 With Sheets("CREC") fim_coluna = False Do While Not fim_coluna If .Range("C" & j).Value <> "" Then If CDate(.Range(x(i) & j).Value) > CDate(TextBox32.Text) And CDate(.Range(x(i) & j).Value) < CDate(TextBox33.Text) Then .Range(x(i) & j).Activate Exit Sub End If j = j + 1 Else fim_coluna = True End If Loop End With Next End Sub[/code] o problema é q eu não conseguia achar o final. tipo não sabia ate q linha tinha q procurar, e ia acabar procurando ate a 65536. pra evitar isso, eu mandei pesquisar ate onde a coluna C tiver preenchida. ai você pode ajustar essa parte de acordo com o q for melhor pra você. ai veja se funciona ai, so o q acho q faltaria implementar ai seria um findnext, nesse caso, você teria q achar q celula ele esta (de acordo com o array x) antes de pesquisar. ainda não entendi direito. q codigo você usa pra mostrar as colunas no listbox?? você mostra a coluna q quiser ue.

nossa, legal o componente animation, eu não conhecia mesmo, é bem util pra fazer efeitos visuals.

mas ele aponta qual formula q é?? seria um campo formula ou é a formula da selecao?? posta ai qual o codigo da formula pra gente ver. e ai não entendi essa parte de 3000 registros no parameter field. você diz q passa os 3000 pro usuario escolher um deles, é isso??

essa não é do joaozinho, é do tenshinhan

mas o .rel é um txt com os dados já impressos?? então acho q não da ne. o .rpt é o arquivo de modelo do relatorio e aponta pra uma fonte de dados. não tem dados nele. se você quer fazer os relatorios baseados nesses dados, vai ter q exporta-los pra algum banco de dados.

o q é arquivo .rel?? de onde vem isso??

cara, pelo q sei o ExecuteNonQuery() so vai retornar as linhas se for pra Delete e Update por exemplo. acho q você vai ter q executar o ExecuteReader() e pegar o valor do Count() q você fez na query. alem do mais, mesmo q o ExecuteNonQuery() te retornasse alguma coisa, a sua funcao ainda ia ta errada, pois o Count() sempre vai dar 1 registro, mesmo q a tabela teja vazia (nesse caso, vai ter um registro com o valor 0).

poe um breakpoint (F9) na linha q você edita o selectionformula e rode o programa. quando chegar la e o programa parar, digite no immeditade window (Ctrl + G): ? "{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 & ")"[/code] e aperta ENTER. veja o q ele vai mostrar e ai poste ai. mas o q ocorre com esse codigo?? ele mostra o filtro errado?? ou da alguma mensagem de erro??

é so concatenar assim: crRep.RecordSelectionFormula = "{CONTATOS_PROPOSTA.DATAPRO}= Date'" & datapro.Value & "'" & _ " and {CONTATOS_PROPOSTA.EMPRESA}= " & rsprop!EMPRESA[/code]

então, mas qual o codigo q pega o valor do dtpicker1 e não do dtpicker2??

na verdade você pegou o indice errado. em vez de impressora = Printers.Count tenta assim ó: impressora = i

e como ta o seu codigo??

acho q tipo isso. Dim p As Printer Set p = Printers(x)[/code] onde x é indice da sua impressora, acho q de acordo com a ordem em q foram instaladas no so. ai você imprime a partir do objeto p. se você não sabe o indice da sua impressora do cutepdf, faca um for de 0 ate Printers.Count e pegue o DeviceName de todos os indices e veja qual o indice q tem o nome da impressora q você quer.

quando da o erro, ele preenche o grid?? tenta o sql assim: select e.cod_es as Código, e.desc_es as Descrição, t.descri as Fabricante, e.codbarra_e as Cod_Barras, e.embal_es as Emb, e.qant_es as Estoque from estoque e INNER JOIN tipos t ON cint(e.fabric_es) = t.codigo Where t.numero = 9

tenta isso: Private Sub Command4_Click() Dim i As Integer For i = 0 To txtqtos.Text - 1 Me.Controls.Add "VB.TextBox", "TXTNovo" & i Me.Controls("TXTNovo" & i).Visible = True Me.Controls("TXTNovo" & i).Top = 480 Me.Controls("TXTNovo" & i).Left = 0 Me.Controls("TXTNovo" & i).Height = 285 Me.Controls("TXTNovo" & i).Width = 1215 Me.Controls("TXTNovo" & i).Top = Me.Controls("TXTNovo" & i).Top + (Me.Controls("TXTNovo" & i).Height * i) Next End Sub[/code]

esse é o mesmo problema do otro tópico?? já ta resolvido?? ou é outra coisa?? se for, não entendi essa parte aqui...

as duas tabelas estao incluidas separadamente no report?? se tiverem, entre em menu Database -> Visual Linking Expert e faca o relacionamento. mas se você tiver usando banco access, você so vai conseguir fazer o relacionamento, se o campo estiver como chave primaria na tabela de contato. se por um acaso você não pode usar chave primaria, então faca uma consulta no access q faca um inner join entre as duas tabelas. salve-a e ela vai estar visivel pelo crystal reports como tabela. então adicione ela em vez das duas tabelas separadas.

ue mas você já não tava fazendo isso, editando o selection formula?? igual seu codigo no otro tópico

mas é assim, mesmo, ele abre a tela de console do windows. se você quer q abra a janela comum, crie um projeto novo e selecione windows application. e exatamente por ser pra windows, q a funcao não existe no cabecalho. dentro do windows, você precisa da api pra posicionar, como no codigo q passei. mas vai ter q declarar daquele jeito, pelo menos é a unica forma q encontrei.

nossa q objeto é esse?? qual o nome dele na lista de componentes??

leandro, nunca esqueca q o seu grid ta vinculado a um recordset. sendo assim, é muito mais facil pegar os dados do recordset do q do grid. olha como o macoratti faz naquele link: Private Sub imprime_dados() Dim tamanhofolha As Integer Dim i As Integer 'define a fonte e o tamanhao da fonte Printer.FontName = "Arial" Printer.FontSize = "10" tamanhofolha = Printer.ScaleHeight - 1440 'define o tamanho da folha rs.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 rs.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); rs("nome"); Printer.Print Tab(30); rs("endereço"); Printer.Print Tab(60); rs("cidade"); Printer.Print Tab(90); rs("estado"); Printer.Print Tab(95); rs("cep") '-------------------------------------------- rs.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[/code]

de novo, com o CRAXDRT você consegue. da forma como é explicado aqui: http://scriptbrasil.com.br/forum/index.php...st&p=477615 você não vai pegar os dados do grid e sim do recorset vinculado a ele. EDITADO: leandro com o CRControl q você ta usando, acho q você consegue o mesmo efeito com o metodo SetTablePrivateData(). da uma checada se você consegue usa-lo ai.