Jump to content
Fórum Script Brasil

Leandro_Pirozzi

Membros
  • Content Count

    242
  • Joined

  • Last visited

Community Reputation

0 Neutro

About Leandro_Pirozzi

Perfil

  • Gender
    Male
  1. Obrigado por responder fulvio. Consegue me enviar por email essa dll? [email protected] obrigado
  2. 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!
  3. 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
  4. Acredito que seja isso: Adicionei um Timer Passei o Interval para 30000 Private Sub Timer1_Timer() call exibetarefas End Sub
  5. 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 = '" &
  6. 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 ga
  7. 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.
  8. 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.
  9. 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!!
  10. 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
  11. 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.
  12. Em Report/Edit Selection Formula/ Record. Não é ai?
  13. O que ele exibe é: The result of selection formula must be a boolean. E so tem a opção de OK.
  14. 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.
  15. 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!!!
×
×
  • Create New...