Humm

o undo entraria no lugar ou depois do DoCmd.CancelEvent você poderia por me!CPF.undo ou cancel = true

cara continua dando a mesma msg.. não é de antivirus não, essa msg é do access mesmo. ou seja, não consigo abrir consegui abrir, ele tava bloqueado. amigo sua consulta está normal.. não entendo ainda exatamente o que voce quer..

oi amigo.. não precisa de evento "após atualizar" porque subentende-se que se o antes de atualizar aceitou o cpf então já ta feito. poste o codigo desta funcao ai de validacao do cpf que eu indico onde entra o undo.

ahh ta explicado.. o meu access é 2002 converte uma copia em 2002 ai pra mim e manda.

usando o docmd eu posso fazer o seguinte ao abrir um form DoCmd.OpenForm "formulario tal", , , , acFormReadOnly mas isso numa ação. como essa regra no procedimento "Ao abrir" do formulario ? pra que ele fique somente leitura ou qualquer outro modo dependendo do If?

isso também ocorre porque o certo não é colocar esse procedimento no Após atualizar e sim no Antes de Atualizar. alem disso, você pode definir uma funcao campocpf.undo quando entra errado para limpar o campo é moleza.

é como se você clicasse em Compactar e Reparar.. ele fecha tudo.. e reinicia a aplicacao. porem, isso so funciona em modo exclusivo. no caso uso em rede. deve ter algum procedimento ou funcao pra reiniciar a aplicacao. so basta descobrir

amigo, vou explicar como fiz aqui. criei uma tabela USUARIOS onde cadastro USER, SENHA e NIVEL então ai eu cadastro: USER, SENHA, NIVEL HUMM, 123, 5 OUTRO, 321, 1 nisso to considerando os numeros de nivel como: 1 - Sem permissao de nada 2 - Somente Leitura 3 - Somente Adiciona Registros 5 - Administrador então ao iniciar a aplicacao, primeiro vem um form de LOGIN nele o usuario se identifica e se loga no sistema.. ao se logar esse form fica automaticamente oculto e se abre o form do menu principal onde tem os botoes que abrem os diversos outros formularios. e em cada botao, no procedimento "ao clicar" acontece isso que postei la em cima. (aqui o dlookup vai pesquisar qual o nivel do usuario logado e o If vai comparar com o nivel 1. caso o user seja nivel 1, então virá a msgbox negando acesso.) If Dlookup("[NIVEL]", "USUARIOS", "[uSER] ='" & Forms!LOGIN![uSER] & "'") = 1 then msgbox "Voce não tem acesso a este item!" (caso o user seja nivel 2, o acFormReadOnly vai abrir o form somente pra leitura.) ElseIf Dlookup("[NIVEL]", "USUARIOS", "[uSER] ='" & Forms!LOGIN![uSER] & "'") = 2 then docmd.openform "formulario tal", , , ,acFormReadOnly (caso o user seja nivel 3, o acFormAdd vai abrir o form somente pra adicionar, mas negado pra editar.) ElseIf Dlookup("[NIVEL]", "USUARIOS", "[uSER] ='" & Forms!LOGIN![uSER] & "'") = 3 then docmd.openform "formulario tal", , , ,acFormAdd (caso o user seja nivel 5, o acFormEdit vai abrir o liberado.) ElseIf Dlookup("[NIVEL]", "USUARIOS", "[uSER] ='" & Forms!LOGIN![uSER] & "'") = 5 then docmd.openform "formulario tal", , , ,acFormEdit entendeu?

vou repetir.. "consulta de totalizacao" busca apenas um valor em comum dentre registros com certo campo igual. é diferente de consulta apenas seleção.

