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]Preencher combox com lista de valores através do VBA

    Access365
    Access365
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 288
    Registrado : 09/07/2012

    [Resolvido]Preencher combox com lista de valores através do VBA Empty [Resolvido]Preencher combox com lista de valores através do VBA

    Mensagem  Access365 5/4/2015, 19:50

    Olá pessoal!

    Como prencher combox com lista de valores?

    Na combox 1: escolho o item A
    então. ..
    Na combox 2 deve aparecer:
    Produto 1
    Produto 2
    Produto 3

    Tipo:

    Private Sub combox1_AfterUpdate ()
    If Me.combox1 = "A" Then
    Me.combox2 = "Produto 1", "Produto 2", Produto 3"
    Exit Sub
    End If
    End Sub

    Seria como se eu digitasse na propriedade da combox2
    a lista de valores que eu precisasse, mas não posso fazer
    isso pq a combox1 será alterada e a combox2 deverá ser
    preenchida com outros produtos.

    Luz e Paz
    rubenscouto
    rubenscouto
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 679
    Registrado : 02/10/2011

    [Resolvido]Preencher combox com lista de valores através do VBA Empty Re: [Resolvido]Preencher combox com lista de valores através do VBA

    Mensagem  rubenscouto 6/4/2015, 00:48

    estas combos são baseadas em tabelas ou valores tipo texto? Explique melhor como será o que precisa.
    Access365
    Access365
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 288
    Registrado : 09/07/2012

    [Resolvido]Preencher combox com lista de valores através do VBA Empty Re: [Resolvido]Preencher combox com lista de valores através do VBA

    Mensagem  Access365 8/4/2015, 18:35

    Olá rubenscouto,

    NÃO estão relacionados a nenhuma tabela...
    Mas eu necessito destes valores para filtrar um relatório.

    Os valores a serem inseridos são:
    PTM atingido;PTM não atingido

    Pois um relatório será aberto com uma dessas filtragem:
    [Forms]![frmImprimir].[cboComplemento]

    A combo que receberá esta "Lista de valores" é a cboComplemento,
    mas uma combo anterior terá que ser escolhida, e sóentão ao escolher o
    relatório "PTM", esses valores poderão entrar, pois existirá outras
    possibilidades para impressão com o mesmo Relatório.
    rubenscouto
    rubenscouto
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 679
    Registrado : 02/10/2011

    [Resolvido]Preencher combox com lista de valores através do VBA Empty Re: [Resolvido]Preencher combox com lista de valores através do VBA

    Mensagem  rubenscouto 9/4/2015, 00:09

    tai.
    Anexos
    [Resolvido]Preencher combox com lista de valores através do VBA AttachmentAdicionarDadoComboNaoAcoplada.accdb.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (24 Kb) Baixado 32 vez(es)
    Access365
    Access365
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 288
    Registrado : 09/07/2012

    [Resolvido]Preencher combox com lista de valores através do VBA Empty Re: [Resolvido]Preencher combox com lista de valores através do VBA

    Mensagem  Access365 24/4/2015, 21:46

    Deu certo!

    ==========
    Private Sub cboRel_AfterUpdate()
    On Error Resume Next
    DoCmd.SetWarnings False
    If IsNull(cboRel) Or Me!cboRel = "" Then
    MsgBox "Escolha um tipo de relatório!", vbCritical, "AVISO"
    Me.cboRel.SetFocus
    Me.cboTipo = ""
    Exit Sub
    End If

    Dim ctl As Control
    Me!cboTipo.Enabled = True
    Set ctl = Me!cboTipo
    If Me!cboRel = "PT Mínimo" Then
    ctl.RowSource = "PTM atingido" & ";" & "PTM não atingido"
    Me.cboTipo = ""
    ElseIf Me!cboRel = "Alertas" Then
    ctl.RowSource = "Janeiro" & ";" & "Fevereiro" & ";" & "Março" & ";" & "Abril" & ";" & "Maio" & ";" _
    & "Junho" & ";" & "Julho" & ";" & "Agosto" & ";" & "Setembro" & ";" & "Outubro" & ";" & "Novembro" & ";" & "Dezembro"
    Me.cboTipo = ""
    ElseIf Me!cboRel = "Fornecedores" Then
    ctl.RowSource = "Desinibidos" & ";" & "Inibidos"
    Me.cboTipo = ""
    End If
    End Sub
    =========

    Obrigado rubenscouto... Luz e Paz!

    Conteúdo patrocinado


    [Resolvido]Preencher combox com lista de valores através do VBA Empty Re: [Resolvido]Preencher combox com lista de valores através do VBA

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 16:12