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


2 participantes

    Como colocar IfIsErro

    avatar
    Deahr
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 2
    Registrado : 31/08/2017

    Como colocar IfIsErro Empty Como colocar IfIsErro

    Mensagem  Deahr 31/8/2017, 14:23

    Olá pessoal , to quebrando minha cabeça aqui e não consigo chegar a uma solução. Já coloquei o bloco (On Error goto...MsgBox "", ,"" em todos os lugares neste código.
    Uma delas ele aceita só isso, outros ele não aceita... eu não sei mais o que fazer. Se vcs conhecerem um método mais fácil, me ajudem, por favor! O código procura no banco de dados infos de login, se achar ótimo, deixa acessar, se as textbox estiverem vazias tem MSgBOX de Vazio, se não achar o login e/ou matricula teria de retornar falso... E é justamente isso que não consigo fazer, o código está abaixo
    Valeu gente!

    Private Sub BtnOk_Click()

    If Me.TXTLOGIN.Text = "" Or Me.TXTMATRICULA.Text = "" Then

    MsgBox "Todos os campos devem ser preenchidos", vbCritical, "nome"

    Exit Sub

    End If

    Set rs = New ADODB.Recordset

    rs.Open "Select * from Tbl_acesso where Login = '" & Me.TXTLOGIN.Text & "' And Matricula = '" & Me.TXTMATRICULA.Text & "'", Miconexao, adOpenKeyset, adLockOptimistic, adCmdText

    Exit Sub

    Me.TXTLOGIN = rs.Fields("Login")
    Me.TXTMATRICULA = rs.Fields("Matricula")
    FormAlterar = rs.Fields("FrmAlterarFunc")
    FormConsultar = rs.Fields("FrmConsultarFunc")
    FormConsultar = rs.Fields("FrmAdm")

    FrmCapa.Caption = "Bem Vindo ao sistema " & rs.Fields("Nome")
    FrmCapa.Show

    Call Log

    Unload Me

    Call Desconecta

    End Sub
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7996
    Registrado : 15/03/2013

    Como colocar IfIsErro Empty Re: Como colocar IfIsErro

    Mensagem  Alvaro Teixeira 31/8/2017, 14:52

    Olá Andrea, Bem-vinda ao fórum.

    Não falta exemplos de Login aqui no fórum.
    Veja como fazer uma "Busca":
    https://www.maximoaccess.com/t1115-busca-no-forum-search

    Se pretender continuar com o seu código, poste base de dados funcional com os objectos envolvidos para se testar e deixe mais detalhes como, onde e quando ocorre aço erro.

    Abraço
    avatar
    Deahr
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 2
    Registrado : 31/08/2017

    Como colocar IfIsErro Empty Re: Como colocar IfIsErro

    Mensagem  Deahr 31/8/2017, 16:38

    Desculpe, não encontrei nada com relação a esta dúvida especifica
    Como fazer uma mensagem aparecer quando digitarem algo errado.

    Eu não sou muito conhecedora da linguagem, me desculpem, to me esforçando muito.

    Se alguém conseguir me ajudar vou ficar imensamente grata, é para um projeto que estou desenvolvendo no serviço então, é bem importante.
    valeu!!!
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7996
    Registrado : 15/03/2013

    Como colocar IfIsErro Empty Re: Como colocar IfIsErro

    Mensagem  Alvaro Teixeira 31/8/2017, 22:28

    Olá Andrea, como disse não falta exemplos, veja:
    https://www.maximoaccess.com/search?mode=searchbox&search_keywords=login&show_results=topics

    No entanto se pretende manter o seu projecto, será melhor postar o que tem para que qualquer membro possa ver, testar e ajudar.

    Abraço

    Conteúdo patrocinado


    Como colocar IfIsErro Empty Re: Como colocar IfIsErro

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 23/11/2024, 12:38