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
    avatar
    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
    avatar
    Cláudio Más
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1138
    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"
    avatar
    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
    avatar
    Cláudio Más
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1138
    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"
    avatar
    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
    avatar
    Cláudio Más
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1138
    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 27 Abr 2017, 17:46