PROBLEMAS AO MOSTRAR DADOS

SACOFRITO 01/07/2010 12:42:57
#346262
Boa tarde pessoal
to com um problema estranho aqui
Trocamos o cadastro de clientes de um cliente aqui, mas agr esta dando erros ao mostrar os dados
A principio, ele reclamou que ao cadastrar um novo cliente, apos inserir o numero de telefone, gravava normal, e depois ficava mostrando em todos os outros o numero daquele q foi cadastrado, sendo q no banco os numeros estao normais.

Certo, o problema é na funçao mostra,
ela só nao dava erro pq tinha um [Ô]on error resume next[Ô] q pulava a linha do erro
tirei ele pra poder identificar ql o erro
vou postar o código da funçao para q vcs vejam

Senao me engano está no format,

O erro q exibe é invalid property value

If DS!telefone = Null Or DS!telefone = [Ô][Ô] Then
Text9 = [Ô](__) ____-____[Ô]
Else
Text9 = Format(DS!telefone, [Ô](##) ####-####[Ô]) ---- da erro aqui pois o campo nao é nulo
End If


Alguem pode me ajudar, por favor?


Obrigado
MARCELO.TREZE 01/07/2010 13:21:11
#346271
como o dado está sendo apresentado no campo?
SACOFRITO 01/07/2010 13:24:46
#346272
(12) 36811811 - desse jeito
ELMO01 01/07/2010 14:27:43
#346282
Ai tenta com MASKEDIT,

faça assim:

NOMEVARIAVEL.MASK=[Ô](##) ####-####[Ô]
NOMEVARIAVEL.TEXT=[Ô](__) ____-____[Ô]

Talvez isto o ajude
SACOFRITO 01/07/2010 14:52:47
#346291
Ja consegui.
Amigo da empresa me ajudou, ele lembrou deuma funçao em outro programa pra tirar a máscara....
E tivemo q fazer varias alteraçoes no código

Trecho do código :


If DS!CEP = [Ô][Ô] Or IsNull(DS!CEP) Then
Text7 = [Ô]_____-___[Ô]
Else
z = pf_RetiraMascara(DS!CEP)
If Len(z) = 8 Then
Text7 = Format(z, [Ô]#####-###[Ô])
Else
Text7 = [Ô]_____-___[Ô]
End If
End If

If IsNull(DS!telefone) Or DS!telefone = [Ô][Ô] Then
Text9 = [Ô](__) ____-____[Ô]
Else
z = pf_RetiraMascara(DS!telefone)
tamanho = Len(z)
If Len(z) = 10 Then
Text9 = Format(z, [Ô](##) ####-####[Ô])
Else
Text9 = [Ô](__) ____-____[Ô]
End If
End If
Tópico encerrado , respostas não são mais permitidas
Voltar