Macêdo

Como você não passou mais detalhes, vou explicar do jeito que imaginei, digamos que seu relatório tem cadastro de clientes e você quer imprimir com os dados apenas do cliente cujo nome esteja selecionado no LIST: DataEnvironment1.rsCommand1.Filter = " NOME like '" & LIST_NOME.Text & "'" Relatorio_CLientes.Show onde NOME é o campo da tabela que possui os nomes dos clientes LIST_NOME o LIST em que será feito o filtro para só aparecer os dados so cliente selecionado.

Colega, você disse que queria filtrar os dados do relatório de acordo com os dados do List, mas seu relatório como foi feito? usa DataReport? usa com ou sem DataEnvironment ?

Logo no topo da pagina do forum, em tutoriais e Dicas

Pelo que entendi você quer por em seu relatorio os dados que estão aparecendo no ListBox é isto? se seu relatorio estiver no WORD você pode fazer uma mala direta, acho que postei como fazer isso no tutoriais e dicas, dá uma olhada lá. Se seu relatorio tiver sido feito no DataReport você pode fazer um filtro para só imprimir os dados referentes ao que está selecionado no LIST, dá uma olhada no tutoriais também, na dica de como imprimir relatorio entre datas, é só você trocar a informação do filtro para a variavel e campo que você quiser.

Deu erro Kuroi, agradeço pela atenção, acabei colocando um UPDATE logo após o INSERT que acabou funcionando como se fosse um prolongamento do INSERT, inseri os valores dos campos COD, CPF, NOME com o insert e abaixo coloquei um UPDATE para o campo CAIXA onde o COD fosse o mesmo. Valeu!

Uma opinião, faça o seguinte teste: Ponha outro FORM, nele insira, ao invés do DataControl, um ADODC Insira um DataGrid Faça a ligação do DataGrid com o Controle ADODC Ponha no RecordSource do ADODC o comando select para selecionar as duas tabelas desta forma aparecerá no Grid os campos das duas tabelas como se estivessem em uma OBS: com o Controle ADODC pode usar o "%"

Vejam este codigo: Private Sub Cmd_arquivar_Click() Dim vA As Integer vA = MsgBox("Desejar informar o número da caixa em que será arquivado este projeto ?", vbYesNo + vbQuestion, "Arquivar projeto") If vA = vbYes Then If TextCOD_PROJETOS = "" Then Dim vINF As Integer vINF = MsgBox("Não foi informado nenhum Projeto para arquivamento, verifique.", vbOKOnly + vbCritical, "Arquivar projeto") Else Dim cnncomando As New ADODB.Command Dim rs_arquivo As New ADODB.Recordset With cnncomando .ActiveConnection = cnnProjetos .CommandType = adCmdText .CommandText = " select * from arquivo " Set rs_arquivo = .Execute End With With rs_arquivo rs_arquivo.Filter = " cod = " & TextCOD_PROJETOS.Text If Not (.BOF And .EOF) Then Dim vJA_EXISTE_NO_ARQUIVO As Integer vJA_EXISTE_NO_ARQUIVO = MsgBox("Este projeto já consta na Base de Dados do Arquivo", vbOKOnly + vbCritical, "Arquivar projeto") Else With cnncomando .ActiveConnection = cnnProjetos .CommandType = adCmdText .CommandText = " insert into arquivo " & _ "(cod, cpf, nome)select cod, cpf, nome from projetos where cod = " & TextCOD_PROJETOS.Text & " " .Execute End With End If Set cnncomando = Nothing Set rs_arquivo = Nothing End With End If End If End Sub Vejam onde informo para gravar na tabela ARQUIVO os dados da tabela PROJETOS, porém, além destes campos gostaria de por dentro do: INSERT INTO, o outro campo da tabela ARQUIVO, que é o campo CAIXA mas, o valor informado para este campo teria que ser informado pelo usuario por uma inputbox, que viria logo após o ELSE, o problema é quando colocar o campo CAIXA dentro de: .CommandText = " insert into arquivo " & _ "(cod, cpf, nome, CAIXA)select cod, cpf, nome from projetos where cod = " & TextCOD_PROJETOS.Text & " " .Execute onde colocarei a variavel valor da inputbox?

Reveja sua instrução, olhe o que você esta mandando o VB fazer: Você está dizendo o seguinte SQL = GABRIEL txtCNPJ.Text = SQL Logo: txtCNPJ.Text = GABRIEL Entendeu?

põe isto: ="eu tenho" & SOMA(A1:A2)&"balas de chocolate" Beleza?

