Almarante

Oi Pessoal alguém pode me postar um codigo onde eu possa dividir R$ 1.00 por 3, e apresentar os seguintes valores. EXP: TEXT1 = R$ 0,34 TEXT2 = R$ 0,33 TEXT3 = R$ 0,33 Desde já agradeço

Kuroi esse é o codigo que usso para preencher o listview quando estou digitando um pedido, mas não consigo faze-lo preencher o listview quando abro o form. Private Sub txtValUnitario_KeyPress(KeyAscii As Integer) Dim list As ListItem Dim total As Single Dim QTD As Single Dim ValUnit As Single Dim ValItem As Single '************************************************** If KeyAscii = vbKeyReturn Then If txtQuantidade.text = "" Then MsgBox "O Campo Está Vazio, Vacê deve digitar um valor", vbInformation, "Aviso" txtQuantidade.SetFocus ElseIf txtValUnitario.text = "" Then MsgBox "O Campo valor Unitário está vazio, você deve digitar um valor!", vbInformation, "Aviso" txtValUnitario.SetFocus Else txtValItem.text = 0 QTD = txtQuantidade.text ValUnit = txtValUnitario.text total = txtValItem.text '************************************************** total = QTD * ValUnit txtValItem.text = total '************************************************** Set list = lstItensNf.ListItems.Add(, , txtItem.text) list.Tag = txtItem.text list.SubItems(1) = txtCodProd.text list.SubItems(2) = txtDescricao.text list.SubItems(3) = txtUnidade.text list.SubItems(4) = txtQuantidade.text list.SubItems(5) = txtIndice.text list.SubItems(6) = txtValUnitario.text list.SubItems(6) = Format(CCur(txtValUnitario.text), "R$ #,##0.0000;(R$ #,##0.0000") list.SubItems(7) = txtValItem.text list.SubItems(7) = Format(CCur(txtValItem.text), "R$ #,##0.0000;(R$ #,##0.00") '************************************************** 'Esta Rotina soma o valor da Nota Fiscal txtValorDaNota.text = total + txtValorDaNota.text txtValorDaNota.text = Format(CCur(txtValorDaNota.text), "R$ #,##0.00") '******************************************************** 'Esta Rotina define o Valo do ICMS txtValorIcms.text = txtValorDaNota.text / 100 * txtICMS.text '************************************************************ 'Esta Rotina Grava Itens da Nota Fiscal txtItem.text = txtItem.text + 1 adoItensNF.Recordset.AddNew adoItensNF.Recordset("Item") = txtItem.text adoItensNF.Recordset("CodigodoProduto") = txtCodProd.text adoItensNF.Recordset("DescricaodoProduto") = txtDescricao.text adoItensNF.Recordset("Quantidade") = txtQuantidade.text adoItensNF.Recordset("ValorUnitario") = txtValUnitario.text adoItensNF.Recordset("ValordoItem") = txtValItem.text adoItensNF.Recordset("Unidade") = txtUnidade.text adoItensNF.Recordset("Parametro") = txtIndice.text adoItensNF.Recordset("Documento") = txtnumeronota.text adoItensNF.Recordset.Update adoItensNF.Recordset.MoveNext adoItensNF.Recordset.MovePrevious '*********************************************************** Call Indice Me.Text2.text = TotalIndice Text2.text = Format(Format(Text2.text, "###,###.00"), "@@@@@@@@@@") '******************************************************* Me.txtQuantidade.text = "" Me.txtValUnitario.text = "" txtCodProd.text = "" txtDescricao.text = "" txtUnidade.text = "" txtIndice.text = "" txtValItem.text = "" Me.txtCodProd.SetFocus End If End If End Sub

Oi pessoal preciso de ajuda. Estou fazendo um sistema de pedidos e os produtos deste pedido são mostrados em um listview, enquanto lanço tudo bem os produtos são carregados na listview e salvos na tabela ItensDoPedido. Porem quando abro o form a listview está vazia, gostaria que ela viesse com os itens do pedido corespondente e que quando passace para outro registro troucesse os itens do mesmo. alguém pode me ajudar? Copiei o exemplo do nosso amigo Andeson que está na página 2 do tópico listview, mas deu erro " ERRO DE CONEXAO COM BANCO DE DADOS" PROSEGUE E GERA OUTRO ERRO " ERRO DE COMPILAÇÃO" " MÉTODO OU MEMBRO DE DADOS NÃO ENCOTRADO" " ADDITEM " APARECE COM CAUSADOR DO ERRO.

