MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]filtrar artigos

    Compartilhe

    maryprego
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Angola
    Mensagens : 46
    Registrado : 16/07/2017

    [Resolvido]filtrar artigos

    Mensagem  maryprego em Dom 30 Jul 2017, 21:11

    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
    Anexos
    Controlo_de_estoque_rh.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.9 Mb) Baixado 10 vez(es)

    Phillip_Junior
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 179
    Registrado : 09/12/2016

    Re: [Resolvido]filtrar artigos

    Mensagem  Phillip_Junior em Dom 30 Jul 2017, 22:30

    Olá


    Observei que o projeto é o mesmo desse link abaixo:

    [Você precisa estar registrado e conectado para ver este link.]

    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
















    .................................................................................
    Phillip_Junior
    Analista de Sistemas

    maryprego
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Angola
    Mensagens : 46
    Registrado : 16/07/2017

    Re: [Resolvido]filtrar artigos

    Mensagem  maryprego em Seg 31 Jul 2017, 20:11

    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.

    maryprego
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Angola
    Mensagens : 46
    Registrado : 16/07/2017

    Re: [Resolvido]filtrar artigos

    Mensagem  maryprego em Qua 02 Ago 2017, 21:28

    tentando sem nenhuma saída
    up

    maryprego
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Angola
    Mensagens : 46
    Registrado : 16/07/2017

    Re: [Resolvido]filtrar artigos

    Mensagem  maryprego em Sex 11 Ago 2017, 14:35

    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
    Anexos
    exemplo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.9 Mb) Baixado 4 vez(es)
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3615
    Registrado : 20/04/2011

    Re: [Resolvido]filtrar artigos

    Mensagem  Silvio em Sex 11 Ago 2017, 18:33

    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


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    maryprego
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Angola
    Mensagens : 46
    Registrado : 16/07/2017

    Re: [Resolvido]filtrar artigos

    Mensagem  maryprego em Sab 12 Ago 2017, 11:36

    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.
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4397
    Registrado : 15/03/2013

    Re: [Resolvido]filtrar artigos

    Mensagem  ahteixeira em Sab 12 Ago 2017, 13:06

    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
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3615
    Registrado : 20/04/2011

    Re: [Resolvido]filtrar artigos

    Mensagem  Silvio em Sab 12 Ago 2017, 13:45

    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.
    Anexos
    exemplo_new.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.9 Mb) Baixado 2 vez(es)


    Última edição por Silvio em Sab 12 Ago 2017, 13:48, editado 1 vez(es) (Razão : Adição de arquivo exemplo)


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    maryprego
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Angola
    Mensagens : 46
    Registrado : 16/07/2017

    Re: [Resolvido]filtrar artigos

    Mensagem  maryprego em Sab 12 Ago 2017, 13:50

    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.

    maryprego
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Angola
    Mensagens : 46
    Registrado : 16/07/2017

    Re: [Resolvido]filtrar artigos

    Mensagem  maryprego em Sab 12 Ago 2017, 14:12

    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
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3615
    Registrado : 20/04/2011

    Re: [Resolvido]filtrar artigos

    Mensagem  Silvio em Sab 12 Ago 2017, 14:35

    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


    Última edição por Silvio em Sab 12 Ago 2017, 15:06, editado 1 vez(es) (Razão : Inclusão de código.)


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    maryprego
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Angola
    Mensagens : 46
    Registrado : 16/07/2017

    Re: [Resolvido]filtrar artigos

    Mensagem  maryprego em Sab 12 Ago 2017, 15:14

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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4397
    Registrado : 15/03/2013

    Re: [Resolvido]filtrar artigos

    Mensagem  ahteixeira em Sab 12 Ago 2017, 15:26

    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

    maryprego
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Angola
    Mensagens : 46
    Registrado : 16/07/2017

    Re: [Resolvido]filtrar artigos

    Mensagem  maryprego em Seg 14 Ago 2017, 20:05

    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
    Anexos
    exemplo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (2.6 Mb) Baixado 4 vez(es)

    maryprego
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Angola
    Mensagens : 46
    Registrado : 16/07/2017

    Re: [Resolvido]filtrar artigos

    Mensagem  maryprego em Sex 18 Ago 2017, 13:12

    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.
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4397
    Registrado : 15/03/2013

    Re: [Resolvido]filtrar artigos

    Mensagem  ahteixeira em Sab 19 Ago 2017, 12:34

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

      Data/hora atual: Sab 23 Set 2017, 06:46