E ai Gabriel? beleza? dá uma olhada em Tutoriais e Dicas, tem uma dica minha lá que creio que serve pra este caso, o nome é mais ou menos assim: fazendo uma busca e deixando resultado selecionado só uma observação, no código, onde tiver o nome do acontrole ADODC você troca pelo nome do seu controle data se for o data_clientes ou data_atendimentos. beleza?

Realmente, para chamar entre datas tem que estar em um só COMANDO FILTER, dessa forma: dataenvironment1.rscommand1.filter = "DATA>= '" & txtdatainicial & "' and DATA<= '" & txtdatafinal & "'" Beleza? o que citei anteriormente estava apenas demonstrando como filtrar com data maior ou menor mas não estava o código para filtrar entre um intervalo de datas.

no form usa-se apenas os dois textbox para inserir as datas inicial e final e o buton para chamar o relatório, colocando o código abaixo no buton: DataEnvironment1.rsCommand1.Filter = "campodata >= '" & Txtdatainicial & "' and campodata <= '" & Txtdatafinal & "'" rpt.Show

Cara sinceramente estou postando mais para te agradecer, faz tempo que procuro como chamar relatório em intervalo de datas, por sinal acabei de colocar um post aqui e com seu exemplo eu consegui, gostaria de saber se você faz assim também: DataEnvironment1.rsCommand1.Filter = " D/CREDITO >= '" & TextdataInicial.Text & "'" DataEnvironment1.rsCommand1.Filter = " D/CREDITO <= '" & TextdataFinal.Text & "'" rptcheques.Show Quanto a seu problema me desculpe se estiver postando algo absurdo, mas não seria o caso de por no filter o rsCommand2; rsCommand3, pois utilizei nos outros Commands de meu relatorio e funcionou; DataEnvironment1.rsCommand3.Filter = " nome like '" & Textnome.Text & "'" rptcheques.Show Post aí pra ver se conseguimos encontrar a resposta juntos.

Na caixa de propriedades onde você escolhe o CAPTION, logo abaixo da propriedade CAPTION tem as propriedades DATASOURCE e DATAMEMBER, altere-as: No DATASOURCE deve aparecer: DATAENVIRONMENT e GROUPING_NOME No DATAMEMBER deve aparecer: COMMAND1 ou 2 ou 3 Falou?, mexe um pouco aí, se não conseguir posta novamente.

Simples, quando você cria um Group é gerado um novo ítem no Datasource do RPT: GROUPING_NOME, verifique na propriedade Datasource e verá que aparece duas opções: Command1; GROUPING_NOMEDOGRUPO, altere o ítem e pronto! Qualquer dúvida posta que tamo aqui!

Não entendi o substituir, mas se você quer dizer abrir o Form2 e ao mesmo tempo fechar o Form1 ponha assim: Private Sub Command1_Click() form2.Show unload me End Sub

Para chamar um form ponha no evento Click Private Sub Command1_Click() form2.Show End Sub

Private Sub Command7_Click() If (DataGrid1.SelBookmarks.Count <> 0) Then DataGrid1.SelBookmarks.Remove 0 End If If Adodc1.Recordset.RecordCount <> 0 Then Adodc1.Recordset.MoveFirst Adodc1.Recordset.Find "campo = '" & Text20.Text & "'" If Adodc1.Recordset.EOF Then MsgBox "Nome não registrado !", vbOKOnly, "Atenção" Else MsgBox "Encontrado!", vbOKOnly, "Atenção" DataGrid1.SelBookmarks.Add Adodc1.Recordset.Bookmark End If End If End sub

O controle Tabstrip é muito interessante, pois nos permite dividir um Form em várias janelas e realmente já estamos acostumados com o uso dele em muitos aplicativos, sem falar que ele deixa o projeto com uma cara bem Profissional em minha opinião. Para quem está começando realmente da coceira na cabeça de tanto pensar como fazer o TabStrip funcionar, como criar as abas e fazer com que nos movimentemos nas mesmas com click's, vai então um passo a passo sobre este belo controle: 1 - Para inserir o controle TabStrip em sua toolbox click Ctrl+T, ou va no menu Project Click em components. 2- Com a caixa Components aberta na aba Controls procure o ítem: Micosoft Windows Common Controls 6.0 (SP6), marque a caixa ao lado e click em OK. 2 -Agora que o TabStrip já se encontra em sua toolbox insira-o no form 3 - Click com o botão direito sobre ele e esolha: Properties 4 - click na aba tabs, verá que existe no campo Index o número 1 e logo abaixo o Caption com a caixa em braco. 5- escreva no caption, por exemplo, a palavra: CREDITO 6 - Click no botão Insert Tabs, verá que foi criado o index: 2, e o caption estará em branco 7- Ponha no caption do index 2 a palavra: DEBITO e click em OK O seu Tabstrip já está com as abas criadas, agora vamos aprender a fazê-las funcionar 1- Insira dois frames dentro do seu controle Tabstrip 2 - ponha no evento Load do Form o seguinte comando: Private Sub Form_Load() Frame1.ZOrder End Sub 3 - agora ponha no evento Click do controle TabStrip o seguinte comando: Private Sub TabStrip1_Click() If TabStrip1.SelectedItem.Index = 1 Then Frame1.ZOrder ElseIf TabStrip1.SelectedItem.Index = 2 Then Frame2.ZOrder End If End Sub Pronto! rode seu projeto e verá que ao clicar nas abas aparecerá os frames de acordo cada uma delas, agora é só inserir os controles que quiser dentro de cada frame, inserir seus codigos necessários e beleza...um belo aplicatvo com um form partilhando informações as quais você usaria dois form's

