Cadastro de Contatos Limitando visualização de dados por Usuário Logado.

Onde o usuário logado só terá acesso aos seus contatos e não poderá ver os contatos de outros usuários.

Pessoal ando um pouco sumido por motivo de trabalho mas sempre que posso venho visitar e colaborar com o pouco que sei com o este maravilhoso fórum que tanto me ajudou e ajuda.

Grande abraço à todos e fique na paz de Deus.

PS. Não tive tempo de fazer o Login para escolha do user, então basta no modNome alterar e por o nome do user ou apontar no login a variável global para receber o user logado.

No evento Ao Alterar do campo txtBuscar, troque o igual (=) pelo Like. Ficará assim:

Private Sub txtBuscar_Change()

Me.lstContatos.RowSource = "Select CodContato,TipoContato,NomeContato From Contatos Where NomeContato & TipoContato & TelefoneContato & Celular2Contato & EnderecoContato & NumeroContato & UFContato & BairroContato & CidadeContato & ObsContato & EmailContato Like '*" & Me.txtBuscar.Text & "*' AND UserContato LIKE '" & Me.txtUserContato & "'"

End Sub

Olá meu amigo.

Acredito que não tenha a necessidade pois, Me.txtUserContato é carregado por uma variável global e não terá seu valor alterado até o próximo login.

Eu vi que há dois usuários cadastrados. Fiz o teste aqui trocando o igual (=) pelo LIKE e deu certo. O usuário logado só vê os registros que ele mesmo cadastrou.

Este módulo é bem básico apenas para estudos. Terminei o módulo para adaptação no meu sistema quando der tempo posto a versão completa com login para os amigos.