MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    Compartilhe

    julia-melo
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  julia-melo em Seg 17 Fev 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
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  Cláudio Más em Seg 17 Fev 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
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Resposta - Cláudio

    Mensagem  julia-melo em Seg 17 Fev 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
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  Cláudio Más em Seg 17 Fev 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
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Thanks Cláudio

    Mensagem  julia-melo em Seg 17 Fev 2014, 20:02

    Isso mesmo Cláudio!

    Bastava eu retirar isso mesmo.

    Muito obrigada.

    Bjo!
    Julia

    Cláudio Más
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  Cláudio Más em Seg 17 Fev 2014, 20:09

    De nada, disponha.
    Bjs

      Data/hora atual: Qui 08 Dez 2016, 23:58