OI PESSOAL ESTOU PRECISANDO DE AJUDA. EU PRECISO CRIAR UMA PESQUISA EM BANCO DE DADOS dbf E TRAZER ALGUNS DADOS DE UM ARQUIVO PARA UM FORMULÁRIO CRIADO EM ¨VB6 E DEPOIS SALVAR ESSES DADOS EM UM BANCO ACSSES. A UNICA COISA QUE EU SEI FAZER É SALVAR OS DADOS EM BANCO ACSSES. DESDE JÁ AGRADEÇO

Olá Galera estou novamente precisando de ajuda Estou exibindo dados de uma tabela em um datagrid, fiz uma rotina de pesquisa e dois botões, um é o Próximo e o outro Anterior então tenho dois problema, Primeiro: quando pesquiso um registro diferente do especificado na condição IF e o regitro não existe ele gera um erro. Segundo: quando é digitado tudo igual o registro é localzado, porem quando clico no botão Próximo para ele pular para o próximo regitro do mesmo Clinte por exemplo ele não faz isso, ele simplemente pula um a um . esses são os dois Codigos. Private Sub cmdlocalizar_Click() Adobaixas.Recordset.Find (cboParametro.text & "='" & txtPesquisa.text & "'") If Adobaixas.Recordset("Documento") = "" Then MsgBox "Registro não encontrado", vbInformation, "Aviso" txtPesquisa.text = "" txtPesquisa.SetFocus End If End Sub Na cboParametro eu Escolho entre: Documento Cliente Vencimento Private Sub cmdProximo_Click() ' Move para o próximo registro na tabela de Baixas ' E verifica se terminaram os regitros, dando uma mensagem If Not Adobaixas.Recordset.EOF Then Adobaixas.Recordset.MoveNext Else MsgBox "Fim dos Registros", vbInformation, "Aviso" End If End Sub

Valeu Macêdo, Funcionou Obrigado

Olá Galera Preciso de mas essa Ajuda se for possível estou usando o comando filter do data environment para filtrar alguns dados como data inicial e data final entre outros. Mas tem um caso de uma tabela que o campo chama-se Documento nese campo eu tenho documentos por exemplo, 1000/A, 1000/B, 1000/C e 1000/D e 1000/1, 1000/2, 1000/3 e 1000/4 eu preciso criar um retório onde eu filtre só os documentos que contenham Letras após a barra e outro que contenham números após a barra. abaixo está a linha do filtros onde ele tras todos no intervalo de data desejado, a parte comentada e o que tentei fazer mas não deu certo. Agrupamentos.rsNumerosDoc2_Grouping.Filter = "Vencimento>= '" & Datainicial & "' and Vencimento<= '" & Datafinal & "'and Status = '" & txtAberto.text & "'" 'and Documento ='" & txtDoc & "'" Espero que alguém possa me ajudar Obrigado

Olá Galera, Preciso de Ajauda para Atulizar os Registros dos Relatórios Criei um comando com o data environment e linkei o meu Banco de Dados apartir dai criei todos relatórios que precisei, mas quando estou usando o sistema inserindo novos dados, para que eles apareçam nos relatórios preciso fechar o sistema e abri-lo novamente. O que devo fazer para que ele atualize sem precizar fechar e abrir novamente. Desde já Agradeço

Oi Galera Boa Noite, Eu Preciso enviar alguns de meus relatórios por e-mail, o Data Report só dar duas opções, Texto e HTML os relatórios ficam desconfigurados. É possível exportar para WORD? alguém pode me ajudar?

Descupe-me Kuroi eu esqueci de escrever end sub no form. o espaço que eu deixo entre o inicio do tratamento e o exit sub seria a rotina para salvar os dados.

