VBA Doubt - Run-time error '91' [closed]

Navigation
2
'Procedimento para o Comando Entrar
Sub Entrar()

 'converte texto usuario para minusculo - formando um padrao
    frmLogin.txtUsuario = LCase(frmLogin.txtUsuario)

' Primeira parte - Verifica os campos vazios
If frmLogin.txtUsuario = "" Then
    MsgBox "Entre com o nome do Usuário", vbInformation, "USUÁRIO"
    Exit Sub
End If

If frmLogin.txtSenha = "" Then
    MsgBox "Entre com a senha do Usuário", vcInformation, "SENHA"
    Exit Sub
End If

' Segunda parte - verifica se é administrador e se for entra na planilha
If frmLogin.txtUsuario = "admin" And frmLogin.txtSenha = "admin" Then
    MsgBox "Bem Vindo Administrador.", vbOKOnly, "ACESSO LIBERADO"
    gravarRelatório
    LimparfrmLogin
    Unload frmLogin
    Application.Visible = True
    Sheets("USUÁRIO").Visible = xlSheetVisible
    Sheets("REL_ACESSO").Visible = xlSheetVisible
    Sheets("CONDIÇÃO.H.EXTRA").Visible = xlSheetVisible
    Sheets("UTIL.CONTROL.PONTO").Visible = xlSheetVisible
    Sheets("EMPREGADO.TESTE1").Select

    Exit Sub
End If

' Terceira parte - verifica se o usuário e senha estão no banco de dados
linha = 2
Usuario = frmLogin.txtUsuario
Senha = frmLogin.txtSenha

Do Until Sheets("USUÁRIO").Cells(linha, 1) = ""
If Sheets("USUÁRIO").Cells(linha, 1) = Usuario And Sheets("USUÁRIO").Cells(linha, 2) = Senha Then
    MsgBox "Bem Vindo " & Usuario, vbOKOnly, "ACESSO LIBERADO"
    gravarRelatório
    LimparfrmLogin
    Unload frmLogin
    Application.Visible = True
    Sheets("USUÁRIO").Visible = xlSheetVeryHidden
    Sheets("REL_ACESSO").Visible = xlSheetVeryHidden
    Sheets("CONDIÇÃO.H.EXTRA").Visible = xlSheetVeryHidden
    Sheets("UTIL.CONTROL.PONTO").Visible = xlSheetVeryHidden
    Sheets("EMPREGADO.TESTE1").Select
    Exit Sub
End If
linha = linha + 1
Loop

    MsgBox "Usuário ou Senha Inválidos", vbCritical, "ACESSO NEGADO"
    LimparfrmLogin
    frmLogin.txtUsuario.SetFocus
    Exit Sub
End Sub

No need to enter another code yet. Who can help and need more information.

Thank you in advance!

    
asked by anonymous 27.07.2016 / 14:14

1 answer

0
The VBA 91 error is:

  

Variable Object or block variable With unassigned

This type of error does not indicate where the problem occurred, so it must be in the ClearfrmLogin routine. Depending on what is in this routine the problem will occur.

To check this, create breakpoints and follow the F8 and F5 keys until you find another breakpoint.

>     
27.07.2016 / 15:23
Error using glyphicon with bootstrap-sass Appcelerator error: Unable to locate cli executable