COLOCANDO UM GRID EM ORDEM DO CAMPO QUE QUISER Crescente Dim ordem ordem = "(" & "Select * from Tabela order by campo asc" & ")" Adodc1.RecordSource = (ordem) Adodc1.Refresh Ou assim: Adodc1.Recordset.Sort = "campo" decrecente Dim ordem ordem = "(" & "Select * from Tabela order by campo Desc" & ")" Adodc1.RecordSource = (ordem) Adodc1.Refresh Como Restringir os dados visualizados no GRID Quando o campo for numérico Dim ordem ordem = "(" & "Select * from Tabela where campo (=; <>; <=; >=) parametro" & ")" Adodc1.RecordSource = (ordem) Adodc1.Refresh Como Restringir os dados visualizados no GRID Quando o campo for texto Dim ordem ordem = "(" & "Select * from Tabela where campo (=; <>; <=; >=) ‘parametro’ " & ")" Adodc1.RecordSource = (ordem) Adodc1.Refresh

Será que usando ADODC será melhor? mais facil concerteza é! Passo a passo inclui o controle adodc no form clica com o direito nele escolhe a opção ADODC properties na caixa de dialogo(Propert Pages): marque a opção: Use conection string Click no botão BUILD ao lado, irá aparecer outra caixa na opção 1(selecione ou indique um banco de dados) click no botão ao lado...informe o caminho do banco de dados access voltando à caixa: Click no botão testar conexão, irá aparecer a mensagem de conexão OK Click em OK e voltando à primeira caixa de dialogo (Propert Pages) click na aba RecordSource em command type, click na seta ao lado e escolha a opção adcmdtable ao clicar na opção logo abaixo(table or estored procedure) irá aparecer o nome de sua tabela, marque. insira as textbox em seu formulario referente aos campos da tabela Na caixa de propriedades das textbox procure a opção Datasource: clicando na seta para baixo irá aparecer o nome do controle adodc1. marque agora para cada textbox procure na caixa de propriedades o item Datafield click e verá que aparece os campos de sua tabela, é só marcar cada um de acordo com o campo que deve aparcer. rode o projeto!

Beleza!

Valeu kuroi, mais uma vez obrigado. Agora é só ter coragem pra ver que mal comecei a aprender uma coisa e que devo pular pra outra, pois com certeza em breve o vb6.0 já era mesmo, é vinil e .Net é DVD. o caso é procurar comprar o VB studio e começar estudar quanto antes e é bom eu me apressar porque pra essas coisas novas chegarem aqui no meio do sertão leva tempo.

O Visual Studio 2005 é uma versão mais nova do Visual Basic 6.0?, como surgiu esta ferramenta? a sequência das versões foi assim VB4, VB5, VB6, e agora Visual studio 2005 é isto? será que com o Visual Studio terei todas as ferramentas disponíveis que tenho no VB 6.0?

Tenho quase certeza que o erro está na ligação do Datacontrol com os campos na propriedade datafield, uma coisa que não está batendo é quando você diz que só aparece o campo do tempo quando usa o flexgrid, se você tiver a textbox com a datafield e datasource da tabela correta não precisaria de flexgrid nem qualquer outro controle para o tempo aparecer. O que está acontecendo é que o flexgrid quando indexado ao Datacontrol puxa todos os dados da tabela, por isso está aparecendo o campo tempo com ele, com certeza você está errando na ligação dos controles(textbox), reveja um a um. Outra coisa que me deixa quase certo é o fato do erro ocorrer sempre no primeiro registro, pois toda tabela quando aberta aponta para o primeiro registro. se puder me passar este projeto, terei prazer em ajudar pois gosto de desafio...jilney@hotmail.com, ou podemos verificar melhor no MSN.