não tem como fazer um codigo baseado em if ? exemplo.. vamos supor que o cara defina niveis de acesso de 1 a 5 onde 1 é usuario e 5 é administrador ai então o cara se loga na aplicacao.. isso já registra o nivel atual do usuario logado. ai então ao clicar num botao de menu pra abrir um form.. rola um if exemplo: If Dlookup("[NIVEL]", "USUARIOS", "[uSER] ='" & Forms!LOGIN![uSER] & "'") = 1 then msgbox "Voce não tem acesso a este item!" ElseIf Dlookup("[NIVEL]", "USUARIOS", "[uSER] ='" & Forms!LOGIN![uSER] & "'") = 2 then docmd.openform "formulario tal", , , ,acFormReadOnly ElseIf Dlookup("[NIVEL]", "USUARIOS", "[uSER] ='" & Forms!LOGIN![uSER] & "'") = 3 then docmd.openform "formulario tal", , , ,acFormAdd ElseIf Dlookup("[NIVEL]", "USUARIOS", "[uSER] ='" & Forms!LOGIN![uSER] & "'") = 5 then docmd.openform "formulario tal", , , ,acFormEdit End If alias eu to usando assim no meu BD e funciona.

aqui eu faço assim.. crio uma consulta com totalizacao, e na opcao TOTAL eu coloco MAXIMO tente ai.

amigo, seu bd não abre.. você por acaso o dividiu? da erro que não pode abrir porque o arquivo se encontra fora da intranet ou em um site sem confianca.

preciso de um comando do VB que feche todas as janelas abertas.. se possivel, inclusive as ocultas menos a principal do banco de dados. na verdade queria fechar qualquer consulta, form, ou relatorio aberto com um so comando.

e tu faz ideia de como eu faço um tipo case sensitive no campo da senha? porque o campo da senha é alfanumerico também

então não to entendendo porque ta dando esse erro. os ** postei aqui no codigo so pra identificar a linha que o debug marca. agora fiquei perdido. descobri.. é a falta de aspas. coloquei assim: If Me.SENHA = DLookup("[SENHA]", "USUARIOS", "[USER] = '" & Me.USER & "'") Then agora funciona. porem ele não faz diferenca entre CAPS

to tendo esse erro: Erro de Tempo de execução. Voce cancelou a operacao anterior. isso num simples dlookup para verificar senha. veja o codigo abaixo. Private Sub SENHA_AfterUpdate() **If Me.SENHA = DLookup("[SENHA]", "USUARIOS", "[USER]=" & Me.USER) Then** Me.DATA = Now() Me.HORA = Time() Me.FALHOU = False DoCmd.OpenForm "MENU PRINCIPAL", , , stLinkCriteria DoCmd.Close acForm, "LOGIN", acSaveYes Else ' LOGANDO TENTATIVA Me.DATA = Now() Me.HORA = Time() Me.FALHOU = True MsgBox "Usuário e/ou Senha incorreto(os)." & vbNewLine & "Verifique a tecla CAPS LOCK(FIXA) e tente novamente." DoCmd.GoToRecord acForm, "LOGIN", acNewRec End If End Sub após atualizar o campo, tenho aquele erro e o depurador acusa erro naquela linha com ** tenho a tabela USUARIOS que armazena os USER e SENHA e neste form com origem da tabela LOGINS o campo USER e SENHA não entendo o que pode estar errado. alguém da um help?

de uma olhada em ferramentas\seguranca

então é so especificar na origem dos dados essa tabela que ai funciona.

cara meu bd ta meio grande heheh.. acho que com uns 10mbs.. se você puder postar um exemplo com essa funcao.. porque aqui da exatamente o mesmo erro.

tem que ver o tipo de vinculo.. use um-para-muitos alem disso, so vai permitir adicionar novos regs se o campo-vinculo for do tipo número de preferencia a usar campos chave pra isso.

aqui também não funciona.. mas diga qual erro que dá ai

cara esse ÉERRO não aceita aqui.. alias.. ate aceita a mas estranhamente se eu coloco éerro ele mantem do mesmo jeito. não parece ser uma funcao entende? as funcoes relativas a erro que ache foram Erro() Erro$()

faça atravez de um evento como "ao sair" ou "apos atualizar"

opa.. já testei com o seimed mas não com a funcao do ÉERRO vou testar e falo se der certo.. valeu pela ideia

tenho um form de precos de venda com campo DATA e preço e um calculado que vai buscar o valor de preço de compra e fazer o calculo do percentual de lucro em cima do preço deste form. to usando dllokup para isso e ta funcionando. porem, o registro novo * em branco(que ainda não foi preenchido) este campo exibe #ERRO até que eu lance um valor em preço para ele poder calcular. como eu faco pra suprimir este #ERRO ?