BRUCCE

Hum, segue abaixo a função p/ validação (ela esta em um módulo) Quanto aquele erro de Execução, já fiz o que você falou, deu certo, Obrigado Function v_CPF(CPF As String) As String Dim lngSoma, lngInteiro As Long Dim intNumero, intMais, i, intResto As Integer Dim intDig1, intDig2 As Integer Dim strDigVer, strcampo, strCaracter, StrConf As String Dim dblDivisao As Double lngSoma = 0 intNumero = 0 intMais = 0 strcampo = Left(CPF, 9) strDigVer = Right(CPF, 2) For i = 2 To 10 strCaracter = Right(strcampo, i - 1) intNumero = Left(strCaracter, 1) intMais = intNumero * i lngSoma = lngSoma + intMais Next i dblDivisao = lngSoma / 11 lngInteiro = Int(dblDivisao) * 11 intResto = lngSoma - lngInteiro If intResto = 0 Or intResto = 1 Then intDig1 = 0 Else intDig1 = 11 - intResto End If strcampo = strcampo & intDig1 lngSoma = 0 intNumero = 0 intMais = 0 For i = 2 To 11 strCaracter = Right(strcampo, i - 1) intNumero = Left(strCaracter, 1) intMais = intNumero * i lngSoma = lngSoma + intMais Next i dblDivisao = lngSoma / 11 lngInteiro = Int(dblDivisao) * 11 intResto = lngSoma - lngInteiro If intResto = 0 Or intResto = 1 Then intDig2 = 0 Else intDig2 = 11 - intResto End If StrConf = intDig1 & intDig2 v_CPF = StrConf 'If dvcpf = strDigVer Then Rem 999.999.999-99 'CPF = Mid(CPF, 1, 3) & "." & Mid(CPF, 4, 6) & "." & Mid(CPF, 7, 9) & "-" & Right(CGC, 2) 'dvcpf = CPF If v_CPF <> strDigVer Then 'Else MsgBox "CPF inválido", vbCritical DoCmd.CancelEvent 'MsgBox "CPF válido!", vbInformation 'Else End If End Function

MrMajl, Humm, Bom dia! Coloquei as funcões assim? (Evento Antes de Atualizar)Private Sub CPF_AfterUpdate() If Not IsNull(Me.CPF) Then v_CPF (Me.CPF) End If End Sub (Evento Após Atualizar) Private Sub CPF_BeforeUpdate(Cancel As Integer) v_CPF (Me.CPF) End Sub Agora quando eu digito um número de CPF invalido, o sistema não aceita e não pula p/ o proximo campos, porém se eu apago o numero digitado, ele da o mesmo ERRO EM TEMPO DEEXECUÇÃO '94' Uso de "Null" Inválido, como posso resolver isso.... Ah, como posso implancar a Função UNDO Obrigado!

Bom dia! Essa pergunta, especialmente vai para o MrMajl, pois foi ele que me ajudou a configurar. MrMarjl, a formula p/ Validação de CPF, consegui implantar ontem, da maneira que você havia dito. Mas estou com o seguinte problema. quando digito um numero invalido de CPF, aparece a notifivação: CPF INVALIDO, mas ele inclui normalmente no campo. quando APAGO o numero incorreto, e quero deixar o campo em BRANCO, aparece a mensagem: ERRO EM TEMPO DE EXECUÇÃO '94' Uso de "Null" Inválido O que posso fazer para acertar isso? P.S: Obrigado por todas as dicas que você me fornece até hoje! Estou aprendendo muito, não só com você, mas com todos do fórum.! Abçs

Bom dia, Humm! Desculpe-me a ignorância, mais sou novato, não entendi... Os nivel de acesso são, ADM e Usuários No meu BD, uso a seguinte formula: Else If formSelecionado = "SEUFORM" And Me.xxx <> "Administrador" Then MsgBox "Desculpe, você não tem acesso a esse procedimento!", vbOKOnly + vbInformation Else frameMain.SourceObject = formSelecionado labTitulo.Caption = rotuloForm Ex. Quero que no FORM "XX" os Usuários consigam consultar as Informações, mas que não consiga Adicionar, Excluir ou ALterar. Se você preferir, posso enviar-lhe uma cópia do meu BD.. Abçs! Valeu

Grande Mr Majl! Valeu, deu acerto agora. Obrigado!

boa tarde, Mr Majl Fiz o seguinte com a Validação de CPF, 1º criei um Módulo e dei o nome de dvcpf; 2º No evento APÓS ATUALIZA, do campo CPF, criei um Código que ficou assim: Private Sub CPF_AfterUpdate() dvcpf (Me.CPF) End Sub Mas quando digito o numero do CPF, aparece a seguinte mensagem: ERRO DE COMPILAÇÃO: ERA ESPERADA VARIAVEL OU PROCEDIMENTO, NÃO MÓDULO.

