Ir para conteúdo
Fórum Script Brasil

jooey

Membros
  • Total de itens

    38
  • Registro em

  • Última visita

Posts postados por jooey

  1. então..

    eu resolvi mais d uma forma meio tosca.

    instalei o crystal na maquina do cliente, ai ele criou uma pasta chamada Crystal dentro da pasta do Windows com as .dll que precisavam..

    o engraçado é que se você cola as dll na pasta system32 a função aparece mais não funciona.e não da pra registrar.

  2. Bom dia pessoal....

    na opção "Export" de um relatório que fiz, não aparece as opções para salvar em Acrobat ou HTML.

    Alguém sabe me dizer o que é necessário para essas´opções aparecerem?

    obrigado desde já

    abraços

  3. alguém pode me passar um programa para revelar a senha do banco de dados.

    Todos os que eu achei na net não liberam até o numero de digitos da senha do banco.

    Se puderem responder..

    preciso abrir este banco urgentemente pra o meu cliente.

    Obg desde já.

  4. desculpa velho..

    me expressei mal..

    o problema que eu tenho e a ordenação dos codigos ,pois eles estão numa tabela alpha, porem só possuem numeros..

    entendeu..

    ai o programa ordena tdo em ordem "alfabetica". Ex: 100 é menor que 99.

    ele deixa o 100 no começo da tabela e 99 por ultimo.

  5. Eae galera...

    em um programa que estou desenvolvendo tive que alterar o campo de codigo que era numerico, para que ele pudesse aceitar letras neste campo.

    O problema é que agora ele esta gerando os codigo de acordo com o ultimo regitro(o que já estava sendo feito), porém agora os registros estão em ordem alfabética e não numerica, logo ele esta gerando sempre um numero que segue do ultimo registro que inicie com 9.

    Como faço para quando o programa for criar o codigo automaticamente ele leia o maior numero e não o ultimo numero em um campo alpha?

    obrigado..

    boa tarde

  6. Boa tarde pessoal

    aqui estou eu d novo enchendo o saco da galera

    x]

    é o seguinte.

    em alguns clientes em que instalo o meu software a aparece o erro 13 typemismatch

    o engraçado é que não a comparação errada de tabelas

    porque o erro sé acontece em algumas maquinas sendo que rodo o mesmo pacote d instalação

    sera que esta faltando alguma ODBC ou coisa do genero?

    vlw desde agora

    abraços

  7. Bom William..

    eu usei o exemplo do kuroi...

    na verdade porque quando eu usava o seu modelo

    Dim x() As String
    Do While Not Itens_do_orcamento_de_fab.EOF
       If InStr(Itens_do_orcamento_de_fab!Descrição1, "/") = 0 Then
    
          GoTo Leroutro
    
       Else
          x = Split(Itens_do_orcamento_de_fab!Descrição1, "/")
    
          For i = LBound(x) To UBound(x)
                MsgBox "Codgio" & v(i)
    
       End If

    dava erro

    Compile error:

    Variable not defined

    no For i...pra ser mais exato no "i"

    bom d qualquer maneira já resolvi o problema

    falou pela força d tdo mundo

    abraços

  8. vlw.

    era isso mesmo..

    o primeiro registr tava vazio..

    agora pra mim joga nos campos seria mais ou menos assim?

    Dim x() As String
    Do While Not Itens_do_orcamento_de_fab.EOF
       If InStr(Itens_do_orcamento_de_fab!Descrição1, "/") = 0 Then
          MsgBox "O conteudo do campo é" & Itens_do_orcamento_de_fab!Descrição1
       Else
          x = split(Itens_do_orcamento_de_fab!Descrição1, "/")
    
          Pecas.Addnew
          Pecas![Codigo peca] = x(1)
          Pecas![Descrição peça] = x(0)
          Pecas.Update
       End If

    certo?

  9. ok, ficou assim agora

    Dim x() As String
    Do While Not Itens_do_orcamento_de_fab.EOF
       If InStr(Itens_do_orcamento_de_fab!Descrição1, "/") = 0 Then
          MsgBox "O conteudo do campo é" & Itens_do_orcamento_de_fab!Descrição1
       Else
          x = split(Itens_do_orcamento_de_fab!Descrição1, "/")
    
          MsgBox "Descrição" & x(0)
          MsgBox "Codigo" & x(1)
       End If
    
    

    agora compile normal.

    mas na hora de roda da o erro

    run timr error '94:

    Invalid use of Null

    :(

  10. Kuroi, tentei fazer o codigo que você me passou e deu erro..

    vê se está certo o jeito que eu to fazendo:

    Dim x As String
    Do While Not Itens_do_orcamento_de_fab.EOF
       If InStr(Itens_do_orcamento_de_fab!Descrição1, "/") = 0 Then
          MsgBox "O conteudo do campo é" & Itens_do_orcamento_de_fab!Descrição1
       Else
          x = Split(Itens_do_orcamento_de_fab!Descrição1, "/")
    
          MsgBox "Descrição" & x(0)
          MsgBox "Codigo" & x(1)
       End If

    o erro que da é no "MsgBox "Descrição" & x(0)" pra ser mais exato no x

    Compile error:

    Expected array

    Clicando no ajudae ele fala:

    The MSDN collection does not exist.Please reinstall MSDN.

    :blink:

    disculpa fik enchendo o saco.

    é que eu preciso disso urgente e so iniciante no VB

    vlw...ateh+

  11. Eae Wiiliam,

    meu...minha duvida é o seguinte...

    antes da / esta a descrição da peça... e depois esta o codigo...

    eu preciso searar estes dados para joga-los em tabelas diferentes...

    como ficaria..eu tenho uma ideia do codigo mais num está dando certo..

    Como eu faço pra dividir este dados e joga-los no campo referente somente os dados que eu quero?

    falou....teh+

×
×
  • Criar Novo...