FORMATAT CNPJ QUANDO CARREGAR TELA

USUARIO.EXCLUIDOS 19/04/2007 14:26:08
#212757
olha eu tenho o cnpj assim no banco: 11111111111180

aí quando eu carrego a tela deve vir formatado .entção fiz isso:

ctlPrincipalPFJ.objTxtCNPJ_CPF.Texto = format(SQLPegaColDbl(Rs!CNPJ_CPF), "@@.@@@.@@@/@@@@-@@")

e naum formata. pq?
USUARIO.EXCLUIDOS 19/04/2007 14:56:04
#212777 Resposta escolhida
Olha, fiz este teste aqui e funcionou perfeitamente:

Private Sub Form_Load()
    Dim CNPJ As String
    
    CNPJ = "11111111111180"
    
    MsgBox Format(CNPJ, "@@.@@@.@@@/@@@@-@@")
End Sub


Que objeto é este que vc está colocando o CNPJ??
o que vem do banco realmewnte é 11111111111180??
USUARIO.EXCLUIDOS 19/04/2007 14:58:03
#212779
CNPJCPF = Trim(ctlPrincipalPFJ.objTxtCNPJ_CPF.Texto)
If Len(CNPJCPF) = 14 Then
ctlPrincipalPFJ.objTxtCNPJ_CPF.Texto = Left(CNPJCPF, 2) & "." & Mid(CNPJCPF, 1, 3) & "." & Mid(CNPJCPF, 6, 3) & "/" & Mid(CNPJCPF, 9, 4) & "-" & Right(CNPJCPF, 2)
ElseIf Len(CNPJCPF) = 11 Then
Label1.Caption = Left(CNPJCPF, 3) & "." & Mid(CNPJCPF, 4, 3) & "." & Mid(CNPJCPF, 7, 3) & "-" & Right(CNPJCPF, 2)
End If

Ou

CNPJCPF = Trim(ctlPrincipalPFJ.objTxtCNPJ_CPF.Texto)
If Len(CNPJCPF) = 14 Then
ctlPrincipalPFJ.objTxtCNPJ_CPF.Texto = Format(CNPJCPF, "@@.@@@.@@@/@@@@-@@")
ElseIf Len(Text1.Text) = 11 Then
ctlPrincipalPFJ.objTxtCNPJ_CPF.Texto = Format(CNPJCPF, "@@@.@@@.@@@-@@")
End If
USUARIO.EXCLUIDOS 19/04/2007 15:34:41
#212794
vlw
Tópico encerrado , respostas não são mais permitidas
Voltar