Início
![[Resolvido]Mostrar ultimo login Empty](https://2img.net/i/empty.gif)
maurogpi 3/9/2015, 12:44Olá senhores,
Em um programa, estou com um formulário de login, onde me consta os campos: Servidor, Nome e Senha.
O campo Servidor (de nome cbxlogin) é vinculado à tabela "Servidores", já as caixas de texto pra nome e senha não são vinculadas. Por recurso no evento Ao Sair do combo Servidor, o campo nome recebe o valor: Me.txtnome = Me.cbxLogin.Column(1)
Preciso que o campo Servidor (cbxlogin) do formulário me apareça o último usuário que logou (pros usuários não terem que ficar digitando toda vez o nome, mas somente a senha).
Usei no carregamento do formulário o seguinte código:
Private Sub Form_Load()
Dim rst As Recordset
Dim db As Database
Set db = CurrentDb
Set rst = db.OpenRecordset("Controle de Autenticação", dbOpenSnapshot)
rst.MoveLast
Me.cbxLogin = rst("Servidor")
Set rst = Nothing
rst.Close
End Sub
Esse código dá o erro em tempo de execução '91': A variável do objeto ou a variável do bloco 'with' não foi definida... Depurar// e seleciona o rst.close
No fechamento aparecem duas telas com as mensagens:
- O registro não pode ser excluído ou alterado porque a tabela "Controle de Autenticação" inclui registros relacionados a ele. --> OK
- Não é possivel salvar esse registo agora. Talvez..... fechar assim mesmo? --> Sim --> Não.
A tabela "Servidores", pelo campo 'Servidor', mantém uma relação um-para-muitos com a tabela "Controle de Autenticação" através de campo também chamado 'Servidor'.
Em um programa, estou com um formulário de login, onde me consta os campos: Servidor, Nome e Senha.
O campo Servidor (de nome cbxlogin) é vinculado à tabela "Servidores", já as caixas de texto pra nome e senha não são vinculadas. Por recurso no evento Ao Sair do combo Servidor, o campo nome recebe o valor: Me.txtnome = Me.cbxLogin.Column(1)
Preciso que o campo Servidor (cbxlogin) do formulário me apareça o último usuário que logou (pros usuários não terem que ficar digitando toda vez o nome, mas somente a senha).
Usei no carregamento do formulário o seguinte código:
Private Sub Form_Load()
Dim rst As Recordset
Dim db As Database
Set db = CurrentDb
Set rst = db.OpenRecordset("Controle de Autenticação", dbOpenSnapshot)
rst.MoveLast
Me.cbxLogin = rst("Servidor")
Set rst = Nothing
rst.Close
End Sub
Esse código dá o erro em tempo de execução '91': A variável do objeto ou a variável do bloco 'with' não foi definida... Depurar// e seleciona o rst.close
No fechamento aparecem duas telas com as mensagens:
- O registro não pode ser excluído ou alterado porque a tabela "Controle de Autenticação" inclui registros relacionados a ele. --> OK
- Não é possivel salvar esse registo agora. Talvez..... fechar assim mesmo? --> Sim --> Não.
A tabela "Servidores", pelo campo 'Servidor', mantém uma relação um-para-muitos com a tabela "Controle de Autenticação" através de campo também chamado 'Servidor'.
