MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

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

    Compartilhe
    avatar
    eullerTec
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 55
    Registrado : 06/09/2016

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

    Mensagem  eullerTec em Ter 16 Maio 2017, 14:36

    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!
    Anexos
    NULL.png
    Você não tem permissão para fazer download dos arquivos anexados.
    (21 Kb) Baixado 6 vez(es)
    avatar
    ronaldojr1
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 292
    Registrado : 01/08/2011

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

    Mensagem  ronaldojr1 em Seg 22 Maio 2017, 19:13

    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
    avatar
    eullerTec
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 55
    Registrado : 06/09/2016

    Erro em tempo de execução '94'

    Mensagem  eullerTec em Qua 24 Maio 2017, 02:58

    Olá RolandoJr!

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

    Muito Grato.
    avatar
    ronaldojr1
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 292
    Registrado : 01/08/2011

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

    Mensagem  ronaldojr1 em Qua 24 Maio 2017, 13:02

    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
    avatar
    eullerTec
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 55
    Registrado : 06/09/2016

    Erro em tempo de execução '94'

    Mensagem  eullerTec em Seg 29 Maio 2017, 15:54

    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"
    avatar
    ronaldojr1
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 292
    Registrado : 01/08/2011

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

    Mensagem  ronaldojr1 em Ter 30 Maio 2017, 12:52

    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.

    [Você precisa estar registrado e conectado para ver este link.]

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


    avatar
    eullerTec
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 55
    Registrado : 06/09/2016

    Erro em tempo de execução '94'

    Mensagem  eullerTec em Ter 30 Maio 2017, 16:17

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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 292
    Registrado : 01/08/2011

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

    Mensagem  ronaldojr1 em Qua 31 Maio 2017, 13:28

    cheers cheers cheers cheers

      Data/hora atual: Ter 19 Set 2017, 12:44