Bom dia, Galara! Consegui aqui no forum, uma formula para validação de CPF, porém quando tento implata-la no meu BC, da erro. Não sei se estou colocando no lugar certo. Vou no evento, APOS ATUALIZAR, na propriedade do campo CPF e insiro a seguinte formula: alguém me diga se estou fazendo correto, por favor! Function dvcpf(CPF As String) As String Dim lngSoma, lngInteiro As Long Dim intNumero, intMais, i, intResto As Integer Dim intDig1, intDig2 As Integer Dim strDigVer, strcampo, strCaracter, StrConf As String Dim dblDivisao As Double lngSoma = 0 intNumero = 0 intMais = 0 strcampo = Left(CPF, 9) strDigVer = Right(CPF, 2) For i = 2 To 10 strCaracter = Right(strcampo, i - 1) intNumero = Left(strCaracter, 1) intMais = intNumero * i lngSoma = lngSoma + intMais Next i dblDivisao = lngSoma / 11 lngInteiro = Int(dblDivisao) * 11 intResto = lngSoma - lngInteiro If intResto = 0 Or intResto = 1 Then intDig1 = 0 Else intDig1 = 11 - intResto End If strcampo = strcampo & intDig1 lngSoma = 0 intNumero = 0 intMais = 0 For i = 2 To 11 strCaracter = Right(strcampo, i - 1) intNumero = Left(strCaracter, 1) intMais = intNumero * i lngSoma = lngSoma + intMais Next i dblDivisao = lngSoma / 11 lngInteiro = Int(dblDivisao) * 11 intResto = lngSoma - lngInteiro If intResto = 0 Or intResto = 1 Then intDig2 = 0 Else intDig2 = 11 - intResto End If StrConf = intDig1 & intDig2 dvcpf = StrConf 'If dvcpf = strDigVer Then Rem 999.999.999-99 'CPF = Mid(CPF, 1, 3) & "." & Mid(CPF, 4, 6) & "." & Mid(CPF, 7, 9) & "-" & Right(CGC, 2) 'dvcpf = CPF If dvcpf <> strDigVer Then 'Else MsgBox "CPF inválido", vbCritical DoCmd.CancelEvent 'MsgBox "CPF válido!", vbInformation 'Else End If End Function

Bom dia MrMajl, Voce pode me explicar como implatar a Função rtrim(), nunca soube dessa. Obrigado!

MrMajl, O meu sistema de login é baseado num formulario, onde eu cadastro os usuário, no entanto, foi você quem me ajudou a "ajeita-lo". Estou querendo implantar um formula, para que "tal" usuário consiga consultar as informoções e que outros possam alterar... Obrigado, Jefferson

Bom dia Pessoal! Tenho um BC com controle de nivel de acesso, vou precisar abrir essa banco p/ que alguns funcionários realizem consultas, como posso fazer para que usuário XX tenha acesso ao FORM YY, mas que não consiga realizar ALTERAÇÕES, INCLUSÕES OU EXCLUSÕES? Obrigado

Bom dia! Pessoal, tenho um BC para controle de documentos e processos, estou precisando criar uma formula, para que o sistema gere 2 digitos verificadores....(EX.: 47568.001115/2007 - 00.. OUtra coisa que estou precisando é: no exemplo: 47568.001115/2007 - 00, como faço para que o 2007, ou um outro ano apareça automaticamente quando eu digito 07... Obrigado!

Boa Tarde, MrMajl! Obrigado pela atenção! Dei uma olhada no programinha que você havia me indicado, mas, sou NOVATO em BD, na verdade sou é curioso, vou pesquiando, pesquisando até conseguir fazer. Bom, o meu BD não funciona com Botões, que ao clicarmos abre o form X, ele funciona com uma caixa de Listagem, onde eu escolho o Form que quero abrir e ele abre em um Subform. O programa roda em 4 setores, sendo que cada setor pode acessar uma determinada. Gostaria de criar uma opção p/ que cada usuário visualizasse somente o form que pertence ao setor, e uma opção para alguns usuários somente façam consultas, sem poder alterar nada. Quero implantar também, uma opção para que os users alterem suas senha. (Meio complicado eu néh!). Em pesquisa no scripBrasil, pude perceber que você entende bastante do assunto, é possível que eu te envie uma cópia do meu BD, p/ você dar uma olhada e poder me explicar como fazer? Fico no aguardo, Abraços, Brucce

alguém pode me orientar de como criar um sistema multinivel? tenho um Bd, porém existem form que somente alguns usuários podem ter acesso.... O meu Bd funcionado atraves de um form principal e uma lista de combinação, onde seleciono o form que desejo abrir e este por sua vez abre em um sub form. valeu

Bom dia Galera! Criei um BD para cadastro de processos e contrrole de documentos, porém, estou com um probleminha, implantei um sistema de login, mas estou com dificuldade p/ criar um sistema de alteração de senha.... ... Os usuários logan, mais a opção de cadastro fica exposto a todos os usuários, podendo ser alterado por qualquer um. alguém pode me orienta como criar um form para que eles alterem suas senha?? Valeu!