MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


3 participantes

    [Resolvido]Verificar se registo existe - Erro

    avatar
    Burita
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 122
    Registrado : 03/04/2013

    [Resolvido]Verificar se registo existe - Erro Empty [Resolvido]Verificar se registo existe - Erro

    Mensagem  Burita 9/11/2015, 12:12

    Boas.
    Estou a fazer um sistema de registo de funcionários para trabalhar em rede, mas estou com um problema. Ao abrir o form, tenho uma caixa de texto que vai buscar o nome de utilizador (username) que está naquele computador (aproveitei um módulo daqui do fórum). Neste form, tenho 2 botões: Registar e Listagem. Tenho uma tabela onde guardo os registos de cada utilizador (Nome, morada, telefone, ........). O que eu queria era que, quando este form se abri-se, fosse verificar se na tabela dos registos, este utilizador já estava registado. Se Sim, então o botão de regista ficava inactivo e o botão de Listagem activo. Se não estive registado, o botão Registo ficava activo e o botão Listagem inactivo.
    Fiz assim, no evento Load deste form:
    Dim rst As Recordset
    Me.txtusermenu.Value = fGetFullNameOfLoggedUser
    Set rst = CurrentDb.OpenRecordset("Select Nome FROM Funcionarios")
    If rst![Nome] = Me.txtusermenu.Value Then
    MsgBox "Já está registado.", vbInformation, "Registado"
    btnListagem.Enabled = True
    btnRegistar.Enabled = False
    Else
    MsgBox "Ainda não está registado.", vbInformation, "Não Registado"
    btnListagem.Enabled = False
    btnRegistar.Enabled = True
    End If

    Se eu já tiver, por exemplo, o nome "João Miguel" registado na tabela Funcionarios, ele funciona perfeitamente. Se ainda não estiver registado, dá o seguinte erro:
    Run-time error '3021':
    Não existe nenhum registo actual.

    Cumprimentos,
    Burita

    avatar
    Kaynan
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2980
    Registrado : 09/04/2012

    [Resolvido]Verificar se registo existe - Erro Empty Re: [Resolvido]Verificar se registo existe - Erro

    Mensagem  Kaynan 9/11/2015, 12:35

    Bom dia amigo poderia postar essa parte pra gente ver.
    Abç.
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

    [Resolvido]Verificar se registo existe - Erro Empty Re: [Resolvido]Verificar se registo existe - Erro

    Mensagem  Noobezinho 9/11/2015, 12:48

    Jorge

    Essa função fGetFullNameOfLoggedUser, está funcionando?
    Onde o funcionário digita seu nome para verificar a existência dele na tabela?

    A melhor maneiro é usar o DCount() para verificar existência do funcionário

    Mas para isso, deve usar sempre ter o código numérico do registro.


    Como disse, deve-se evitar usar texto para pesquisar, comparar, isso leva ao erro.
    Por exemplo: seu eu tiver o nome Elsa na tabela, e a pessoa digita Elza,
    o Access vai dizer que não existe esse registro.
    Para evitar isso, faça uma caixa de combinação contendo o código e o nome do funcionário.
    Então, o usuário só irá clicar no nome dele e então colocar a senha na caixa de texto.

    Dai ficaria mais ou menos assim:

    if Dcount "*', "tbl_Funcionaro","id_Funcionario = " & me.id_Funcionario) = 0 then
    ...
    Else

    ...

    End If

    [ ]'s


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    Burita
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 122
    Registrado : 03/04/2013

    [Resolvido]Verificar se registo existe - Erro Empty Re: [Resolvido]Verificar se registo existe - Erro

    Mensagem  Burita 9/11/2015, 14:35

    Boas.
    Noobezinho sim está a funcionar esse código. O funcionário não digita o nome para verificar, o próprio form é que verifica se já existe. Ou seja, no form_load, tenho uma caixa de texto a obter o nome de utilizador, através do módulo que falei. Depois vai verificar se na tabela funcionários existe algum nome igual ao da caixa de texto. Só que dá erro quando não existe e eu queria é que desse uma mensagem a dizer que não existe e habilitasse o botão para se registar.

    PS: anexo com exemplo
    http://www.filedropper.com/funcionarios
    avatar
    Burita
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 122
    Registrado : 03/04/2013

    [Resolvido]Verificar se registo existe - Erro Empty Re: [Resolvido]Verificar se registo existe - Erro

    Mensagem  Burita 9/11/2015, 15:24

    Boas.
    Só para informar que depois de fazer como o Noobezinho sugeriu, já está a funcionar.
    Obrigado mais uma vez.

    Cumprimentos,
    Burita
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

    [Resolvido]Verificar se registo existe - Erro Empty Re: [Resolvido]Verificar se registo existe - Erro

    Mensagem  Noobezinho 9/11/2015, 15:42

    Que bom que ajudei Wink

    Valeu pelo retorno

    Boa sorte!


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.

    Conteúdo patrocinado


    [Resolvido]Verificar se registo existe - Erro Empty Re: [Resolvido]Verificar se registo existe - Erro

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 04:20