George Ferraz

Olha eu tenho um Banco de Dados com os Campos lá, duvida, como eu faço para assim que o usuário passar o leitor de codigo de barras ou digitar no campo “TxtCodBarr” o código correspondente ao rs.Fields(“CodBarras”) os campos passam a ser preenchidos automaticamente ou seja “TxtNProduto” = rs.Fields(“NProduto”) "TxtVProduto" = rs.Fields("VProd") e assim os demais que forem necessários quando eu optar. Set rs = db.OpenRecordset("Select TbGProd Where CodBarras = '" & TxtCodBarr.Text & "'") Desta forma que escrevo, rola um paú de Syntax e quando eu jogo o Clausula FROM ele não acha nenhum erro mais não consigo ver os registros do banco de dados ? Se algum diver alguma ideia favor eu fico muito grato, valeu.

kuroi a linha do erro he essa abaixo: If DTEnv.rsCmdTbPJCli.Fields("Codigo") = CmbCli.Text Then Eu conseguir resolver o pipino, foi assim eu estava querendo fazer este procedimento atreves de um DataEnvironment, dai não ia rola certo, sempre que eu setava ele não achava esta linha por conta do "DTEnv". Mais valeu mano por mais uma dica. B)

Dia rapazeada "não consigo fazer com que minha combox pesquise os codigos já existentes no banco de dados" essa duvida que venhe aos alguns dias e não acho solucao, abaixo descrevo o pipino: LostFocus da Combox CmbCli.Text = Right("000000" + Trim(CmbCli.Text), 6) Do While Not DTEnv.rsCmdTbPJCli.EOF If DTEnv.rsCmdTbPJCli.Fields("Codigo") = CmbCli.Text Then MsgBox "Código Digitado Já Existe !", vbInformation CmbCli.Text = Empty CmbCli.SetFocus Exit Do 'Para o Loop exit sub 'Para não executar a última linha da sub End If Rs.MoveNext 'Se o if for falso, vai ao proximo registro e repete a operação Loop TxtNCli.SetFocus End Sub mais rola um pau, o erro e o seguinte: Run-Time Error '2147217842(80040e4e): Operação será cancelada Abaixo eu mostro a quia General: Option Explicit Dim db As Database Dim rs As Recordset Abro o Recordset desta forma: Set db = OpenDatabase("C:TesteSyscom_1.2dados.MDB") E como Gravo no Banco assim: Private Sub IvBGrav_Click() 'Abri a tabela para gravação 'Depois fecha a tabela para preservar os dados Set rs = db.OpenRecordset("TbPFisi") rs.AddNew rs.Fields("Codigo") = CmbCli.Text rs.Fields("Nome") = TxtNCli.Text rs.Update rs.Close Favor se alguém poder me ajudar eu fico muito grato, valeu.

Amigos, valeu a força de todos, concluido problema. Coloquei uma If em cada linha do MsFlexgrid e deu certo, ou seja se o Flexgrid é preenchido com 2 linhas ele grava, se é preenchido com 3 linhas ele grava e assim sucessivamente, agora se for preenchido com 1 linha só Else = MsgBox "Você Precisa de no Mínimo duas Materias-Primas" "Consulte o Estoque Novamente". Grato a todos pela atenção valeu.

Olha brother ao meu vê, você tém um campo textBox em branco e uma Flexgrid com Dados certo, bom pode setar o textBox com a Linha e a Coluna que deseja, digo: TextBox.Text = MsFlexgrid.TextMatrix(Row tal, Col tal), a idéia me parece que vai funcionar. Falou brother.

Valeu amigo Anderson Robeto, vou tentar com sua instrução, amigo Macêdo eu tbém estou quebrando a cabeça com a repetição For Next, mais ainda não consegui montar, mais meus amigos, muito obrigado por suas idéias, valeu brother´s

