Almarante

Bom pessoal preciso de ajuda para uma consulta. Tenho uma tabela "Pessoas" nela cadastro Clientes, fornecedores, Transportadoras e outros. Tem um campo chamado "Tipo" onde numericamente diferencia o tipo de cadastro, quando abro o form com o código abaixo ele me traz apenas o tipo desejado. No caso o form abre com txtTipo.text = 1 rs.open "SELECT * FROM Pessoas WHERE Tipo=" & txtTipo.text & "", db, 3, 3 Com o form já aberto eu vou pesquisar por nome com o código abaixo, digito uma letra dai retorna todos cadastros da tabela com a letra digitada sem filtrar por tipo. rs. Open "SELECT * FROM Pessoas WHERE " & cboPesquisa.text & " LIKE '" & txtPesquisa.text & "%' AND " & txtTipo.text & " order by " & cboOrdenar.text & "", db, 3, 3 alguém pode me diser com deva fazer? Obrigado.

Olá Pessoal Preciso de uma ajudinha. Estou usando o codigo abaixo para pesquisar registros no DataGrid, está funcionado perfeitamente, porem eu preciso que o cursor do DataGrid aponte o registro encontrado ou selecione a primeira linha, para que o registro selecionado seja mostrado nas texbox do form, como faço isso? Private Sub txtPesquisa_Change() X = Len(txtPesquisa.text) AdoPagar.ConnectionString = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & stCaminhoBD Filtro = txtPesquisa.text & "%" AdoPagar.RecordSource = "select * from ContasPagar WHERE " & cboPesquisa.text & " Like '" & Filtro & "'" AdoPagar.Refresh Do While AdoPagar.Recordset.EOF = False AdoPagar.Recordset.MoveNext Loop End Sub

Olá pessoal estou eu novamente aqui pedindo ajuda desta vez eu estou precisando de uma rotina para gerar parcelas e vencimentos. Exp. uma venda realizada hoje 27/12/2011 no valor de R$ 1.000,00 para ser paga em 3 vezes com vencimentos a cada 30 dias para ficar desta forma, Titulo/A R$ 333,34 vencimento 26/01/2012 Titulo/B R$ 333,33 vencimento 25/02/2012 Titulo/C R$ 333,33 vencimento 26/03/2012, onde Titulo seria o número de um documento. Se alguém poder me ajudar desde já Agradeço.

Danleonhart primeiro obrigado pela ajuda. Respondendo a sua primeira pergunta, NPedido é um campo e Item é outro campo da tabela ItensPedido, e os dois campos são do tipo texto. testei o segundo exemplo e deu "TIPO DE DADOS INCOPATIVEL COM A EXPRESSÃO DE CRITERIO" Olá, Danleonhart esta eu consegui acharonde eu estava errando, e já resolvi obrigado pela força

