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


3 participantes

    [Resolvido]Botão de opção e caixa de combinação

    avatar
    Alberto Moura
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 71
    Registrado : 13/01/2015

    [Resolvido]Botão de opção e caixa de combinação Empty [Resolvido]Botão de opção e caixa de combinação

    Mensagem  Alberto Moura 7/12/2017, 15:01

    Boa tarde! Amigos, é possível por código ao escolher um botão de opção preencher uma caixa de combinação com determinados nomes?
    tentei fazer da forma abaixo mais só exibir somente um nome.
    Código:
    Private Sub opcaoespecie_Click()
    Select Case opcaoespecie

     Case 1
        Me.caixadecombinação.Value = "texto1"
        Me.caixadecombinação.Value = "texto2"                                       
     Case 2
        Me.caixadecombinação.Value = "texto3"
        Me.caixadecombinação.Value = "texto4"
     Case 3
       Me.caixadecombinação.Value = "texto5"
       Me.caixadecombinação.Value = "texto6"
       Me.caixadecombinação.Value = "texto7"
                                               "                             
     
       End If
       End Select
    avatar
    Lucio Warley Lippi
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 57
    Registrado : 07/01/2017

    [Resolvido]Botão de opção e caixa de combinação Empty Re: [Resolvido]Botão de opção e caixa de combinação

    Mensagem  Lucio Warley Lippi 10/12/2017, 21:35

    Olá Alberto Moura;

    Tente trocar .Value por .ControlSource nas suas instruções.

    Espero o ter ajudado.
    tauron
    tauron
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1416
    Registrado : 07/12/2011

    [Resolvido]Botão de opção e caixa de combinação Empty Re: [Resolvido]Botão de opção e caixa de combinação

    Mensagem  tauron 11/12/2017, 00:02

    Boa noite Alberto, primeiramente peço que reveja seu formulario pois pelo codigo postado tenho a impressao que so exite uma caixa de combinacao sendo que cada opcao possui no minimo dois textos.

    este codigo deve ser posto no evento "apos atualizar" do quadro e nao ha necessidade de colocar o "value" ou "controlsource"
    avatar
    Alberto Moura
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 71
    Registrado : 13/01/2015

    [Resolvido]Botão de opção e caixa de combinação Empty Re: [Resolvido]Botão de opção e caixa de combinação

    Mensagem  Alberto Moura 12/12/2017, 01:31

    Boa noite amigos
    Resolvido com ajuda do amigo Alaxandre Fim, conforme código abaixo:
    Desde já grato com ajuda dos demais...

    Código:

    Private Sub CarregaCombo()

    '==========================================================================
    'Este procedimento é necessários para limpar o combo toda vez
    'que remontá-lo. Do contrário, os dados serão duplicados

    cboDados.RowSource = Empty 'Define a fonte de registro do combobox como vazio
    cboDados.Requery 'Atualiza o combobox vazio

    '============================================================================

    'Adcionando itens ao combo

    With cboDados
    .AddItem "1º item da Lista"
    .AddItem "2º item da Lista"
    .AddItem "3º item da Lista"
    .AddItem "4º item da Lista"
    .AddItem "5º item da Lista"
    End With

    End Sub


    Att,

    Alexandre

    Conteúdo patrocinado


    [Resolvido]Botão de opção e caixa de combinação Empty Re: [Resolvido]Botão de opção e caixa de combinação

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/11/2024, 22:12