Oi bom dia galera, tenho um Form com um MsFlexgrid em tempo de execução com suas linhas e colunas sendo preenchidas e não estou conseguindo pegar a coluna e suas linhas com valores e somar todas numa textbox atrevés de um botão? como faço isso ? Código do Botão Private Sub TxtValorTotal.Text( ) Txtvalortotal.Text = Ccur(MsFlexgrid.TextMatrix(1, 4) ) + (Msflexgrid.TextMatrix(2, 4) ) + (MsFlexgrid.TextMatrix(3, 4) ) ... End Sub Caros amigos, deste forma q faço a rotina funciona, desde que o usuário esteja com as três linhas acima preenchidas, mais a idéia é q ele possa totalizar com 1 - linha, com 2 linhas ou com 3 linhas, e assim como ele quizer, mais não estou conseguindo fazer, uma ajuda rapazeada, por favor. Desde já agradeço a força valeu...

Bom amigo Pinguembera, eu havia testado usando Row e Col, mais não deu certo por conta q eu só consigo pegar algum valor ou texto do MsFlexgrid, através da propriedade TextMatrix, agora eu vou tentar associar usando o comando SQL Select, como você aconselha. Mano valeu sua atenção.

Oi bom dia galera, tenho um Form com um MsFlexgrid em tempo de execução com suas linhas e colunas sendo preenchidas e não estou conseguindo pegar a coluna e suas linhas com valores e somar todas numa textbox atrevés de um botão? como faço isso ? Código do Botão Private Sub TxtValorTotal.Text( ) Txtvalortotal.Text = Ccur(MsFlexgrid.TextMatrix(1, 4) ) + (Msflexgrid.TextMatrix(2, 4) ) + (MsFlexgrid.TextMatrix(3, 4) ) ... End Sub Caros amigos, deste forma q faço a rotina funciona, desde que o usuário esteja com as três linhas acima preenchidas, mais a idéia é q ele possa totalizar com 1 - linha, com 2 linhas ou com 3 linhas, e assim como ele quizer, mais não estou conseguindo fazer, uma ajuda rapazeada, por favor. Desde já agradeço a força valeu...

Kuroi, você está absolutamento certo brother, desde a última resposta sua, onde você dizia passei uma idéia de como fazer isso, e eu não conseguia fazer funcionar, mais aí fiquei imaginando uma coisa se o Kuroi falou isso é porque a xarada é essa, e daí neste fim de semana eu fiquei em cima das linhas e fiz funcionar. Agora meu amigo, muito obrigado por sua força valeu mesmo mano.

Kuroi, olha só a linha que ficava em branco está sendo preenchida apenas o campo “Código” , que é a Col (0) do Flexgrid, e alterando os outros campos do Flexgrid ,”Nome”, “Unidade” etc.. É bom frisar bem que o primeiro campo do Flexgrid que é o “Código” esta belesma funcionando, meu amigo, mais não conseguir fazer com que os outros façam o mesmo. CODE FrmCmp.MSFlexGrid.TextMatrix(FrmCmp.MSFlexGrid.Rows - 1, 0) = GrdEstoque.Text Private Sub lvBEstq1_Click() FrmCmp.MSFlexGrid.AddItem "", FrmCmp.MSFlexGrid.Rows GrdEstoque.Col = 0 GrdEstoque.Row = 0 FrmCmp.MSFlexGrid.TextMatrix(FrmCmp.MSFlexGrid.Rows - 1, 0) = GrdEstoque.Text GrdEstoque.Col = 1 FrmCmp.MSFlexGrid.TextMatrix(1, 1) = GrdEstoque.Text GrdEstoque.Col = 5 FrmCmp.MSFlexGrid.TextMatrix(1, 2) = GrdEstoque.Text GrdEstoque.Col = 4 FrmCmp.MSFlexGrid.TextMatrix(1, 3) = GrdEstoque.Text GrdEstoque.Col = 7 FrmCmp.MSFlexGrid.TextMatrix(1, 4) = GrdEstoque.Text Unload Me End Sub Me ajuda brother e desculpa minha ignorancia, mais não consegui fazer funcionar.

