[Resolvido]Cada usuário acessa sua tabela!

Boa tarde pessoal!

Tenho um banco de dados para cadastro de Gibis, o acesso é feito através de Login e Senha, cada usuário tem um privilégio, como "Administrador, Gerente, Convidado" mas hoje, todos os usuários tem acesso a mesma tabela de revistas cadastradas; eu gostaria que cada usuário logado, tivesse acesso à sua própria coleção de revistas (tabela) exemplo: Usuário Robson tem 5 revistas cadastradas; Usuário Anderson tem 10 Revistas cadastradas. etc...Desde já agradeço pela atenção.

Bom dia Robson!
Confesso que não consigo visualizar a necessidade... Mas para o que pretende, é bem simples...

Não precisa ter mais de uma tabela... Pode utilizar essa unica que ja tem, porem irá fazer pequenas mudanças...


Primeiro, deve colocar um novo campo na Tabela, que armazenará o nome do Usuário a que pertence esse Gibi. Pode até colocar ele de preenchimento automático.

No formulário, deverá mudar apenas a origem dos dados, que deve ser uma consulta que trará todos os campos, mas com um critério no campo novo que criamos, nome do Usuário. Coloque o critério para pegar o Nome do usuário logado...

Assim, quando fizer login, e abrir o Formulário só aparecerá para o usuário os Gibis que ele cadastrou.

Bom dia Fabião!!!

Fiquei muito feliz meu amigo em receber a sua resposta, muito obrigado mesmo; bom vamos lá:

Realmente do jeito que vc me informou faz muito mais sentido, não preciso montar várias tabelas, o ideal é filtrar uma consulta por usuário mesmo, valeu.

Criei um campo na Tabela conforme me instruiu, coloquei o nome de "UsuarioHQ" (Não entendi como colocar Preenchimento Automático)

Criei também a consulta com o critério para filtrar somente pelo usuário logado, porém continua aparecendo todas as revistas.

Estou enviando o banco de exemplo, para que possa visualizar melhor o que fiz:

OBS: Os Forms Principais são: (frm_MenuPrincipal, Gibis2-for, Cadastro_HQ)
        A Tabela onde Criei o novo campo é a "Gibis"

drive.google.com/open?id=1As-Ce9Imj8-4bRb5bqwlvrSCx3y8sWpu                          [Não são permitidos links externos, colocar assim]

Usuário: Robson Palma
Senha:  123

Usuário: Convidado
Senha:   123456


Obrigado!!!

Amigo, fiquei meio perdido...

Nao achei o Campo criado na tabela... e nao sabia em qual formulario colocar.

Então coloquei no Primeiro... No Menu Principal, HQ.

dropbox.com/s/mnsdcv9yljjzf90/Cadastro%20HQ.rar?dl=1

Muito bom Fabião!!!

Me perdoe acabei enviando o arquivo que estava vazio rsrs, mas vc acabou acertando mesmo, era pra criar em HQ mesmo heheh.

Mas tem um problema que havia ocorrido comigo também, se vc perceber lá na listBox que se chama (Caixa_HQ) tem uma divergência de informação em Relação ao número de Revistas cadastradas que fica no Top direito da tela em HQ, exemplo:

Aparece assim:

No topo direito da Pagina = HQs Cadastradas: 3
na Parte inferior direita na Caixa de Seleção de HQ = Apresenta 4 cadastradas

Eles deveriam apresentar o mesmo número.

Obrigado Fabião!!!

Amigo, isso ocorre pq na Caixa de Listagem nao o filtro...

Basta nela colocar o mesmo Filtro que tem no Formulário!!!

Boa noite Fabião!

Estou colocando o mesmo filtro porém não consigo filtrar, até alterei as linhas dos filtro, mas mesmo assim não estou conseguindo; tem outros critérios que já existem na caixa de listagem, inclusive são os mesmos que vc me ajudou das outras vezes, será que esses filtros existentes estão impedindo de realizar o novo filtro desejado?

Boa Tarde Fabião!!!

Estou usando esse filtro abaixo nos dados da ListBox, quando eu substituo pelo seu funciona, porém eu perco este meu filtro de pesquisa, o correto seria trabalhar com o que vc criou e com esse meu, para que funcione corretamente! Desde já agradeço amigão.

Como "*" & [Formulários]![frm_MenuPrincipal]![SubformuláriodeNavegação].[Formulário]![txt_produto] & "*"

OBS: Segue link da imagem da alteração que fiz!!!


drive.google.com/open?id=1ou-5KagIfyqEe1zAMaKovd9RgQZuVDTj                          [Não são permitidos links externos, colocar assim]

Olá, veja como ficou seu arquivo com as devidas alterações...
dropbox.com/s/mnsdcv9yljjzf90/Cadastro%20HQ.rar?dl=1

Lembre-se Agora, sempre terá que aplicar esse Filtro. Ele deve ser colocado como sendo o primeiro Filtro de qualquer consulta.

