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]Ordenação e Valores - Combo (Exemplo do Criquio)

    julia-melo
    julia-melo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 72
    Registrado : 02/01/2013

    [Resolvido]Ordenação e Valores - Combo (Exemplo do Criquio) Empty [Resolvido]Ordenação e Valores - Combo (Exemplo do Criquio)

    Mensagem  julia-melo 17/2/2014, 12:23

    Olá!

    Pessoal, eu estava precisando desenvolver um método que enviasse e-mail pelo Access, encontrei aqui no Fórum um exemplo que resolveu o meu problema (exemplo do Criquio) e diga-se de passagem muito bom.

    Sendo assim, efetuei todos os ajustes adicionei ao meu projeto e passou a funcionar perfeitamente, porém eu gostaria que em um determinado formulário (frmPesquisa) em uma combo (cboCampos) ficasse disponível somente os campos/descrição que deverei utilizar, são eles:

    Assunto, Cc, Cco, Data, De, Hora, Mensagem e Para (nessa ordem e nessa formatação)

    Verifiquei que a combo é populada de acordo com um comando VBA (abaixo), porém tentei de todas as formas efetuar esse ajuste e ocorre diversos erros:

    Código:
    Me.cboCampos.RowSource = ""
    Me.cboCampos.RowSourceType = "value list"

    For Each Campos In rs.Fields
    Me.cboCampos.AddItem Campos.Name
    Next

    Tópico - Exemplo Disponibilizado no Fórum.

    Exemplo - Projeto

    Mais uma vez agradeço a ajuda do fórum.

    Julia
    Cláudio Más
    Cláudio Más
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1306
    Registrado : 21/01/2012

    [Resolvido]Ordenação e Valores - Combo (Exemplo do Criquio) Empty Re: [Resolvido]Ordenação e Valores - Combo (Exemplo do Criquio)

    Mensagem  Cláudio Más 17/2/2014, 12:37

    Olá Júlia,

    Tudo bem?

    No evento Ao carregar do formulário, substitua:

    Código:
    For Each Campos In rs.Fields
    Me.cboCampos.AddItem Campos.Name
    Next

    por:

    Código:
    Me.cboCampos.AddItem "Assunto"
    Me.cboCampos.AddItem "CC"
    Me.cboCampos.AddItem "Cco"
    Me.cboCampos.AddItem "Data"
    Me.cboCampos.AddItem "De"
    Me.cboCampos.AddItem "Hora"
    Me.cboCampos.AddItem "Mensagem"
    Me.cboCampos.AddItem "Para"
    julia-melo
    julia-melo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 72
    Registrado : 02/01/2013

    [Resolvido]Ordenação e Valores - Combo (Exemplo do Criquio) Empty Resposta - Cláudio

    Mensagem  julia-melo 17/2/2014, 15:59

    Olá Cláudio, tudo bem e você?

    Então, eu já tinha tentado isso, os itens atualizaram com sucesso, porém ele cria 10 opções para cada item na combo.

    Assim:
    Assunto
    Cc
    Cco
    Data
    De
    Hora
    Mensagem
    Para
    ...
    Assunto
    Cc
    Cco
    Data
    De
    Hora
    Mensagem
    Para
    ...

    Obrigada pelo auxílio.

    Julia
    Cláudio Más
    Cláudio Más
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1306
    Registrado : 21/01/2012

    [Resolvido]Ordenação e Valores - Combo (Exemplo do Criquio) Empty Re: [Resolvido]Ordenação e Valores - Combo (Exemplo do Criquio)

    Mensagem  Cláudio Más 17/2/2014, 16:56

    Oi Júlia, tudo bem.

    Será que você não esqueceu de retirar o For...Next?
    Essas três linhas saem:

    Código:
    For Each Campos In rs.Fields
    Me.cboCampos.AddItem Campos.Name
    Next

    ficando somente assim:

    Código:
    Me.cboCampos.AddItem "Assunto"
    Me.cboCampos.AddItem "CC"
    Me.cboCampos.AddItem "Cco"
    Me.cboCampos.AddItem "Data"
    Me.cboCampos.AddItem "De"
    Me.cboCampos.AddItem "Hora"
    Me.cboCampos.AddItem "Mensagem"
    Me.cboCampos.AddItem "Para"
    julia-melo
    julia-melo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 72
    Registrado : 02/01/2013

    [Resolvido]Ordenação e Valores - Combo (Exemplo do Criquio) Empty Thanks Cláudio

    Mensagem  julia-melo 17/2/2014, 20:02

    Isso mesmo Cláudio!

    Bastava eu retirar isso mesmo.

    Muito obrigada.

    Bjo!
    Julia
    Cláudio Más
    Cláudio Más
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1306
    Registrado : 21/01/2012

    [Resolvido]Ordenação e Valores - Combo (Exemplo do Criquio) Empty Re: [Resolvido]Ordenação e Valores - Combo (Exemplo do Criquio)

    Mensagem  Cláudio Más 17/2/2014, 20:09

    De nada, disponha.
    Bjs

      Data/hora atual: 5/12/2022, 17:15