[Resolvido]Dados de uma Coluna de uma tabela listados em uma "Caixa de Combinação" do formulario.

Bom dia caros colegas,

Estou com um pequeno problema, quero colocar em "Private Sub Form_Load()" uma programação para pegar todos os registros de um campo (Coluna) de uma tabela para esse formulário.

Já fiz isso com os nomes dos campos para armazenar todos eles da consulta "GERADOR":

Código:


Private Sub Form_Load()
  Dim bancoAtual As Database
  Dim Cons As QueryDef
  Dim campo
  Dim campoAtual As String
 
  Set bancoAtual = CurrentDb
 
  For Each Cons In bancoAtual.QueryDefs
    If Cons.Name = "GERADOR" Then
        For Each campo In Cons.Fields
            If camposCons <> "" Then camposCons = camposCons & ";"
            campoAtual = campo.Name
        Combinação65.AddItem campoAtual
            If colocaAspas Then campoAtual = """" & campoAtual & """"
            camposCons = camposCons & campoAtual
        Next campo
    End If
  Next Cons
End Sub


Obs: Peguei esse da internet, só troquei de Tabela (table) para Consulta (Query)


Está funcionando muito bem.

Mas agora preciso fazer algo parecido para listar todos os registros (sem repetir) da Tabela "GERAR">Campo "REGIAO" (É armazenado Número Inteiro). Por favor, ajudem-me.

Grato,
Solracs.

No modo normal não dá?

Criar a caixa de combinação e na linha Origem da Linha selecionar a tabela e depois o campo que você quer?

Não dá porque ele repete os dados.

Perdão não ter explicado direito.
É o seguinte, o campo tem muitos registros duplicados, pois esses são os números das regiões que unimos nossas filiais.

Então, você faz assim,

Faça o procedimento normal, peça para visualizar em SQL e na primeira linha do SQL, depois do Select, você escreve DISTINCT.

Vai ficar assim: SELECT DISTINCT....

Leandro
em 20/7/2012, 22:45

Então, você faz assim,

Faça o procedimento normal, peça para visualizar em SQL e na primeira linha do SQL, depois do Select, você escreve DISTINCT.

Vai ficar assim: SELECT DISTINCT....

Obrigado Leandro, deu tudo certo.

Bom dia,

Então Solracs, por favor marque o tópico como resolvido.

Obrigado