Brother n.Borel, você criou sua conta como acabei de ver, agora você precisa Criar "Um Novo tópico", e apartir daí você começa a postar suas dúvidas, como eu faço e os outros membros do Script Brasil e mais eu peço que você em seu tópico, envie o código junto com sua pergunta, para ficar mais fácil para toda rapaziada falou mano valeu.

Kuroi, olha só a linha que ficava em branco está sendo preenchida apenas o campo “Código” , que é a Col (0) do Flexgrid, e alterando os outros campos do Flexgrid ,”Nome”, “Unidade” etc.. É bom frisar bem que o primeiro campo do Flexgrid que é o “Código” esta belesma funcionando, meu amigo, mais não conseguir fazer com que os outros façam o mesmo. CODE FrmCmp.MSFlexGrid.TextMatrix(FrmCmp.MSFlexGrid.Rows - 1, 0) = GrdEstoque.Text Private Sub lvBEstq1_Click() FrmCmp.MSFlexGrid.AddItem "", FrmCmp.MSFlexGrid.Rows GrdEstoque.Col = 0 GrdEstoque.Row = 0 FrmCmp.MSFlexGrid.TextMatrix(FrmCmp.MSFlexGrid.Rows - 1, 0) = GrdEstoque.Text GrdEstoque.Col = 1 FrmCmp.MSFlexGrid.TextMatrix(1, 1) = GrdEstoque.Text GrdEstoque.Col = 5 FrmCmp.MSFlexGrid.TextMatrix(1, 2) = GrdEstoque.Text GrdEstoque.Col = 4 FrmCmp.MSFlexGrid.TextMatrix(1, 3) = GrdEstoque.Text GrdEstoque.Col = 7 FrmCmp.MSFlexGrid.TextMatrix(1, 4) = GrdEstoque.Text Unload Me End Sub Me ajuda brother e desculpa minha ignorancia, mais não consegui fazer funcionar.

Ok, brother, faz sentido, eu pecebi a linha em branco como te falei, mais não sabia o q fazer, vou testar e torço pra rodar esta rotina. Mano valeu eu falo pro cê amanhã.

Kuroi, brother, olha só no evento click do botão, uma linha é acrescentada e ela é preenchida com 1 itém qualquer belesma sua orientação funciona, agora quando eu chamo o Form que tem o botão outra vez para escolher outro item e confirmo isso, ele só acrescente outra linha mais não preenche com o item que selecionei a linha fica em branco " " Como faço pra preencher esta linha em branco, quando chamo outra vez o Form que tem o botão ? É Possível isso ? Private Sub lvBEstq1_Click() FrmCmp.MSFlexGrid.AddItem "", FrmCmp.MSFlexGrid.Rows GrdEstoque.Col = 0 GrdEstoque.Row = 0 FrmCmp.MSFlexGrid.TextMatrix(1, 0) = GrdEstoque.Text GrdEstoque.Col = 1 FrmCmp.MSFlexGrid.TextMatrix(1, 1) = GrdEstoque.Text GrdEstoque.Col = 5 FrmCmp.MSFlexGrid.TextMatrix(1, 2) = GrdEstoque.Text GrdEstoque.Col = 4 FrmCmp.MSFlexGrid.TextMatrix(1, 3) = GrdEstoque.Text GrdEstoque.Col = 7 FrmCmp.MSFlexGrid.TextMatrix(1, 4) = GrdEstoque.Text GrdEstoque.Col = 3 FrmCmp.MSFlexGrid.TextMatrix(1, 5) = GrdEstoque.Text FrmCmp.MSFlexGrid.Row = FrmCmp.MSFlexGrid.Rows - 1 End Sub Valeu por sua atenção.

Oi kuroi, cara desculpa pela font = 5, na verdade eu só queria um pouco de atenção sua, porque sei de seu conhecimento em VB e quero apenas apreder mais viu, belesma e beleza. Valeu por eu poder contar com você brother, vou tar testando da forma que você me orienta e desde já torço muito pra dá certo, amanhã eu falo pro cê.

