[Resolvido]validar cnpj

Tenho o codigo para validar cpf, não consigo validar cnpj .
Vc tem o codigo de validação de cnpj?

Ola

Talvez estes exemplos ajudem:

http://maximoaccess.forumeiros.com/t1040-valida-cpf-e-cnpj-no-mesmo-campo

http://maximoaccess.forumeiros.com/t88-resolvido-como-valido-cpf-e-cnpj-em-vba-no-access

Boa noite!!!!

O código de validação cpf cnpj consegui pegar, porém, quando fui pegar o modelo de mascara para cpf e cnpj no mesmo campo, deu um erro depois do download. Diz: erro no pdf pode ter ocasionado por ter recebido via mail e não ficou completo

Talvez algum pequeno corte na conexão, no momento do download, tenha causado isso. Tente baixar novamente. Se ainda der erro, tente por outro browser. Muitas das vezes consegue-se resolver assim.

continua erro.

Se está falando do segundo link postado nesse tópico, você percebeu que tem o link novamente na penúltima mensagem? Aqui funciona normal.

digo, o primero link que fala da mascara cpf cnpj.

coloquei o codigo abaixo no controle cpf_cnpj. deu um erro , não consegui .
Como devo utilizar este codigo?
Grato pela atenção

'Calcula os dígitos verificadores do CNPJ
Dim I As Integer
Dim intFator As Integer
Dim intTotal As Integer
Dim intResto

'Verifica se tem 12 ou 14 dígitos
If Not (Len(CNPJ) = 12 Or Len(CNPJ) = 14) Then
Exit Function
Else
'Verifica se é numérico
If Not IsNumeric(CNPJ) Then
Exit Function
Else
'Trunca o CNPJ em 12 caracteres
CNPJ = Left$(CNPJ, 12)
End If
End If

Inicio:
'Percorre as colunas (de trás para frente),
'multiplicando por seus respectivos fatores
intFator = 2
intTotal = 0
For I = Len(CNPJ) To 1 Step -1
If intFator > 9 Then intFator = 2
intTotal = intTotal + ((CInt(Mid(CNPJ, I, 1)) * intFator))
intFator = intFator + 1
Next I

'Obtém o resto da divisão por 11
I = intTotal Mod 11
'Subtrai 11 do resto
I = 11 - I
'O dígito verificador é i
If I = 10 Or I = 11 Then I = 0
'Concatena ao CNPJ
CNPJ = CNPJ & CStr(I)

If Len(CNPJ) = 13 Then
'Calcula o segundo dígito
GoTo Inicio
End If

'Retorna os dígitos verificadores
fDigCNPJ = Right$(CNPJ, 2)
End Function

Public Function fDigCPF(CPF As String) As String
'Calcula os dígitos verificadores do CPF
Dim I As Integer
Dim intFator As Integer
Dim intTotal As Integer
Dim intResto

'Verifica se tem 9 ou 11 dígitos
If Not (Len(CPF) = 9 Or Len(CPF) = 11) Then
Exit Function
Else
'Verifica se é numérico
If Not IsNumeric(CPF) Then
Exit Function
Else
'Trunca o CPF em 9 caracteres
CPF = Left$(CPF, 9)
End If
End If

Inicio:
'Percorre as colunas (de trás para frente),
'multiplicando por seus respectivos fatores
intFator = 2
intTotal = 0
For I = Len(CPF) To 1 Step -1
intTotal = intTotal + ((CInt(Mid(CPF, I, 1)) * intFator))
intFator = intFator + 1
Next I

'Obtém o resto da divisão por 11
I = intTotal Mod 11
'Subtrai 11 do resto
I = 11 - I
'O dígito verificador é i
If I = 10 Or I = 11 Then I = 0
'Concatena ao CPF
CPF = CPF & CStr(I)

If Len(CPF) = 10 Then
'Calcula o segundo dígito
GoTo Inicio
End If

'Retorna os dígitos verificadores
fDigCPF = Right$(CPF, 2)
End Function

Public Function fCNPJ(CNPJ As String) As Boolean
'Verifica se o CNPJ é válido
Dim strChar As String

'Verifica se tem 14 caracteres
If Not Len(CNPJ) = 14 Then
fCNPJ = False
Exit Function
End If

'Verifica se o dígito verificador confere
strChar = Mid$(CNPJ, 13, 2)
If fDigCNPJ(CNPJ) = strChar Then
fCNPJ = True
Else
fCNPJ = False
End If
End Function

Public Function fCPF(CPF As String) As Boolean
'Verifica se o CPF é válido
Dim strChar As String

'Verifica se tem 11 caracteres
If Not Len(CPF) = 11 Then
fCPF = False
Exit Function
End If

'Verifica se o dígito verificador confere
strChar = Mid$(CPF, 10, 2)
If fDigCPF(CPF) = strChar Then
fCPF = True
Else
fCPF = False
End If
End Function

Não tendo havido continuidade do assunto, passa a Resolvido