Boa noite Fabião!!!

OK, agora quando faço a busca na caixa de pesquisa, ele me traz a quantidade correta de Revistas, e somente as que o usuário cadastrou; muito obrigado meu amigo!!!

Porém agora não navega mais entre os registros, ele fica congelado em um único registro; se você clicar duas vezes no registro na caixa de listagem, ele vai para outro Form "Cadastro_HQ" para encontrar o mesmo registro que você clicou, até aí tudo bem, mas se tentar navegar pelos registros no Form que você efetuou as alterações pra mim, ele fica congelado somente num registro.

OBS: No Form" Cadastro_HQ" vou fazer a mesma alteração que você fez no Form "Gibis-2For"


Obrigado!!!

Robson meu amigo, lembre-se a estrutura de sua caixa de listagem foi alterada... Sendo assim, alguns códigos sofrerão pequenas mudanças!!!

Seu problema inteiro será corrigido com uma Unica Palavra adicionado a um código! Mas deixarei para que vc revise seus códigos e encontre o erro! Assim irá aprender muito mais.

Caso não encontre eu darei a resposta!

kkkk assim que é bom para aprender, gosto de desafios rsrsrsrsr...

Estou verificando já, acho que estou bem perto, logo te respondo essa questão...jájá eu volto rsrsr; por enquanto muito obrigado...

Acho que encontrei Fabião!!!!

O problema está no código: rs.FindFirst "[CodGibi] = " & Str(Nz(Me![caixahq], 0))
Como foi alterada a sequencia da Consulta, agora o correto é substituir o "[CodGibi]" por "UsuarioHQ" que ficou em 1º lugar na Consulta.
Fiz vários testes e identifiquei que se eu voltar a posição do "CodGibi" na consulta para 1º lugar ele funciona, então pela lógica o correto ao meu modo de ver seria fazer o inverso, porém mesmo assim não está funcionando, creio que está faltando algum parâmetro que não estou inserindo corretamente na digitação.. acertei? rsrsrsrsrsrs

Sim meu amigo, o problema esta realmente aqui!

Acrescente apenas a coluna:


rs.FindFirst "[CodGibi] = " & Str(Nz(Me![caixahq].Column(1), 0))

Tudo Voltará ao Normal!

Boa Noite meu amigo!!!

Deu certinho o código mesmo, show de bola!!!
Só tem duas coisas que aconteceram agora e que estou quebrando a cabeça para resolver antes de enviar pra vc e não consegui a resolução, sabe o que pode estar acontecendo?

1º no Form "Cadastro_HQ" quando vou iniciar a Pesquisa ele da erro naquele código de busca

Código:


strSQL = "SELECT UsuarioHQ, CodGibi, HQ, Edição, Séries, Ano FROM gibis WHERE " & _
"UsuarioHQ = '" & Forms![frm_MenuPrincipal]![Texto490] & "' " & _
" AND (strConv(Codgibi, 2, 1042) like '*" & StrConv(Me!txt_produto2.Text, 2, 1042) & "*'" & _
"OR strConv([HQ], 2, 1042) like '*" & StrConv(Me!txt_produto2.Text, 2, 1042) & "*'" & _
"OR strConv([Edição], 2, 1042) like '*" & StrConv(Me!txt_produto2.Text, 2, 1042) & "*'" & _
"OR strConv([Séries], 2, 1042) like '*" & StrConv(Me!txt_produto2.Text, 2, 1042) & "*'" & _
"OR strConv([Ano], 2, 1042) like '*" & StrConv(Me!txt_produto2.Text, 2, 1042) & "*';"
Me!caixahq2.RowSource = strSQL

2º No Form "Cadastro_HQ" Quando eu quero excluir dois registros ao mesmo tempo ele não exclui mais...

OBS: Estou enviando o Banco com as alterações que vc me ajudou e também para facilitar para vc, organizei o índice onde estão os Forms, para que vc possa visualizar melhor e não ficar bagunçado rsrsrs. Muito obrigado!!!


Link: drive.google.com/open?id=1aP-SdJIKc228WzrgPqos3gOiSsY13Gja                          [Não são permitidos links externos, colocar assim]

Caso 1:

Mude para:

Código:

Private Sub txt_produto_Change()
Dim strSQL As String
strSQL = "SELECT UsuarioHQ, CodGibi, HQ, [Edição], [Séries], Ano FROM gibis WHERE " & _
"UsuarioHQ = '" & Forms![frm_MenuPrincipal]![Texto490] & "' " & _
" AND (strConv(Codgibi, 2, 1042) like '*" & StrConv(Me!txt_produto.Text, 2, 1042) & "*'" & _
" OR strConv([HQ], 2, 1042) like '*" & StrConv(Me!txt_produto.Text, 2, 1042) & "*'" & _
" OR strConv([Séries], 2, 1042) like '*" & StrConv(Me!txt_produto.Text, 2, 1042) & "*'" & _
" OR strConv([Edição], 2, 1042) like '*" & StrConv(Me!txt_produto.Text, 2, 1042) & "*'" & _
" OR strConv([Ano], 2, 1042) like '*" & StrConv(Me!txt_produto.Text, 2, 1042) & "*')"
Me!caixahq.RowSource = strSQL
Me.caixahq.Requery
End Sub


