[Resolvido]Erro em tempo de execução '94'

Saudações caros mestres! Queria mais uma vez por gentileza pedir a ajuda de vossos conhecimentos. Tô com problema já vi outro exemplo aqui no Fórum, mas não consegui adaptar.

Tenho um BD que faz o login através de usuário e senha, com níveis de acesso, daí no Usuário tem listado os usuários cadastrados, porém quando digito um usuário não cadastrado vem a mensagem de erro, e opção de depurar. que eu queria; Quando o user final digitasse no campo usuário, um user não cadastrado, gerasse uma Msgbox "Usuário não cadastrado" ao invés da msg de Erro que aparece. abaixo deixo um link no Dropbox em anexos os exemplos.


dropbox.com/s/72jvs9o05ap5xep/BDSISGAM.zip?dl=0

Desde já mais uma vez grato pela colaboração de Todos!

no inicio do codigo coloque

Código:

On Error GoTo trataErro

e no fim do codigo coloque

Código:

trataErro:
    If Err.Number = 94 Then
        MsgBox "Usuário não cadastrado", vbCritical
    End If


Olá RolandoJr!

Obrigado pelo retorno, poderia me explicar onde entram esses dois códigos (No início e No fim) ?

Muito Grato.

bom dia,
se vc clicar em depurar vc sera levado ate a parte que se encontra com erro.
mas olhei seu banco, vc ira tratar o erro no metodo private sub txtuser_afterUpdate().
mudei um pouco o codigo pra ficar mais simples, mas do outro jeito tb funciona, mas eu sugiro vc a tratar esse
erro com o codigo abaixo:

Código:


Private Sub txtuser_AfterUpdate()
If Not IsNull(me.txtUser.Column(0)) then
  Usuario = txtUser.Column(0)
  txtSenha = txtUser.Column(1)
Else
  MsgBox "Usuário não cadastrado", vbCritical
End If
end sub


e uma dica pra vc, percebi que vc colocou uns esquemas para tirar o esquema de abrir o access segurando o shift
provavelmente vc nao quer que ninguem nao autorizado mexa nos codigos ou visualize diretamente suas tabelas,
entao melhor vc colocar senha para abrir o modulo do access, pq se o usuario clicar no botao
depurar de qualquer mensagem de erro chega no codigo ou
se o usuario apertar alt + f11, tambem chega no codigo.
nao sei se é facil quebrar essa senha, mas é bom dificultar um pouco as coisas para alguem mal intencionado.
para colocar a senha siga os passos abaixo
1- aperte alt + f11 na tela de login
2- va no menu Ferramentas > Propriedades de Sistema Integrado Administrativo...
3- va na guia proteção.
4- marque o checkBox "Bloquear projeto para exibição"
5- defina uma senha.
só nao esqueça da senha, pq nem sei se da pra recuperar ou hackear, mas se der nao deve ser um processo facil
boa sorte ai fera

Olá amigo RonaldoJr1!

Meu muito obrigado! no outro código acima não deu certo, mas esse último aí deu super certo, ainda mais que me alertou sobre o Alt+f11, não sabia deste detalhe, aos poucos vou deixando meu BD mais seguro. ficou muito Bom.

Obrigado! Deus lhe abençoe!


"Aquele que pergunta é um tolo por cinco minutos, mas aquele que não pergunta permanece um tolo para sempre"

disponha, é um prazer ajudar, mas é serio que nao conseguiu fazer o codigo funcionar?
vou mandar o bd que vc mandou com as alteração no codigo que fiz, ai vc compara para ver onde vc ta errando.

http://www.ltr.com.br/ronaldo/SISGAM.accdb

as alterações está a partir na linha 88 do formulário de login(Form_frmLogin)

Conseguir sim meu amigo. Muito obrigado pelo apoio. deu certo, coloquei a senha no Vba tbm , ficou top.