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]Select Case

    avatar
    Stalloni
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 21
    Registrado : 15/05/2012

    [Resolvido]Select Case Empty [Resolvido]Select Case

    Mensagem  Stalloni 19/9/2024, 17:13

    Olá amigos! mais uma vez recorro a vocês.
    É possível utilizar a instrução "Select Case" para selecionar opções em dois grupos de opções diferentes? se sim como seria a referência aos grupos?
    Connekta Informatica
    Connekta Informatica
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1082
    Registrado : 01/07/2011

    [Resolvido]Select Case Empty Re: [Resolvido]Select Case

    Mensagem  Connekta Informatica 19/9/2024, 21:42

    Boa tarde

    Seria de forma:
    Código:

    Dim opcaoGrupo1 As Integer
    Dim opcaoGrupo2 As Integer

    ' Supondo que GrupoOpcoes1 e GrupoOpcoes2 são os nomes dos seus grupos de opções
    opcaoGrupo1 = Me.GrupoOpcoes1.Value
    opcaoGrupo2 = Me.GrupoOpcoes2.Value

    Select Case opcaoGrupo1
        Case 1
            ' Código para a primeira opção do GrupoOpcoes1
        Case 2
            ' Código para a segunda opção do GrupoOpcoes1
        ' Adicione mais casos conforme necessário
    End Select

    Select Case opcaoGrupo2
        Case 1
            ' Código para a primeira opção do GrupoOpcoes2
        Case 2
            ' Código para a segunda opção do GrupoOpcoes2
        ' Adicione mais casos conforme necessário
    End Select

    Stalloni gosta desta mensagem

    avatar
    Stalloni
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 21
    Registrado : 15/05/2012

    [Resolvido]Select Case Empty Resposta

    Mensagem  Stalloni 20/9/2024, 13:51

    Obrigado! vou aplicar e depois dou feedback
    avatar
    Stalloni
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 21
    Registrado : 15/05/2012

    [Resolvido]Select Case Empty Erro

    Mensagem  Stalloni 20/9/2024, 17:10

    Olá! apliquei no código abaixo, mas quando seleciono a opção de outro grupo ficam ambas selecionadas, e ainda apresenta o erro "Uso de "Null" invalido", então o depurador indica a linha - Relatórios = Me.Relatórios.Value, parecendo não identificar o grupo "Cadastro"
                           Desde já agradeço pela ajuda.


    Private Sub Abrir_Click()

    Dim Cadastro As Integer
    Dim Relatórios As Integer

    Cadastro = Me.Cadastro.Value
    Relatórios = Me.Relatórios.Value

       Select Case Cadastro
    Case 1
    Me.sfm.SourceObject = "Table." & "_CBP"
    Case 2
    Me.sfm.SourceObject = "Table." & "PL_Contas"
    End Select

       Select Case Relatórios
    Case 5
    Me.sfm.SourceObject = "Report." & "DABP_AG41"
    Case 6
    Me.sfm.SourceObject = "Report." & "DMBP_AG41"
    Case 7
    Me.sfm.SourceObject = "Report." & "Inventário"
    Case 8
    Me.sfm.SourceObject = "Report." & "Arrolamento"
    End Select

    End Sub
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Select Case Empty Re: [Resolvido]Select Case

    Mensagem  Alexandre Neves 22/9/2024, 22:06

    Boa noite
    Mantenha o título. Cada assunto só deve ter um título


    .................................................................................
    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

    Stalloni gosta desta mensagem

    avatar
    Stalloni
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 21
    Registrado : 15/05/2012

    [Resolvido]Select Case Empty Select Case

    Mensagem  Stalloni 23/9/2024, 16:20

    Olá! peço desculpas, pois nunca entendia mesmo pq sempre ter que colocar um Título, é meu primeiro contato com VB, e é só para otimizar meu trabalho mesmo, não ganho nada mais por isso e não tenho interesse em defraudar ninguém, agradeço pelas orientações e ajuda que vcs do fórum sempre me dão.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3472
    Registrado : 13/12/2016

    [Resolvido]Select Case Empty Re: [Resolvido]Select Case

    Mensagem  Alexandre Fim 23/9/2024, 18:02

    Olá Stalloni,

    No modo Design do formulário, neste 2º grupo de opção, verifique na Folha de Propriedades, na guia Dados, a propriedade "Valor de opção".
    É provavel que mais de uma opção esteja com o mesmo valor, e ai o Access vai selecionar as 2 simultaneamente.

    Att,

    Alexandre Fim


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Select Case Setinf11
    Sistemas e Tecnologia Ltda

    Stalloni gosta desta mensagem

    avatar
    Stalloni
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 21
    Registrado : 15/05/2012

    [Resolvido]Select Case Empty Select Case

    Mensagem  Stalloni 24/9/2024, 16:52

    Olá!
    Optei por utilizar da forma mais simples mesmo, com dois grupos de opções.
    Obrigado.

    Conteúdo patrocinado


    [Resolvido]Select Case Empty Re: [Resolvido]Select Case

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/10/2024, 02:28