MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

    [Resolvido]grupo opções

    avatar
    matutano
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 358
    Registrado : 16/05/2011

    [Resolvido]grupo opções Empty grupo opções

    Mensagem  matutano 2/10/2011, 15:39

    tenho uma moldura com 3 opções que filtra uma comba no subfrm e no evento depois de actualizar tenho estes codigos:

    Private Sub Moldura197_AfterUpdate()
    If Me.Moldura197.Value = 1 Then
    Me.txtFiltra.Value = "LIMP"
    ElseIf Me.Moldura197.Value = 2 Then
    Me.txtFiltra.Value = "OBRA"
    Else
    Me.txtFiltra.Value = "ARRU"
    End If
    Forms!frm_caixaSaidas.detalheSaidas_subformulário.Form!CodProduto.Requery

    na consulta, no critério isto:
    como "*"& [formulario]!frmsaida]![txtFiltra]&"*"

    Está tudo a trabalha bem,mas preciso de acrecentar mais 6 opções "VEST","ALIM", "CALÇ", "DIVR","ELET", "SINL"
    e ao tentar acrecentar no evento mais estas opções dá erro.
    o que peço é se há alguém com desponiblidade para ajudar a rescrever o codigo acima pois não estou a conseguir
    obrigado.
    avatar
    matutano
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 358
    Registrado : 16/05/2011

    [Resolvido]grupo opções Empty Re: [Resolvido]grupo opções

    Mensagem  matutano 3/10/2011, 00:25

    Parece-me ter resolvido desta forma, se por acaso os entendidos acharem que não está correto, o codigo abaixo
    agradeço ajuda.

    Private Sub Moldura249_AfterUpdate()
    If Me.Moldura249.Value = 1 Then
    Me.txtFiltra.Value = "LIMP"
    ElseIf Me.Moldura249.Value = 2 Then
    Me.txtFiltra.Value = "CALÇ"
    ElseIf Me.Moldura249.Value = 3 Then
    Me.txtFiltra.Value = "ARRU"
    ElseIf Me.Moldura249.Value = 4 Then
    Me.txtFiltra.Value = "VEST"
    ElseIf Me.Moldura249.Value = 5 Then
    Me.txtFiltra.Value = "DIVR"
    ElseIf Me.Moldura249.Value = 6 Then
    Me.txtFiltra.Value = "ALIM"
    Else
    Me.txtFiltra.Value = "SACO"
    End If

    Forms!frm_caixaSaidas.detalheSaidas_subformulário.Form!CodProduto.Requery
    End Sub
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]grupo opções Empty Re: [Resolvido]grupo opções

    Mensagem  JPaulo 3/10/2011, 14:03

    É isso mesmo.

    Poderia era ter continuado neste tópico, em vez de abrir novo.

    http://maximoaccess.forumeiros.com/t4602-resolvidoformulario-com-grupo-de-opcoes

    Resolvido.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]grupo opções Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]grupo opções Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]grupo opções Folder_announce_new Instruções SQL como utilizar...
    avatar
    matutano
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 358
    Registrado : 16/05/2011

    [Resolvido]grupo opções Empty Re: [Resolvido]grupo opções

    Mensagem  matutano 3/10/2011, 21:56

    Peço desculpa
    avatar
    matutano
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 358
    Registrado : 16/05/2011

    [Resolvido]grupo opções Empty Grupo Opções

    Mensagem  matutano 4/10/2011, 12:37

    Boa tarde, estou com uma situação, que não sei se á volta a dar que é o seguinte: tenho um grupo de opções que filta uma combo no subformulario nas propriadades do grupo de opções retirei a opção 1 predefinido e portanto quando abro o formulario tenho toda a listagem na combo do subfrm quando marco a opcão A,B ou C só aparece na listagem da combo a opção escolhida se precisar de toda a listagem na combo tenho que fechar o formulario e voltar abrir será que é possivel desativar o grupo de opções para ter a listagem disponivel sem ter que fechar o formulario e voltar abrir?

    Obrigado

    Conteúdo patrocinado


    [Resolvido]grupo opções Empty Re: [Resolvido]grupo opções

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 23/11/2024, 05:24