[Resolvido]filtrar artigos

olá,
primeiramente quero agradecer por pertencer nesta grande escola onde encontrei os melhores professores, universitários, letrados em Access e não só!
volto a pedir a vossa ajuda por mais este problema onde me encontro encurralado.

a situação é o seguinte:

caso o usuário lougado for rh1 no campo txtDescricaoArtigoPedido no SubFormulário do Frm_Pedido mostre ou seleccione somente os artigos/descrições onde o código do artigo ou no campo CodigoArtigo os tres primeiro numero for 113 .
e   caso o usuário lougado for rh2 no campo txtDescricaoArtigoPedido no SubFormulário do Frm_Pedido mostre ou seleccione somente os artigos/descrições onde o código do artigo ou no campo CodigoArtigo os tres primeiro numero for 118.

ao receber o foco estou a usar o código abaixo mas não está a funfar.

Private Sub txtDescricaoArtigoPedido_GotFocus()

Select Case loginU.Usuario
   Case "Admin", "Desenv"
   Me.txtDescricaoArtigoPedido.RowSource = "SELECT ID_Art, CodigoArtigo, DescricaoArtigo, TamanhoArt FROM Tbl_CadArtigos ORDER BY CodigoArtigo;"
   Case "RH1"
   Me.txtDescricaoArtigoPedido.RowSource = "SELECT ID_Art, CodigoArtigo, DescricaoArtigo, TamanhoArt FROM Tbl_CadArtigos WHERE left(txtCodigoArtigo,3)=113 ORDER BY DescricaoArtigo;"
   Case "RH2"
   Me.txtDescricaoArtigoPedido.RowSource = "SELECT ID_Art, CodigoArtigo, DescricaoArtigo, TamanhoArt FROM Tbl_CadArtigos WHERE left(txtCodigoArtigo,3)=118 ORDER BY DescricaoArtigo;"
   Case Else
   Me.txtDescricaoArtigoPedido.RowSource = ""
End Select
End Sub

é possivel sair dessa! agradeço.

user: rh1 ou rh2
pwd: rh-123456
modo design: shift+enter

Olá


Observei que o projeto é o mesmo desse link abaixo:

https://www.maximoaccess.com/t30874-erro-funcao-dlookup

Observei também que estás errando também se referindo a um controle dentro do seu subform no seu form informando ao comando Me.
O que significa que seria Meu controle. Masss.. se ele está dentro do seu sub não poderás chamar de Me.

Enfim!

Siga as dicas do link acima na resposta do seu outro problema e veja se resolve.

Para passar o foco para um controle dentro de um subform

Me!NomeDoSeuSub.SetFocus ' Uma vez que ele é Me! pois é um controle do seu formulário

Me!NomedoSeuSub.Form!NomeDoCampo.SetFocus


Abraços

olá,
grato pelo retorno e pelo tempo disponibilizado por me ajudar.

implementei conforme as análises feito mas não esta a funfar. esta a mostrar erro na linha da função Nz.

aguardando novas orientações.

tentando sem nenhuma saída
up

olá,

estou tentando assim mas sem exito, alguém pode me ajudar a sair dessa.

Private Sub txtDescricaoArtigoPedido_GotFocus()

Select Case loginU.Usuario
   Case "Admin", "Desenv"
   Me.txtDescricaoArtigoPedido.RowSource = "SELECT ID_Art, CodigoArtigo, DescricaoArtigo, TamanhoArt FROM Tbl_CadArtigos ORDER BY CodigoArtigo;"
   Case "RH1"
   Me.txtDescricaoArtigoPedido.RowSource = "SELECT ID_Art, CodigoArtigo, DescricaoArtigo, TamanhoArt FROM Tbl_CadArtigos WHERE left(Forms!Frm_Pedido!Frm_ItemPedidoSub.Form!txtCodigoArtigo,3)=113 ORDER BY DescricaoArtigo;"
   Case "RH2"
   Me.txtDescricaoArtigoPedido.RowSource = "SELECT ID_Art, CodigoArtigo, DescricaoArtigo, TamanhoArt FROM Tbl_CadArtigos WHERE left(Forms!Frm_Pedido!Frm_ItemPedidoSub.Form!txtCodigoArtigo,3)=118 ORDER BY DescricaoArtigo;"
   Case Else
   Me.txtDescricaoArtigoPedido.RowSource = ""
End Select
End Sub

user: rh1 ou rh2
pwd: rh-123456
modo design: shift+enter

Boa tarde a si, experimente...

Private Sub txtDescricaoArtigoPedido_GotFocus()
Select Case loginU.Usuario
   Case "Admin" Or "Desenv"
   Me.txtDescricaoArtigoPedido.RowSource = "SELECT ID_Art, CodigoArtigo, DescricaoArtigo, TamanhoArt FROM Tbl_CadArtigos ORDER BY CodigoArtigo;"
   Case "RH1"
   Me.txtDescricaoArtigoPedido.RowSource = "SELECT ID_Art, CodigoArtigo, DescricaoArtigo, TamanhoArt FROM Tbl_CadArtigos WHERE Left(txtCodigoArtigo,3)='113' ORDER BY DescricaoArtigo;"
   Case "RH2"
   Me.txtDescricaoArtigoPedido.RowSource = "SELECT ID_Art, CodigoArtigo, DescricaoArtigo, TamanhoArt FROM Tbl_CadArtigos WHERE left(txtCodigoArtigo,3)='118' ORDER BY DescricaoArtigo;"
   Case Else
   Me.txtDescricaoArtigoPedido.RowSource = ""
End Select
End Sub

