USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  coisa basica.. que vergonha
arm.g
Pontos: 2843
SÃO PAULO
SP - BRASIL
Postada em 01/07/2004 16:12 hs            
o erro que da é o seguinte
compile error: sub or function not defined
 
o erro na no pmask da linha vermelha
 
If Len(codseg) < 1 Then
Exit Sub
End If
codseg = pmask(3, codseg)
If PESQ_CODseg(codseg) = True Then
If Not IsNull(tseg("segmento")) Then
    segmento = tseg("segmento")
End If
Incluir.Enabled = False
Else
Alterar.Enabled = False
excluir.Enabled = False
End If
End Sub
 
agradeço desde jah
um abraço a todos
     
†DarkNeo†
SÃO BERNARDO DO CAMPO
SP - BRASIL
Postada em 01/07/2004 16:15 hs            
o erro quer dizer que essa tal de pmask que vc citou!! não foi declarado em lugar algum!!

DarkNeo
     
arm.g
Pontos: 2843
SÃO PAULO
SP - BRASIL
Postada em 01/07/2004 16:27 hs            
e como declaro?
     
†DarkNeo†
SÃO BERNARDO DO CAMPO
SP - BRASIL
Postada em 01/07/2004 16:32 hs            
Pera mas de onde vc tirar essa função? Não foi vc que elaborou o código? Se foi, então diga o que esta função pmask deve retornar???
 
Ex. função:
 
private function PMask(Param1%,Param2%) as integer
 
"código da função"
 
pmask=x
end function

DarkNeo
     
WaldirJr
POÇOS DE CALDAS
MG - BRASIL
Postada em 01/07/2004 16:36 hs            

da maneira que esta escrita, pmask é uma função.Vc deveria ter em sua biblioteca de funções.se não tem, pode ser que seja uma DLL que vc não declarou no Modulo.O que era p/ essa função fazer? talvez dá pra fazer ela de novo.

--------------

PS.: para DarkNeo - vc encerrou o outro post e não deu p/ falar lá

É Waldir, com W Emoções


________________________

Té +

Que NIMB role bons Dados! Emoções

     
arm.g
Pontos: 2843
SÃO PAULO
SP - BRASIL
Postada em 01/07/2004 16:56 hs            
bom é para quando gerar um novo codigo em vez dele aparecer codigo 2, e mostra assim 002, 003 assim por diante
     
Página(s): 1/2      PRÓXIMA »


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2026   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página