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


4 participantes

    [Resolvido]Grupo de opções retornar texto

    avatar
    Max Ramos
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 139
    Registrado : 18/09/2012

    [Resolvido]Grupo de opções retornar texto Empty Grupo de opções retornar texto

    Mensagem  Max Ramos 25/4/2013, 15:50

    Bom dia a todos, eu criei um grupo de opções para escolher a maquina que eu irei realizar as manutenções, mas o grupo de opções me retorna apenas valores numericos (1,2,3,...) tem como eu fazer com que ele me retorme o nome do maquinário?

    Tentei fazer uma consulta com um "se" mas não consegui.
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8498
    Registrado : 05/11/2009

    [Resolvido]Grupo de opções retornar texto Empty Re: [Resolvido]Grupo de opções retornar texto

    Mensagem  Alexandre Neves 25/4/2013, 15:59

    Boa tarde,
    Associe cada valor à descrição que pretende, seja por if's seja por select case, por array ou por função


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    Leandro
    Leandro
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1601
    Registrado : 12/11/2009

    [Resolvido]Grupo de opções retornar texto Empty Re: [Resolvido]Grupo de opções retornar texto

    Mensagem  Leandro 25/4/2013, 16:01

    Max, movi o tópico para a sala correta.

    Se os equipamentos tem uma tabela só para eles, devem ter um código, coloque esse código, o que acha?

    avatar
    Max Ramos
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 139
    Registrado : 18/09/2012

    [Resolvido]Grupo de opções retornar texto Empty Re: [Resolvido]Grupo de opções retornar texto

    Mensagem  Max Ramos 25/4/2013, 16:04

    Alexandre, pode me dar um exemplo, eu não to conseguindo.

    o: SeImed([LOCAL_ANOM_FUN]=1;"Transformador") Ou SeImed([LOCAL_ANOM_FUN]=2;"Painel eletrico";0)

    Obs.: eu tenho 20 opções.

    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8498
    Registrado : 05/11/2009

    [Resolvido]Grupo de opções retornar texto Empty Re: [Resolvido]Grupo de opções retornar texto

    Mensagem  Alexandre Neves 25/4/2013, 16:05

    Depende onde esteja a utilizar o código


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    Max Ramos
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 139
    Registrado : 18/09/2012

    [Resolvido]Grupo de opções retornar texto Empty Re: [Resolvido]Grupo de opções retornar texto

    Mensagem  Max Ramos 25/4/2013, 16:08

    Como assim Leandro.
    Eu posso criar uma tabela e depois fazer um grupo de opções p ela e armazenar na tabela que eu quero inserir os dados?
    avatar
    Max Ramos
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 139
    Registrado : 18/09/2012

    [Resolvido]Grupo de opções retornar texto Empty Re: [Resolvido]Grupo de opções retornar texto

    Mensagem  Max Ramos 25/4/2013, 16:24

    Estou usando na consulta
    avatar
    Max Ramos
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 139
    Registrado : 18/09/2012

    [Resolvido]Grupo de opções retornar texto Empty Re: [Resolvido]Grupo de opções retornar texto

    Mensagem  Max Ramos 25/4/2013, 16:27

    To colocando o banco em anexo, é a unica consulta que eu fiz por enquanto.
    Anexos
    [Resolvido]Grupo de opções retornar texto AttachmentCartão Ident. Anomalia.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (454 Kb) Baixado 26 vez(es)
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8498
    Registrado : 05/11/2009

    [Resolvido]Grupo de opções retornar texto Empty Re: [Resolvido]Grupo de opções retornar texto

    Mensagem  Alexandre Neves 25/4/2013, 18:16

    Para utilizar na consulta, faça uma função e chame-a na consulta


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    Max Ramos
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 139
    Registrado : 18/09/2012

    [Resolvido]Grupo de opções retornar texto Empty Re: [Resolvido]Grupo de opções retornar texto

    Mensagem  Max Ramos 25/4/2013, 18:18

    Entao, fiz isso e ta dando erro, a mesma função que eu utilizei em outro BD e deu certo.

    Coloquei ele em anexo ai.
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8498
    Registrado : 05/11/2009

    [Resolvido]Grupo de opções retornar texto Empty Re: [Resolvido]Grupo de opções retornar texto

    Mensagem  Alexandre Neves 25/4/2013, 18:19

    onde está a função?
    não entendi as opções na consulta


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    Max Ramos
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 139
    Registrado : 18/09/2012

    [Resolvido]Grupo de opções retornar texto Empty Re: [Resolvido]Grupo de opções retornar texto

    Mensagem  Max Ramos 25/4/2013, 18:39

    Tentei na coluna "o" e na "k"
    Quero pegar os valores da coluna LADO_FUN e fazer a função ou pode ser a coluna LOCAL_ANOM_FUN
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8498
    Registrado : 05/11/2009

    [Resolvido]Grupo de opções retornar texto Empty Re: [Resolvido]Grupo de opções retornar texto

    Mensagem  Alexandre Neves 25/4/2013, 18:41

    Dê todos os detalhes da função


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    Max Ramos
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 139
    Registrado : 18/09/2012

    [Resolvido]Grupo de opções retornar texto Empty Re: [Resolvido]Grupo de opções retornar texto

    Mensagem  Max Ramos 25/4/2013, 18:46

    Então, a coluna LOCAL_ANOM_FUN recebe os valores de 1 a 20 e cada um desses numeros representa a um localo onde será feita a manutenção, tentei fazer a seguinte função o: SeImed([LOCAL_ANOM_FUN]=1;"Transformador;0), mas ta dando erro.
    Tentei fazer outra que tem um OU tipo assim SeImed([LOCAL_ANOM_FUN]=1;"Transformador;0) ou SeImed([LOCAL_ANOM_FUN]=1;"Dispositivo;0), mas não ta dando, dá erro.
    o que eu to fazendo de errado?
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8498
    Registrado : 05/11/2009

    [Resolvido]Grupo de opções retornar texto Empty Re: [Resolvido]Grupo de opções retornar texto

    Mensagem  Alexandre Neves 25/4/2013, 19:36

    Continua às pinguinhas
    o código vai de 1 a 20. Está armazenado em tabela? onde? ou qual a correspondência dos valores?


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    Max Ramos
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 139
    Registrado : 18/09/2012

    [Resolvido]Grupo de opções retornar texto Empty Re: [Resolvido]Grupo de opções retornar texto

    Mensagem  Max Ramos 26/4/2013, 11:21

    Alexandre, eu criei um formulário "Cartão Funilaria LANÇAMENTO" e nele o usuário vai marcar em qual equipamento vai fazer a manutenção em um grupo de opções, quando ele marca o o equipamento minha tabela "Lançamento funilaria" a coluna "LOCAL_ANOM_FUN" recebe um valor numérico, tenho 20 equipamentos diferentes, então por exemplo, se ele marcar a primeira opção que é "TRANSFORMADOR" a coluna acima recebe o valor 1 mas eu preciso que nas minhas consultas ou relatórios apareça o nome do equipamento e não o número.

    Ps.: O mesmo acontece com as outras caixas de opções do formulário.
    avatar
    Max Ramos
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 139
    Registrado : 18/09/2012

    [Resolvido]Grupo de opções retornar texto Empty Re: [Resolvido]Grupo de opções retornar texto

    Mensagem  Max Ramos 26/4/2013, 12:30

    Alexandre, coloquei o bando em anexo denovo, criei uma consulta chamada "TESTESeImed" nela tem o que eu to precisando, mas a função que eu coloquei não ta dando certo, mas eu tenho certeza de que eu escrevi certo.
    Anexos
    [Resolvido]Grupo de opções retornar texto AttachmentCartão Ident. Anomalia.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (480 Kb) Baixado 14 vez(es)
    avatar
    Max Ramos
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 139
    Registrado : 18/09/2012

    [Resolvido]Grupo de opções retornar texto Empty Re: [Resolvido]Grupo de opções retornar texto

    Mensagem  Max Ramos 26/4/2013, 12:44

    Gente, resumindo meu problema, eu preciso que aparece o rótulo na tabela ou nos meus relatórios, como eu faço isso?
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3900
    Registrado : 04/04/2010

    [Resolvido]Grupo de opções retornar texto Empty Re: [Resolvido]Grupo de opções retornar texto

    Mensagem  Avelino Sampaio 26/4/2013, 13:24

    Minha dica é a seguinte: use a função Split().

    Fiz um pequeno relatório no exemplo, para vc entender a ideia.

    Segue o código do relatório, preenchendo somente o campo LOCAL.

    Código:
    Option Compare Database
    Dim k

    Private Sub Detalhe_Print(Cancel As Integer, PrintCount As Integer)
    Me!LOCAL = k(Val(Me!LOCAL_ANOM_FUN) - 1)
    End Sub

    Private Sub Report_Open(Cancel As Integer)
    Dim strLocal As String
    strLocal = "Transformador,Painel Elétrico,Bomba Adesivo,Motor Redutor" 'continue o preechimento
    k = Split(strLocal, ",")
    End Sub

    Sucesso!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    Max Ramos
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 139
    Registrado : 18/09/2012

    [Resolvido]Grupo de opções retornar texto Empty Re: [Resolvido]Grupo de opções retornar texto

    Mensagem  Max Ramos 26/4/2013, 13:43

    Cara adorei, ficou ótimo, assim eu posso extender para as outras.
    Mas como eu faço para fazer na tabela, tipo a consulta que eu fiz e tava dando erro?
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3900
    Registrado : 04/04/2010

    [Resolvido]Grupo de opções retornar texto Empty Re: [Resolvido]Grupo de opções retornar texto

    Mensagem  Avelino Sampaio 26/4/2013, 14:13

    Vc pode criar uma função global e usar isso na consulta.

    Exemplo da função:

    Código:
    Public Function fncLocalAnomalia(strValor As String)
    Dim strLocal As String
    strLocal = "Transformador,Painel Elétrico,Bomba Adesivo,Motor Redutor" 'continue o preechimento
    k = Split(strLocal, ",")
    fncLocalAnomalia = k(Val(strValor) - 1)
    End Function

    Usa na consulta "Tebelao", criando um campo virtual assim:

    Local: fncLocalAnomalia([LOCAL_ANOM_FUN])

    E pode usar a mesma função no relatório

    Código:
    Private Sub Detalhe_Print(Cancel As Integer, PrintCount As Integer)
    Me!LOCAL = fncLocalAnomalia(me!LOCAL_ANOM_FUN)
    End Sub

    Sucesso!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    Max Ramos
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 139
    Registrado : 18/09/2012

    [Resolvido]Grupo de opções retornar texto Empty Re: [Resolvido]Grupo de opções retornar texto

    Mensagem  Max Ramos 26/4/2013, 14:38

    Avelino, tem como vc explicar como eu faço isso?
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3900
    Registrado : 04/04/2010

    [Resolvido]Grupo de opções retornar texto Empty Re: [Resolvido]Grupo de opções retornar texto

    Mensagem  Avelino Sampaio 29/4/2013, 11:25

    Veja a função aplicada no relatório e na consulta Tabelao (último campo)

    Sucesso!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    Max Ramos
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 139
    Registrado : 18/09/2012

    [Resolvido]Grupo de opções retornar texto Empty Re: [Resolvido]Grupo de opções retornar texto

    Mensagem  Max Ramos 30/4/2013, 11:39

    Galera, muito obrigado, vcs são dmais Very Happy Very Happy Very Happy

    Conteúdo patrocinado


    [Resolvido]Grupo de opções retornar texto Empty Re: [Resolvido]Grupo de opções retornar texto

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 06:58