"Olha mano, desta forma o usuário, consegue pegar 2 itens e preenche o Flexgrid até aí belesma. Agora a minha idéia é 1 itém por vez, e daí vai preenchendo o Flexgrid a medida que o usuário vai confirmando o itém que quizer. Eu não estou conseguindo fazer isto ?" Private Sub lvBEstq1_Click() GrdEstoque.Col = 0 GrdEstoque.Row = 0 FrmCmp.MSFlexGrid.TextMatrix(1, 0) = GrdEstoque.Text GrdEstoque.Col = 1 FrmCmp.MSFlexGrid.TextMatrix(1, 1) = GrdEstoque.Text GrdEstoque.Col = 0 GrdEstoque.Row = 1 FrmCmp.MSFlexGrid.TextMatrix(2, 0) = GrdEstoque.Text GrdEstoque.Col = 1 FrmCmp.MSFlexGrid.TextMatrix(2, 1) = GrdEstoque.Text FrmCmp.MSFlexGrid.Row = FrmCmp.MSFlexGrid.Rows - 1 Unload Me End Sub Valeu galera um forte abraço.

Ok, quando ocorrer algum erro eu te falo a linha e a descrição. Hoje eu vou testar sua instrução e amanhã eu falo pro cê, mais aproveitando já aponto a linha do erro, agora a descrição ainda não tenho, pois está em outra máquina cara, você esta me pedindo pra fazer a mesma coisa outra vez é isso mesmo ? dá uma olha pra trás acho que é a mesma instrução. Mesmo assim muito obrigado por sua atenção vou testar ou me impenhar melhor valeu. B) MEU BOTÃO Private Sub lvBEstq1_Click() GrdEstoque.Col = 0 FrmCmp.MSFlexGrid.TextMatrix(1, 0) = GrdEstoque.Text GrdEstoque.Col = 1 FrmCmp.MSFlexGrid.TextMatrix(1, 1) = GrdEstoque.Text " O error esta apontando esta linha" GrdEstoque.Col = 5 FrmCmp.MSFlexGrid.TextMatrix(1, 2) = GrdEstoque.Text GrdEstoque.Col = 4 FrmCmp.MSFlexGrid.TextMatrix(1, 3) = GrdEstoque.Text GrdEstoque.Col = 7 FrmCmp.MSFlexGrid.TextMatrix(1, 4) = GrdEstoque.Text GrdEstoque.Col = 3 FrmCmp.MSFlexGrid.TextMatrix(1, 5) = GrdEstoque.Text FrmCmp.MSFlexGrid.AddItem "" FrmCmp.MSFlexGrid.Rows = FrmCmp.MSFlexGrid.Row - 1 End Sub CODE FrmCmp.MSFlexGrid.Rows = FrmCmp.MSFlexGrid.Row - 1 acho q era isso q você queria?? CODE FrmCmp.MSFlexGrid.Row = FrmCmp.MSFlexGrid.Rows - 1

Meu amigo, eu tentei seguir sua instrução, mais deu um erro em tempo de execução o código do erro é Rum-Time Error '381' acho que fiz alguma coisa errada mais não desfendei o misterio, olha abaixo como eu fiz ? ------------------------------------------------------------------------------------------------------------------------------------------------ CODE MSFlexGrid1.AddItem "", MSFlexGrid1.Rows ai pra ir pra ultima linha é só pegar pelo .Rows tb. tipo assim: CODE MSFlexGrid1.Row = MSFlexGrid1.Rows - 1 MEU BOTÃO Private Sub lvBEstq1_Click() GrdEstoque.Col = 0 FrmCmp.MSFlexGrid.TextMatrix(1, 0) = GrdEstoque.Text GrdEstoque.Col = 1 FrmCmp.MSFlexGrid.TextMatrix(1, 1) = GrdEstoque.Text GrdEstoque.Col = 5 FrmCmp.MSFlexGrid.TextMatrix(1, 2) = GrdEstoque.Text GrdEstoque.Col = 4 FrmCmp.MSFlexGrid.TextMatrix(1, 3) = GrdEstoque.Text GrdEstoque.Col = 7 FrmCmp.MSFlexGrid.TextMatrix(1, 4) = GrdEstoque.Text GrdEstoque.Col = 3 FrmCmp.MSFlexGrid.TextMatrix(1, 5) = GrdEstoque.Text FrmCmp.MSFlexGrid.AddItem "" FrmCmp.MSFlexGrid.Rows = FrmCmp.MSFlexGrid.Row - 1 End Sub Valeu por sua atenção amigo Kuroi.

