MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Validar PIS/PASEP

    wsenna
    wsenna
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 491
    Registrado : 21/12/2009

    Validar PIS/PASEP Empty Validar PIS/PASEP

    Mensagem  wsenna em 15/4/2014, 17:16

    Olá Amigos.

    Para validar um número de PIS/PASEP cole num módulo a função abaixo:

    Option Compare Database
    Public Function PISPASEP(numero As String)
    Dim ftap As String
    Dim Total As String
    Dim I As Integer
    Dim Resto As Integer

    If Val(numero) = 0 Or Len(numero) <> 11 Then
    PISPASEP = False
    Exit Function
    End If

    ftap = "3298765432"
    Total = 0

    For I = 1 To 10
    Total = Total + Val(Mid(numero, I, 1)) * Val(Mid(ftap, I, 1))
    Next I

    Resto = Int(Total Mod 11)

    If Resto <> 0 Then
    Resto = 11 - Resto
    End If

    If Resto <> Val(Mid(numero, 11, 1)) Then
    PISPASEP = False
    Exit Function
    End If

    PISPASEP = True

    End Function


    Depois no evento após atualiza do campo PIS ou PASEP insira o código abaixo:

    Private Sub PIS_AfterUpdate()
    If PISPASEP(PIS.Text) Then
    MsgBox "Número PIS/PASEP válido !", vbInformation, "PIS/PASEP"
    Else
    MsgBox "Número PIS/PASEP inválido !", vbInformation, "PIS/PASEP"
    End If
    End Sub



    Abraços, WSenna
    Fernando Bueno
    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2097
    Registrado : 12/04/2012

    Validar PIS/PASEP Empty Re: Validar PIS/PASEP

    Mensagem  Fernando Bueno em 15/4/2014, 20:01

    Obrigado pela contribuição WSenna, muito bom..


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    Validar PIS/PASEP 16rzeq

      Data/hora atual: 3/12/2020, 06:15