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

    Como colocar IfIsErro

    Compartilhe

    Deahr
    Novato
    Novato

    Respeito às Regras 100%

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

    Como colocar IfIsErro

    Mensagem  Deahr em Qui 31 Ago 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
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: Como colocar IfIsErro

    Mensagem  ahteixeira em Qui 31 Ago 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":
    [Você precisa estar registrado e conectado para ver este link.]

    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

    Deahr
    Novato
    Novato

    Respeito às Regras 100%

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

    Re: Como colocar IfIsErro

    Mensagem  Deahr em Qui 31 Ago 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!!!
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: Como colocar IfIsErro

    Mensagem  ahteixeira em Qui 31 Ago 2017, 22:28

    Olá Andrea, como disse não falta exemplos, veja:
    [Você precisa estar registrado e conectado para ver este link.]

    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

      Data/hora atual: Sab 23 Set 2017, 06:45