Valeu danleonhart, Não da mais o erro, mas ainda não altera os dados dos outro itens que não seja o primeiro, vou colocar abaixo todo código do botão editar. No form Pedidos de compras tem botão editar itens, ao clicar nele abre um form editar itens de pedido com todos os campos previamente selecionados no listview, então eu altero o dado que for nescessário, mas na hora de salvar na tabela nada acontece, o código do botão editar segue abaixo. Private Sub cmdEditar_Click() Dim TotalPed As Single Dim ali As Integer Dim Base As Single Dim Valicms As Single Dim indice As Single Dim qtd As Single Dim valunit As Single Dim valitem As Single Dim totindice As Single Dim aliIPI As Single Dim valipi As Single Dim base1 As String Dim busca As String Dim valindice As Single TotalPed = frmPedidosCompras.txtTotaldoPedido.text ali = frmPedidosCompras.txtICMS.text Base = frmPedidosCompras.txtBaseICMS.text Valicms = frmPedidosCompras.txtValorICMS.text indice = txtIndice.text qtd = txtQuantidade.text valunit = txtValUnitario.text valitem = txtTotalItem.text totindice = frmPedidosCompras.txtTotalIndice.text base1 = frmPedidosCompras.cboBase1.text valindice = txtValIndice.text Let busca = frmPedidosCompras.txtNumerodoPedido.text AdoPedido.ConnectionString = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & stCaminhoBD AdoPedido.RecordSource = "SELECT * FROM Pedido WHERE NPedido LIKE '" + busca + "'" AdoPedido.Refresh AdoPedido.Recordset.Filter = "Tipo = " & 2 If frmPedidosCompras.txtNumerodoPedido.text = busca Then TotalPed = TotalPed - valitem valindice = qtd * indice totindice = totindice - (valindice * qtd) AdoPedido.Recordset("TotalPedido") = TotalPed AdoPedido.Recordset("TotalIndice") = totindice AdoPedido.Recordset.Update AdoPedido.Recordset.MoveNext AdoPedido.Recordset.MovePrevious End If Let busca = frmPedidosCompras.txtNumerodoPedido.text AdoItensPedido.ConnectionString = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & stCaminhoBD AdoItensPedido.RecordSource = "SELECT * FROM ItensPedido WHERE NPedido='" + busca + "' AND '" & txtItem.text & "'" AdoItensPedido.Refresh AdoItensPedido.Recordset.Filter = "Tipo = " & 2 If frmPedidosCompras.txtNumerodoPedido.text = busca Then valitem = qtd * valunit txtTotalItem.text = valitem AdoItensPedido.Recordset("ValTotal") = valitem AdoItensPedido.Recordset("CodProd") = txtCodProd.text AdoItensPedido.Recordset("Descricao") = txtDescricao.text AdoItensPedido.Recordset("Unidade") = txtUnidade.text AdoItensPedido.Recordset("Indice") = indice AdoItensPedido.Recordset("Comissao") = txtComissao.text AdoItensPedido.Recordset("Quantidade") = qtd valunit = Format(Format(valunit), "R$ ##,##0.00") AdoItensPedido.Recordset("ValUnitario") = valunit AdoItensPedido.Recordset.Update AdoItensPedido.Recordset.MoveNext AdoItensPedido.Recordset.MovePrevious End If Let busca = frmPedidosCompras.txtNumerodoPedido.text AdoPedido.ConnectionString = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & stCaminhoBD AdoPedido.RecordSource = "SELECT * FROM Pedido WHERE NPedido LIKE '" + busca + "'" AdoPedido.Refresh AdoPedido.Recordset.Filter = "Tipo = " & 2 If frmPedidosCompras.txtNumerodoPedido.text = busca Then TotalPed = TotalPed + valitem 'valindice = indice * qtd 'txtValIndice.text = valindice 'totindice = totindice + valindice '(indice * qtd) frmPedidosCompras.txtTotaldoPedido.text = TotalPed frmPedidosCompras.txtTotalIndice.text = totindice If base1 = "Reduzida" Then Base = (TotalPed / 3) * 2 ' Valicms = Base / 100 * ali ' Else Valicms = TotalPed / 100 * ali ' frmPedidosCompras.txtValorICMS.text = Valicms End If AdoPedido.Recordset("ValBase") = Base AdoPedido.Recordset("ValICMS") = Valicms TotalPed = Format(Format(TotalPed), "R$ ##,##0.00") AdoPedido.Recordset("TotalPedido") = TotalPed totindice = Format(Format(totindice), "R$ ##,##0.00") 'AdoPedido.Recordset("TotalIndice") = totindice AdoPedido.Recordset.Update AdoPedido.Recordset.MoveNext AdoPedido.Recordset.MovePrevious End If Unload frmPedidosCompras Unload frmEditarItensPedidoCompras 'Preenche_Lista frmPedidosCompras.Show frmPedidosCompras.sstabPedidoCompra.Tab = 1 frmPedidosCompras.Move (Screen.Width - frmPedidosCompras.Width) / 2, (Screen.Height - frmPedidosCompras.Height) / 2 frmPedidosCompras.Top = 200 End Sub

Danleonhart primeiro obrigado pela ajuda. Respondendo a sua primeira pergunta, NPedido é um campo e Item é outro campo da tabela ItensPedido, e os dois campos são do tipo texto. testei o segundo exemplo e deu "TIPO DE DADOS INCOPATIVEL COM A EXPRESSÃO DE CRITERIO"

Olá pessoal Estou criando um form que me traz os campos de uma tabela "ItensPedido" selecionado em um listvew. Depois no botão editar faço uma cosulta pelo número do pedido, porem cada pedido possuem vários itens. só altera do primeiro item, então acredito que a cosulta deva ser o número do pedido mais item. estou fazendo desta forma baixo e dá erro de operador faltando. Let busca = frmPedidosCompras.txtNumerodoPedido.text AdoItensPedido.ConnectionString = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & stCaminhoBD AdoItensPedido.RecordSource = "SELECT * FROM ItensPedido WHERE NPedido '" + busca + "AND" + txtItem.text + "'" AdoItensPedido.Refresh AdoItensPedido.Recordset.Filter = "Tipo = " & 2 If frmPedidosCompras.txtNumerodoPedido.text = busca Then valitem = qtd * valunit txtTotalItem.text = valitem AdoItensPedido.Recordset("ValTotal") = valitem AdoItensPedido.Recordset("CodProd") = txtCodprod.text AdoItensPedido.Recordset("Descricao") = txtDescricao.text AdoItensPedido.Recordset("Unidade") = txtUnidade.text AdoItensPedido.Recordset("Indice") = indice AdoItensPedido.Recordset("Comissao") = txtComissao.text AdoItensPedido.Recordset("Quantidade") = qtd valunit = Format(Format(valunit), "R$ ##,##0.00") AdoItensPedido.Recordset("ValUnitario") = valunit AdoItensPedido.Recordset.Update AdoItensPedido.Recordset.MoveNext AdoItensPedido.Recordset.MovePrevious End If Apoveitando o tópico, depois de salva as alterações deverar atualizar o listvew, como faço pra chamar a sub Preenche_Lista que está em outro Form? Desde já Agradeço