Item 2:
Mande o Banco com o Fomrmulario Menu incluso, pq esta dando erro

Bom dia meu amigo Fábio!!!

Muito obrigado por esta maravilhosa ajuda meu amigo, a cada dia mais eu aprendo através de sua ajuda, isso é muito importe pra mim, pois eu utilizo esses conhecimentos e aprendizado para minha vida e para minha família tbm, que Deus continue lhe dando saúde, inteligencia e sabedoria...

Estou enviando o banco com o MenuPrincipal junto aos outros forms, caso vc precise de mais algum form, eles estão minimizados na guia!

OBS: Para excluir os Registro existem dois botões vermelhos, o botão do lado direito é o que exclui vários ao mesmo tempo, foi esse que parou.

Neste link, estou enviando o Banco com as alterações que vc me envio, e realmente o está dando erro onde vc disse...!!!

Link Banco: drive.google.com/open?id=1UqYTuhHxY6lIi2GRIC32LHOqD5JcgIIm                          [Não são permitidos links externos, colocar assim]


Obrigado!!!

Basta Mudar a Coluna acoplada da sua caixa de Listagem, de 1 para 2.

Coluna Acoplada de Caixa de Listagem ou Caixa de Combinação é o valor que ela assume, ja que pode ser composta por varias colunas...

Nossa realmente era isso mesmo, agora voltou à deletar vários registros ao mesmo tempo, então quer dizer que é o valor que a caixa de combinação assume, dependendo da coluna eu tenho que alterar o valor dela, conforme a minha necessidade; entendi!!! muito bom mesmo.

OBS: Então acho que agora só falta mesmo a questão da pesquisa na caixa listagem, e finalizamos. Ufa rsrs... fico no seu aguardo então, valeu amigão!!!

A pesquisa ja foi resolvido na Mensagem anterior amigo... Veja la

Bom dia Fabião!!!

No 1º form "Gibis-2for"  ele funciona normalmente com o código que me enviou!!!

O problema está ocorrendo no form "Cadastro_HQ"  mesmo com o código que vc enviou, e eu fazendo as devidas alterações com os nomes corretos das caixas de texto, ainda está dando erro quando digito alguma coisa no campo da pesquisa, se vc puder fazer o teste neste form, vai aparecer um erro, este ultimo link que te enviei, já está com as novas alterações que vc me pediu na caixa de listagem, porém mesmo assim ele da aquele erro informando do MenuPrincipal.

Talvez tenha algum detalhe para dar este erro no 2º Form "Cadastro_HQ" pois mesmo eu inserindo o código na caixa de texto ele retorna o erro. Valeu amigão!!!

Certo... Então, posta o print do erro! Pq aqui não deu erro não! Copiei e colei o código. Alterando apenas nome dos campos.

Boa noite Fabião!!!

Consegui achar o erro, eu não estava colocando a sequencia correta das colunas, agora deu certinho mesmo!!!

Enquanto eu testava tudo aqui, apareceram duas coisas aqui, mas creio que vc mata isso sem nenhum problema.

1º - No Form "Cadastro_HQ" o campo "txtUsuarioHQ2" nós colocamos para ser preenchido automático de acordo com o usuário que está logado, porém quando eu clico em "Adicionar Registro" o campo fica vazio; como aquele campo vai ficar invisível, tem como ele continuar preenchido com o nome do usuário?

2º - Quando é criado um novo usuário, que não tem nenhuma revista cadastrada, o Form "Gibis-2for" fica com a tela totalmente vazia, não aparece nada no layout, e no Form "Cadastro_HQ" no campo "txtUsuarioHQ2" ele não traz o nome do usuário que está cadastrado; será que tem como aparecer o layout normal porém com a caixa de texto vazia?


Muito Obrigado amigão

Boa noite Fabião!!!


Resolvido Caso 1 - Consegui inserir uma condição para que, cada vez em que eu clicar em "Adicionar" ele acrescente o nome do usuário logado.

Me."nome_do_campo" = "usuário_logado"


Caso 2 Pendente - Sobre a questão do layout ficar invisível quando o usuário não tem nenhuma revista cadastrada, ainda não consegui nada, tem alguma dica?




Obrigado!!!

...

Bom dia Fabião!!!

Cara fiquei estudando várias maneiras de resolver essas questões e consegui efetuar algumas correções que eu estava querendo, portanto vou colcoar como Resolvido!!!

Muito obrigado por toda ajuda e ensinamentos que vc me prestou em todos esses anos, até a próxima garoto, valeuuuuuuu...