olá,
agradeço imenso o seu retorno tão breve amigo Silvio!!!
já tinha experimentado esta linha de código destacado a vermelho mas testei novamente..., o que acontece é o seguinte:
por exemplo, se o usuário logar com rh2, está aparecendo também as descrições dos artigo que começam com 113 no campo txtDescricaoArtigoPedido (e ao seleciona-los já não aparece o código no campo txtCodigoArtigo). mas o grande problema é que ao selecionar um outro ou vários artigos que começam com 118 a partir do campo txtDescricaoArtigoPedido está "apagando" os artigos selecionados acima ou anteriormente.

de realçar que, no campo txtCodigoArtigo está a funcionar corretamente.

agradeço a vossa ajuda.

Olá a todos,
Maryprego, analisando o código postado na mensagem nº1 parece que falta o Requery.
Como só tenho a versão 2007 e está a desenvolver numa versão superior não posso testar.

Teste assim:

Código:

Private Sub txtDescricaoArtigoPedido_GotFocus()

Select Case loginU.Usuario
    Case "Admin", "Desenv"
    Me.txtDescricaoArtigoPedido.RowSource = "SELECT ID_Art, CodigoArtigo, DescricaoArtigo, TamanhoArt FROM Tbl_CadArtigos ORDER BY CodigoArtigo;"
    Case "RH1"
    Me.txtDescricaoArtigoPedido.RowSource = "SELECT ID_Art, CodigoArtigo, DescricaoArtigo, TamanhoArt FROM Tbl_CadArtigos WHERE left(txtCodigoArtigo,3)=113 ORDER BY DescricaoArtigo;"
    Case "RH2"
    Me.txtDescricaoArtigoPedido.RowSource = "SELECT ID_Art, CodigoArtigo, DescricaoArtigo, TamanhoArt FROM Tbl_CadArtigos WHERE left(txtCodigoArtigo,3)=118 ORDER BY DescricaoArtigo;"
    Case Else
    Me.txtDescricaoArtigoPedido.RowSource = ""
End Select
    'linha adicionada
    Me.txtDescricaoArtigoPedido.Requery
    '----------
End Sub

Abraço

Bom dia ou boa tarde a todos...

Note que os números...estão entre aspas simples, '113' ou '118', aqui deu certinho.  Usando AC2010.

olá,
agradeço pelo retorno amigo ahteixeira.
testei e não notei nenhuma mudança (diferença). está acontecendo conforme já narrei na mensagem nº 7. estou com a versão 2010.

boa tarde,
não sei o que está acontecendo aqui amigo Silvio, não está dando certo
1º está a depurar no primeiro caso.
2º está acontecendo conforme narrei na msg nº 7: por exemplo, se o usuario escolher o artigo: polo homem mg curta verde, tamanho: m, o 1º não aparece o codigo  ao clicar nele (significa que é o que começa com ex: 113) o 2º artigo com mesma descrição e tamanho aparece o codigo ao clicar mas ao selecionar ou artigo "limpa" o artigo selecionado na linha anterior.

estou com AC2010

Eita..eita..

Eu abro o teu sistema usando o usuário rh1.
Vou em movimentos...depois levantamento.  Escolho um funcionário qualquer na combobox.
Depois no sub formulário eu escolho qualquer produto que está na combobox.
Será que estamos fazendo igual ??

Código:

Private Sub txtDescricaoArtigoPedido_GotFocus()
On Error GoTo fim

Select Case loginU.Usuario
    Case "Admin", "Desenv"
    Me.txtDescricaoArtigoPedido.RowSource = "SELECT ID_Art, CodigoArtigo, DescricaoArtigo, TamanhoArt FROM Tbl_CadArtigos ORDER BY CodigoArtigo;"
    Case "RH1"
    Me.txtDescricaoArtigoPedido.RowSource = "SELECT ID_Art, CodigoArtigo, DescricaoArtigo, TamanhoArt FROM Tbl_CadArtigos WHERE Left(txtCodigoArtigo,3)='113' ORDER BY DescricaoArtigo;"
    Case "RH2"
    Me.txtDescricaoArtigoPedido.RowSource = "SELECT ID_Art, CodigoArtigo, DescricaoArtigo, TamanhoArt FROM Tbl_CadArtigos WHERE left(txtCodigoArtigo,3)='118' ORDER BY DescricaoArtigo;"
    Case Else
    Me.txtDescricaoArtigoPedido.RowSource = ""
End Select
fim:
If Err.Number = 13 Then
MsgBox " Somente para administradores ou desenvolvedores !", vbInformation, Me.Caption
Me.txtCodigoArtigo.SetFocus
End If
End Sub


sim, estão a fazer igual mas tanto faz logando com o usuário rh1 ou rh2 o problema é o mesmo.

Olá a todos,
Não vi o projecto, mas pela última mensagem tem o campo código artigo e descrição.
Será aplicar a mesma técnica em ambos os campos.

Eu pessoalmente colocaria no evento ao abrir o form a fazer a alteração do rowsource.
Pois o utilizador/usuario será sempre o mesmo.

Fica a dica.
Abraço

olá a todos,

ahteixeira, seguindo a tua dica de colocar no evento ao abrir esta a depurar não sei a onde devo alterar o código...
alguém pode me ajudar a ultrapassar esta situação.

desde já agradeço.
segue a bd

olá a todos,

agradeço muito pelo tempo dispensado por me ajudarem.
dou como tópico resolvido pós vou partir por outra técnica para tentar ultrapassar esta situação.
qualquer dúvida não exitarei em vos contactar.

Olá Maryprego,
Obrigado pelo retorno, o fórum agradece.
Qualquer coisa estamos cá
Abraço a todos