Brother, valeu, olha eu irei tentar fazer da forma que você me orienta. Adicionando uma linha a cada solicitação do usuário, olha vai ser mais uma guerra que vou tentar vencer, quero ser bom em VB está é a meta vamos lá.

Kuroi, acho q, mais uma vez, me espressei errado. Olha só o código abaixo. CommandButton_Click() 'O controle que tem os dados é o DataGrid e logo depois vem o Controle q recebe os dados o MsFlexgrid, dessa forma cara, eu só consigo preencher uma linha do MsFlexgrid, e quando o usuário selecionar outra linha do DataGrid, ele vai subscrever a linha q acabou de preencher e a idéia é ele preencher a linha 2 MsFlexgrid ou não, ou seja, se o usuário quezer pegar outro dado do DataGrid, este botão teria que dár está possibilidade ao usuário, mais não estou conseguindo fazer com que este botão faça isso ? Será que estou indo pelo caminho certo ? Favor brother uma força. Dbgrid.Col (0) FrmCmp.MsFlexgrid.TextMatrix(1, 0) = Dbgrid.Texto Dbgrid.Col (1) FrmCmp.MsFlexgrid.TextMatrix(1 , 1) = Dbgrid.Texto Dbgrid.Col (3) FrmCmp.MsFlexgrid.TextMatrix(1, 2) = Dbgrid.Texto Dbgrid.Col (5) FrmCmp.MsFlexgrid.TextMatrix(1, 3) = Dbgrid.Texto Dbgrid.Col (7) FrmCmp.MsFlexgrid.TextMatrix(1, 4) = Dbgrid.Texto End Sub

Brother Kuroi, deculpa minha ignorância e mais uma vez valeu, vou testar da forma que você me orienta. B)

Amigo Kuroi, testei a instrução acima e realmente funciona, mais desculpa cara, eu me espressei errado. O q quero realmente é isso: Private Sub CommadButton_Click() 'Quero q este botão faça isto, quando o usuário selecionar uma linha do DBgrid 'e clicar no CommandButton, a primeira linha do Flexgrid é preenchida 'daí o usuário chama outra vez o Dbgrid e seleciona outra linha e clica no CommandButton outra vez 'daí a segunda linha do Flexgrid é preenchida e assim sucessivamente. End Sub É possível ? vou ser cincero brother não sei fazer isto. Valeu mais uma vez por sua atenção.

Galera bom dia, vou criando meu sistema e me deparo com mais um problema. Bom tenho um form com um Flexgrid e um CommandButton que chama um Dbgrid com um CommadButton para preencher as linhas e colunas do Flexgrid mais só consigo preencher uma linha com suas respectivas colunas. Agora como faço para preencher as demais linhas com suas respectivas colunas ? Quero dizer linha 2 , linha 3, linha 4... Exemplo: do botão Private Sub CommadButton_Click() Dbgrid.Col (0) Flexgrid.textmatrix(1,0) = Dbgrid.text Dbgrid.Col (0) Flexgrid.textmatrix(1,1) = Dbgrid.text End Sub Na verdade o q quero é preencher as outras linhas do flexgrid com os outros Produtos do Dbgrid, e não apenas um ? alguém pode me ajudar ? B)