Validação De Pis

[BRUCCE]

beleza Galera!

Consegui a Função abaixo para realizar validação de CPF, ela esta funcionando corretamente, já testei, só tem um probleminha, quando o número do PIS/PASEP é digitado errado, simplesmente aparece uma mensagem de erro, informando que o numero esta incorreto, e pulando p/ o proximo campo. Queria que fosse assim: Ao digitar um número incorreto de PIS, o sistema emita a mensagem de erro mas que não vá p/ o proximo campo.

Obrigado!

Option Compare Database

Option Explicit

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

[MrMALJ]

Cara quando quero manter o foco no objeto, eu sempre faço a validação na propriedade de "Ao receber foco" do proximo objeto, mostro a mensagem e retorno o foco.

[BRUCCE]

Bom dia Malj!

Coloquei o EVENTO AO RECEBER FOCO, mas ficou do mesmo jeito, porém consegui ajeitar aqui, e ficou assim, Se for digitado um número incorreto de PIS, o sistema apresente a mensagem de Erro, e ao clicar em OK, "ele" apaga o n.º incorreto e pula p/ o proximo campo!

Daki a pouco vou postar a Função como fiz, caso alguém precise, é so pegar.!

Valeu,

Gde Abraço!

Jefferson

Cara quando quero manter o foco no objeto, eu sempre faço a validação na propriedade de "Ao receber foco" do proximo objeto, mostro a mensagem e retorno o foco.