Olá, Pessoal estou aqui novamente precisando de ajuda. Tenho um form para emitir pedidos, no form tem um listview onde eu coloco os itens desde pedido,porem se alguém digitar algo errado precisa ser corrigido, tentei fazer da maneira abaixo mas só carrega o numero do item. Private Sub Command1_Click() If lstItensdoPedido.ListItems.Count = 0 Then Exit Sub frmEditarItensPedidoCompras.txtItem = lstItensdoPedido.SelectedItem.text Set list = lstItensdoPedido.ListItems.Add(, , txtItem.text) list.Tag = txtItem.text frmEditarItensPedidoCompras.txtCodProd.text = list.SubItems(1) frmEditarItensPedidoCompras.txtDescricao.text = list.SubItems(2) frmEditarItensPedidoCompras.txtUnidade.text = list.SubItems(3) frmEditarItensPedidoCompras.txtQuantidade.text = list.SubItems(6) frmEditarItensPedidoCompras.txtIndice.text = list.SubItems(4) frmEditarItensPedidoCompras.txtComissao.text = list.SubItems(5) frmEditarItensPedidoCompras.txtValUnitario.text = list.SubItems(7) frmEditarItensPedidoCompras.txtTotalItem.text = list.SubItems(8) frmEditarItensPedidoCompras.Show Tentei copiar deste exemplo abaixo. Private Sub CmdEditar_Click() If ListaAlunos.ListItems.Count = 0 Then Exit Sub Aluno_edicao.data(0) = ListaAlunos.SelectedItem.Text For i = 1 To 4 Aluno_edicao.data(i).Text = ListaAlunos.SelectedItem.ListSubItems(i).Text Next i Aluno_edicao.cmbSexo = ListaAlunos.SelectedItem.ListSubItems(5).Text Aluno_edicao.chave = ListaAlunos.SelectedItem.Text Aluno_edicao.data(0).Enabled = False Aluno_edicao.mode = "editar" Load Aluno_edicao Aluno_edicao.Show 1 End Sub Desde já Agradeço.

Olá Pessoal estou novamente precisando de ajuda. Há alguns dias eu pediajuda para pesquisar no DataGrid, tive ajuda e tá tudo funcionando bem mas eu quero atraves de um DataCombo escolher por qual coluna pesquisar. fiz da maneira abaixoe deu erro de sintaxe ( operador faltando) Private Sub txtpesquisa1_Change() X = Len(txtpesquisa1.text) AdoClientes.ConnectionString = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & stCaminhoBD Filtro = txtpesquisa1.text & "%" AdoClientes.RecordSource = "select * from Clientes WHERE & cboPesquisa & Like '" & Filtro & "'" AdoClientes.Refresh AdoClientes.Recordset.Filter = "Tipo = " & 1 Do While AdoClientes.Recordset.EOF = False AdoClientes.Recordset.MoveNext Loop End Sub De que forma devo fazer?

Valeu, Kuroi encotrei o erro e funcionou.

Coloquei o codigo no form e o outro no modulo mas dá o seguinte erro Metodo ou base de dados não encontrado na linha abaixo. SetStyle SSTab1.hWnd, cSolidColor

Olá Pessoal, Estou usando o controle sstab e quero mudar a cor, na propriedade BACKCOLOR, eu mudo para branco só que ele continua com a cor padrão do windows, alquem pode me dizer porque? e tambem quero mudar a cor do DATAGRID. Desde já agradeço

O Código são esses Abaixo AdoPedido.Recordset.Update AdoPedido.Recordset.MoveNext AdoPedido.Recordset.MovePrevious AdoItensPedido.Recordset.AddNew AdoItensPedido.Recordset("Item") = txtItem.text AdoItensPedido.Recordset("CodProd") = txtCodprod.text AdoItensPedido.Recordset("Descricao") = txtDescricao.text AdoItensPedido.Recordset("Unidade") = txtUnidade.text AdoItensPedido.Recordset("Quantidade") = txtQuantidade.text AdoItensPedido.Recordset("Indice") = txtIndice.text AdoItensPedido.Recordset("Comissao") = txtComissao.text AdoItensPedido.Recordset("ValUnitario") = txtValUnit.text AdoItensPedido.Recordset("ValTotal") = txtValTotal.text AdoItensPedido.Recordset("NPedido") = txtNumerodoPedido.text AdoItensPedido.Recordset.Update AdoItensPedido.Recordset.MoveNext AdoItensPedido.Recordset.MovePrevious no primeiro exemplo as caixas de texto estão linkadas aos campos da tabela e para iniciar eu abro um novo registro, nosegudo caso eu gravo item a item.

Oi,Pessoal estou outra vez precisando de ajuda Tenho duas tabelas, uma Pedidos e a outa ItensDoPedido, ambas tem o Campo NPedido Formatei o textbox do numero do pedido para colocar zeros a esquerda "000001" O compo da tabela ItensDoPedido grava desta forma o campo da tabela Pedido só grava sem os "0" ou seja grava "1" Nas duas tabelas os campos estão como texto e com tamanho 6. alguém pode me dizer porque isso acontece?

Olá, Danleonhart Deu certo era isso mesmo que eu queria, digitar uma letra e listar todos regitros que inicie com esta letra e assim pordiante. Olá KUROI, o BD é acsses, mas funcionou com "%" e não com "*". Valeu, Obrigado