Leandro_Pirozzi

Obrigado por responder fulvio. Consegue me enviar por email essa dll? pir_le@hotmail.com obrigado

Galera bom dia! Gostaria de saber se existe a possibilidade de um sistema vb6 efetuar transformação de um arquivo XML para outros formatos HTML, XML mesmo. Obrigado!

Bom dia galera!! Seguinte gostaria de saber se posso utilizar a função Dir para verificar se o arquivo que o usuário anexou existe ou o caminho esta correto. Isso é possível? Estou usando assim: VALID = ValidEMail(txtemaildestino.Text) SMTP = poSendMail.Connect = True anexo = txtanexo.Text arquivo = Dir (anexo) 'Aqui o Dir não me retorna nada. Preciso saber se o caminho do anexo e o arquivo existem. If txtemaildestino.Text = Empty Then status = "não enviado" msg = "Não foi possível enviar e-mail, porque o campo de email do destinatário estava VAZIO." ElseIf anexo = txtanexo.Text Then status = "Enviado" msg = "E-mail enviado com sucesso!" ElseIf anexo <> txtanexo.Text Then status = "não enviado" msg = "Não foi possível enviar e-mail, porque o arquivo anexado não estava no local correto." End If Obrigado!!

Acredito que seja isso: Adicionei um Timer Passei o Interval para 30000 Private Sub Timer1_Timer() call exibetarefas End Sub

Galera bom dia. Tenho uma dúvida!!! É possível fazer com que uma procura(Select) seja efetuado a cada 30seg, 1minuto atualizando os dados em todas as estações de trabalho? obrigado. Por exemplo: chamar a função abaixo a cada 30seg ou 60seg. Function ExibeTarefas() Dim SQL As String Animation1.Visible = True Animation1.AutoPlay = True Animation1.Open App.Path & "\figuras\barra3.avi" SQL = "Select Equipe, Tarefa, Empresa, Contato, DataTarefa, Hora, Assessor From CONTATOS_AGENDA Where ASSESSOR = '" & Login & "' and DATATAREFA = '" & lblaniver.Caption & "' order by HORA" Set rsTarefas = New ADODB.Recordset rsTarefas.CursorLocation = adUseClient rsTarefas.Open SQL, gDB, adOpenDynamic Set Me.GridEX6.ADORecordset = rsTarefas If rsTarefas.EOF Then GridEX6.Visible = False Else GridEX6.Visible = True End If End Function

A unica coisa que mudou foi que ele ficou com uma virgula no fim. ---> 13.913.990, No caso no text ele não aceita nem "," nem "." somente numeros ai na hora de exibir ele coloca no formato de moeda. Mas o problema esta sendo quando depois da virgula o valor é diferente de ",00", ou seja quando o valor não é numero inteiro. exemplo a pessoa vai digitar 123456 porque ela não consegue separar por pontos nem por virgula. Ai no caso eu quero saber se tem como ele sempre por a "," antes dos 2 últimos digitados. No caso do exemplo ficaria assim 1.234,56. Ficou mais claro? obrigado. Seguinte galera a solução foi bem simples. Entrei nas propriedades do Text e verifiquei que na propriedade DataFormat tinha a opção de Currency, e lá ele exibe um exemplo no Format$. Utilizei o exemplo de format que ele exibiu e adaptei no código que ficou assim: txtcusto.Text = Format(txtcusto.Text, "#,##0.00;(#,##0.00)") Funcionou direitinho. Obrigado a todos.

A unica coisa que mudou foi que ele ficou com uma virgula no fim. ---> 13.913.990, No caso no text ele não aceita nem "," nem "." somente numeros ai na hora de exibir ele coloca no formato de moeda. Mas o problema esta sendo quando depois da virgula o valor é diferente de ",00", ou seja quando o valor não é numero inteiro. exemplo a pessoa vai digitar 123456 porque ela não consegue separar por pontos nem por virgula. Ai no caso eu quero saber se tem como ele sempre por a "," antes dos 2 últimos digitados. No caso do exemplo ficaria assim 1.234,56. Ficou mais claro? obrigado.

Olá galera. Minha dúvida é a seguinte: estou utilizando esse codigo para quando o usuário clicar no grid ele exibe no formato de moeda. ate ai tudo bem. O problema q estou encontrando é quando o usuario precisa digitar um valor com virgula quebrada por exemplo: 139.139,90. o codigo que estou utilizando para visualização é esse. txtcusto.Text = Format(txtcusto, "###,###,##0.00") Mas ai ele me exibe 13.913.990,00. No caso ele acrescenta ,00. tem como modificar isso? obrigado.

Kuroi falha minha. Eu tinha esquecido la no Report/Edit Selecion Formula/Record a formula. ai apaguei e foi de boa e resolveu meu problema. Ele fez a somatoria. Vlwwwww kuroi. quando eu crescer quero ser igual voce. muito obrigado!!

Galera. como faço para quando a pessoa tentar dividir por um valor = 0(zero) ele exibir uma msg de que não é possível. Ou sei la quando o primeiro caractere digitado for igual 0(zero) ele informa de que não e possivel dividir por zero(0). Isso eu to fazendo no Keypress, mas acho que não esta legal. Se alguém puder dar uma dica, agradeço. Obrigado!! Select Case KeyAscii Case 48 N = \\\"0\\\" Case 0 N = \\\"NULL\\\" Case 49 N = \\\"1\\\" Case 50 N = \\\"2\\\" Case 51 N = \\\"3\\\" Case 52 N = \\\"4\\\" Case 53 N = \\\"5\\\" Case 54 N = \\\"6\\\" Case 55 N = \\\"7\\\" Case 56 N = \\\"8\\\" Case 57 N = \\\"9\\\" End Select If N = Empty Then Controle = \\\"bloqueado\\\" txtcustoEC.Enabled = False MsgBox \\\"Impossivel dividir por zero!\\\" Call limpa_txtcustoqtdeEC Exit Sub ElseIf N <> Empty And N <> \\\"0\\\" Then Controle = \\\"liberado\\\" txtcustoEC.Enabled = True \\\' txtcustoqtdeEC.Text = txtcustoqtdeEC.Text End If

Aconteceu a mesma coisa. Ele deixou eu fazer o SUM e tals, mas exibiu a mesma msh de boolean. The result of selection formula must be a boolean.

Em Report/Edit Selection Formula/ Record. Não é ai?

O que ele exibe é: The result of selection formula must be a boolean. E so tem a opção de OK.

opa kuroi será que é assim? CDbl ({Testepro_ttx.CUSTO}) Mas ai quando salvo la no Ela da a msg: There is an error in this formula. Do you want to save it anyway? Ai quando faço o sum em cima desse campo formula ele da erro no vb. opa kuroi será que é assim? CDbl ({Testepro_ttx.CUSTO}) Mas ai quando salvo la no Ela da a msg: There is an error in this formula. Do you want to save it anyway? Ai quando faço o sum em cima desse campo formula ele da erro no vb.

Galera estou aqui mais uma vez... Minha dúvida é: É possível efetuar a SUM de um campo do tipo STRING?? Quando é NUMBER vai facinho. Será que existe alguma fórmula que faça isso? Pegar todos os valores no .rpt do campo por exemplo VALOR e na última página exibit a SOMATÓRIA do conteúdo do campo VALOR. Obrigado!!!