Esqueceu sua senha? Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

Validação de Login com erro

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
july_onda
Colaborador
Colaborador
Mensagens: 11
Registrado em: Seg Mar 09, 2020 9:10 pm

Validação de Login com erro

Mensagem por july_onda » Sáb Mai 02, 2020 9:55 pm

Boa noite, colegas,
Tudo bem?

Com base em um dos modelos aqui do fórum, inseri formulário de login na minha planilha de controles, porém, estou tendo dificuldades na validação do usuário. Copiei o código da aplicação exatamente como estava no arquivo original, apenas ajustando o nome da planilha, mas no meu arquivo não funciona. Alguém pode me ajudar?

Também gostaria de uma ajuda com o formulário "Pesquisa Fornecedor". Assim,como no formulário "Pesquisa Contratos", quero que quando eu selecionar uma linha do listbox, clicando em "Visualizar", ele me leve até aquele registro especifico para que eu possa alterá-lo. Porém, não consigo fazer funcionar o comando. Quando clico no ícone visualizar, ele me leva ao formulário específico, mas não no fornecedor que eu selecionei.

Anexo segue arquivo e também mando link por aqui, caso dê algum erro no download.

O login de acesso do arquivo é: admin - Senha: admin.

Desde já agradeço! Tenho aprendido muito com vocês.

[REMOVIDO]
Anexos
TESTE CONTROLE3.zip
(243.51 KiB) Baixado 13 vezes



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


AfonsoMira
Acabou de chegar
Acabou de chegar
Mensagens: 1
Registrado em: Ter Mai 19, 2020 11:30 am

Re: Validação de Login com erro

Mensagem por AfonsoMira » Sex Mai 22, 2020 7:26 am

Bom dia,

Antes da linha onde está a aparecer o erro adicionei

Código: Selecionar todos

    With ThisWorkbook
        
        Set planBase = .Sheets("ACESSOS")
        
    End With
O erro estava a acontecer quando defenia a visibilidade de planBase para true, só que ainda não tinha definido uma aba para planBase.

Espero ter ajudado. :D

Ficheiro já corrigido em anexo.
Anexos
TESTE CONTROLE3.zip
(166 Bytes) Baixado 4 vezes



Responder