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]Botão de opção e caixa de combinação

    Compartilhe

    Alberto Moura
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  Alberto Moura em Qui 07 Dez 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

    Lucio Warley Lippi
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  Lucio Warley Lippi em Dom 10 Dez 2017, 21:35

    Olá Alberto Moura;

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

    Espero o ter ajudado.
    avatar
    tauron
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

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

    Mensagem  tauron em Seg 11 Dez 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"

    Alberto Moura
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  Alberto Moura em Ter 12 Dez 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

      Data/hora atual: Qua 17 Jan 2018, 19:54