[Resolvido]Filtro na Combo

Pessoal,

A um tempo atrás aqui nesse mesmo fórum eu postei uma dúvida, a respeito de um filtro que eu deveria efetuar em uma combo de um sub-formulário contínuo, de modo que os dados que fossem selecionados não aparecesse mais nas próximas linhas, perfeito tanto o código quanto o resultado:

Código:

TxtFornecedor.RowSource = "SELECT [Id_Fornecedor] FROM [Tab_Fornecedores] WHERE [Id_Fornecedor] NOT IN (SELECT [Id_Fornecedor] FROM [Tab_Force_Prod] WHERE Id_Produto=" & Forms!Formulario_Navegacao!Formulario_Produtos!TxtId_Produto & ") ORDER BY [Id_Fornecedor];"

Porém a algumas semanas apareceu a necessidade de colocarmos mais segurança no projeto, de forma que cada usuário logado acessasse somente os dados que ele inseriu, até aí perfeito também.

Baseado no exemplo do mestre Avelino: aqui, criei esse procedimento, em resumo, criei uma função dentro de consultas que chama a variável do id usuário logado.

A pergunta é: como adapto o código anterior de modo que o filtro além de ser da forma que foi efetuada, um código único para cada produto (Id_Produto), também utilize o filtro do usuário logado?

Campo filtro na consulta:

Código:

SeImed(fncIdUsuario()=1;[idusuario]>0;[idusuario]=fncIdUsuario())

Obrigado a todos!

Wellington

Estou com um problema idêntico.

Olá Júlia,

Uma solução é criar uma consulta filtrando o usuário, e usar essa consulta no lugar da tabela, no código vba.
Usando o exemplo do tópico, ao invés de:

TxtFornecedor.RowSource = "SELECT [Id_Fornecedor] FROM [Tab_Fornecedores] WHERE [Id_Fornecedor] NOT IN (SELECT [Id_Fornecedor] FROM [Tab_Force_Prod] WHERE Id_Produto=" & Forms!Formulario_Navegacao!Formulario_Produtos!TxtId_Produto & ") ORDER BY [Id_Fornecedor];"

O código seria:

TxtFornecedor.RowSource = "SELECT [Id_Fornecedor] FROM [Cons_Fornecedores] WHERE [Id_Fornecedor] NOT IN (SELECT [Id_Fornecedor] FROM [Tab_Force_Prod] WHERE Id_Produto=" & Forms!Formulario_Navegacao!Formulario_Produtos!TxtId_Produto & ") ORDER BY [Id_Fornecedor];"

Não faz muito sentido uma consulta na tabela de Fornecedores filtrando o usuário logado, mas talvez possa aplicar o conceito no seu projeto.

Cláudio,

Realmente, o que você sugeriu funciona, porém ocorre uma divergência quando atualizamos ou inserimos um segundo registro.

O filtro utiliza o resto dos itens que foram filtrados do objeto anterior, isso vale somente para a primeira linha.

Exemplo:

Cadastrei o produto 1 na cambo que possui os itens 1, 2, 3 e 4
Utilizei os itens 1 e 2 (sobraram 3 e 4). Perfeito!

Ao cadastrar o produto 2 na primeira linha aparece os itens 3 e 4 (sobra do produto 1), porém ao se tratar um novo produto e com um ID novo, deveria
aparecer 1, 2, 3 e 4 na combo.

Como eu disse, quando atualizo essa primeira linha o filtro volta a funcionar perfeitamente.

** Também acho não fazer sentido um filtro pelo usuário logado nos dados dos fornecedores, sugeri o inverso, porém foi definido que cada usuário ficasse
responsável pelos itens cadastrados por ele, enfim...

Novamente agradeço o auxílio.

Cláudio,

Problema solucionado, coloquei o SQL no evento "Ao receber foco", agora funciona perfeitamente.

Código:

Private Sub TxtFornecedor_GotFocus()
TxtFornecedor.RowSource = "SELECT [Id_Fornecedor] FROM [Cons_Fornecedores] WHERE [Id_Fornecedor] NOT IN (SELECT [Id_Fornecedor] FROM [Tab_Force_Prod] WHERE Id_Produto=" & Forms!Formulario_Produtos!TxtId_Produto & ") ORDER BY [Id_Fornecedor];"
End Sub

Obrigado.

Fantástico meninos! Esse já era...    

Valeu

Julia