Oi Galera estou precisando de ajuda. Copie um exeplo de tratamento de erro e tentei aplicar no meu projeto. Quando abro o form onde está essa rotina ele seleciona a linha em negrito e dá uma mensagem de objeto requerido. o codigo é o seguinte: Option Explicit Dim db As Database Dim rs As Recordset Dim dbname As String Private Sub Form Load() dbname = App.Path & "\ Banco.mdb" Set db = DBEngine.Workspaces(0).OpenDatabase(dbname) Set rs = DB.OpenRecordset("erro") Private Sub CmdSalvar_Click() On Error GoTo trata Exit Sub trata: If Err.Number = 3022 Then MsgBox "Número de Nota Já Existe!", vbInformation, "Atenção" txtNumeroNota.text = "" txtNumeroNota.Setfocus Resume Next End if End Sub

Oi Pessoal Eu denovo, Eu tenho um relatório de comissão onde eu o período a ser impresso, até ai tudo bem, só que eu também precido filtrar vendedor, como eu faço iso? o codigo que estou usando para datas é esse. Agrupamentos.rsComissao.Filter = "DataPagamento>= '" & Datainicial & "' and DataPagamento <= '" & Datafinal & "'"

Valeu Macêdo Deu Certo, Obrigado

Olá pessoal, Boa Noite Eu tenho um relatório que eu filtro por intervalo de datas, que são informada em duas textbox no form, eu preciso que essas data apareçam na sessão REPORT HEADER(SECTION4 do relatório em duas rptlabel. Alguém pode me ajudar? Desde já Agradeço. Almarante

Kuroi em primeiro lugar obrigado por responder. esta linha de codigo eu copiei de uma outra resposta no forum, eu não sei o que é periodo, mas se eu tirar dá erro assim como tambem não sei o que significa &Chr(34)&, se você poder me ensinar o que digitar após o RepleceSelectionFormula eu fico muito grato. O banco de dados é em acsses, nome é cadcheque, tabela NumerosDoc, campo Vencimento. Obrigado Almarante

Boa Noite Pessal, estou agardando uma ajuda para a minha duvida. Agradeço desde já Almarante <_<

Oi Galera Preciso muito de ajuda. Estou fazendo um sistema de contas a receber no VB6.0 para uso pessual, e agora preciso gerar os retatórios, mas não manjo quase nada. Ai vai o codigo que estou usando, ele traz o relatório vazio, mais se eu comento a linha da formula da data ele me traz todos os dados. Moro na região de Campinas S.P, Quem puder me indicar um curso de Crystal Report eu fico muito grato. Private Sub Command1_Click() Dim selecao As String Dim dataok As String Dim criterio1 As String Dim criterio2 As String Dim anoi As Integer Dim mesi As Integer Dim diai As Integer Dim anof As Integer Dim mesf As Integer Dim diaf As Integer Dim Data1 As String Dim Data2 As String Dim periodo As String anoi = Year(txtdatainicial.Text) mesi = Month(txtdatainicial.Text) diai = Day(txtdatainicial.Text) anof = Year(txtdatafinal.Text) mesf = Month(txtdatafinal.Text) diaf = Day(txtdatafinal.Text) criterio1 = txtdatainicial.Text criterio2 = txtdatafinal.Text 'criterio1 = "" 'criterio2 = "" Data1 = anoi & "/" & mesi & "/" & diai Data2 = anof & "/" & mesf & "/" & diaf criterio1 = "date(" & anoi & "," & mesi & "," & diai & ")" criterio2 = "date(" & anof & "," & mesf & "," & diaf & ")" Me.CrystalReport1.DataFiles(0) = App.Path & "\cadcheque.mdb" dataok = Data1 & " - " & Data2 'Me.CrystalReport1.DataFiles(0) = App.Path & "\cadcheque.mdb" Me.CrystalReport1.ReportFileName = Me.cboRelatorios.Text Me.CrystalReport1.SortFields(0) = "+{NumerosDoc.Vencimento}" Me.CrystalReport1.ReplaceSelectionFormula "periodo= " & Chr(34) & dataok & Chr(34) = "{NumerosDoc.Vencimento}>=" & criterio1 & " AND " & "{NumerosDoc.Vencimento}<=" & criterio2 Me.CrystalReport1.WindowState = crptMaximized Me.CrystalReport1.Destination = 0 Me.CrystalReport1.Action = 1 End Sub Obrigado Almarante