Duplicidade em ComboBox

Boa Noite.

Gostaria que o meu ComboBox não mostrasse nomes repetidos

Exemplo:

GRUPO
DIRETORIA
DIRETORIA
HOSPEDAGEM
HOSPEDAGEM
VIAGEM
VIAGEM


gostaria que esse comboBox apresentasse apenas DIRETORIA; HOSPEDAGEM;VIAGEM

Boa noite

Use

SELECT DISTINCT

Não compreendi, onde coloco? É uma formula, ou só o Proprio Select Distinct

Na origem dos dados.
Ou poste essa parte da sua BD para ser ajudado.

'OUTRA OPÇÃO (CONGREGAÇÃO)

ElseIf Me.Opt_Grupo = True Then

'O MEU SELECT
StrSql = "SELECT * FROM tbl_Despesas" 'ESSA TBL_DESPESAS É ONDE ESTÁ SE RECEBENDO OS DADOS, SERVINDO ENTÃO COMO BANCO DE DADOS
                                                 'PARA A CBO_GRUPO (COMBOBOX)
'VOU CONECTAR AO BANCO DE DADOS
rs.Open StrSql, Cn, adOpenKeyset, adLockOptimistic, adCmdText

On Error Resume Next
'LIMPAR A LISTVIEW
Me.ListView1.ListItems.Clear

While Not rs.EOF

   Set Lrst = Me.ListView1.ListItems.Add(Text:=rs(0)) 'Id
       Lrst.SubItems(1) = rs(1) 'Data
       Lrst.SubItems(2) = rs(2) 'Ano
       Lrst.SubItems(3) = rs(3) 'IdDesp
       Lrst.SubItems(4) = rs(4) 'Descrição
       Lrst.SubItems(5) = rs(5) 'Grupo
       Lrst.SubItems(6) = rs(6) 'Pagor Por
       Lrst.SubItems(7) = rs(7) 'Recebido Por
       Lrst.SubItems( = FormatCurrency(rs() 'Valor
       
       
       rs.MoveNext
   
   Wend
  ' Call desconecta
   Me.Cbo_Grupo = ""
   Me.Cbo_Grupo.SetFocus



O MEU BANCO DE DADOS É EM ACCESS E UTILIZO O GERENCIADOR DE NOMES(EXCEL) PARA DAR FUNCIONAMENTO(ROWSOURCE) A COMBOBOX.

NÃO ESTOU CONSEGUINDO ENVIAR MEU BD POIS É MUITO GRANDE

Teste

StrSql = "SELECT Distinct * FROM tbl_Despesas"

NÃO FUNCIONOU.

TENTEI CRIAR UMA OUTRA FORMA QUE TINHA FEITO EM OUTRO PROJETO, MAIS TAMBEM NÃO FUNCIONOU.

'____________________________________________________________________________________________________________________________________
Dim LINHA As Integer
Dim FIM As Integer
Dim REGISTRO As String

LINHA = 1

Do While Plan1.Cells(LINHA, 15) <> ""
LINHA = LINHA + 1
Loop

FIM = LINHA - 1

With Plan1

For LINHA = 1 To FIM

REGISTRO = Application.WorksheetFunction.CountIf(Range(Cells(1, 15), Cells(LINHA, 1), Cells(LINHA, 1))) ' MAIS DEU PROBLEMA NO RANGE
If REGISTRO = 1 Then

Cbo_Grupo.AddItem .Cells(LINHA, 15)

End If
Next LINHA
End With

ERRO DE COMPILÇÃO: NUMERO DE ARGUMENTOS INCORRETOS OU ATRIBUIÇÃO DE PROPRIEDADE INVALIDA

Bom dia

Poste a BD

Não estou conseguindo enviar, não acho o formato..

o meu banco esta em access, e não estou conseguindo zipar

Atente ao item Nº 12, por favor;

REGRAS DO FÓRUM

1. Tenha paciência com quem coloca aqui as suas duvidas.
2. Clareza nos títulos dos tópicos e duvidas, evite a linguagem MSN.
3. Não colocar diversas vezes a mesma dúvida.
4. Explicar detalhadamente o problema e informar a versão do seu Office + Sistema Operativo.
5. Retorne sempre se deu certo, esse retorno é muito importante.
6. Respeite toda a equipe Staff e demais membros deste fórum.
7. Use sempre o botão Busca, sempre que tiver uma dúvida e antes de abrir tópicos.
8. Não usar palavras como "Urgente". O fórum é livre e ninguém é obrigado a responder com urgência.
9. A publicidade é proíbida e só pode ser feita pelo Administrador ou depois de aprovada pelo Administrador.
10. Se o seu tópico não for respondido, tem o direito de fazer um Up ao final de 24horas!
11. A colocação de Códigos ou Exemplos, devem constar sempre os créditos de quem o elaborou.
12. Fale, não GRITE!   Só letras Maiúsculas, na Internet é o mesmo que gritar!
13. É proibido tirar duvidas nas Salas de Repositório, devem abrir um novo tópico nas salas de duvidas, relacionando o Exemplo em causa.
14. É proibido adicionar links externos nos tópicos, que redirecionem para outros sites ("backlinks"), excepto DropBox.
15. É permitido adicionar links externos, nos códigos VBA dentro das Base de Dados.

banco

Copie o link e cole no navegador.

Siga os passos do link


maximoaccess.com/t32003-como-postar-anexos-e-imagens-no-site-maximoaccess-com

segue....

desculpe a ignorancia...

esse é o banco que serve para os Formulario em VBA excel

Só mandou as tabelas

Aonde está o formulário que tem a ComboBox da Mensagem Nº 1 ????

é tudo em excel... bastante coisa...
vai llá...

é tudo em excel... bastante coisa...
muito grande, mesmo zipado



e so posso enviar no (Tamanho máximo por arquivo: 0.977 Mb)

posso enviar apenas a parte escrita

segue o codigo do formulario

Código:

Private Sub Btn_BuscarTudo_Click()

'DECLAREI AS VARIAVEIS
Dim Cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim StrSql, Banco As String
Dim Lrst As ListItem
'__________________________________________________________________________________________________________________
'VARIAVEIS PARA OS TOTAIS
Dim Taxa As Double
'__________________________________________________________________________________________________________________

Banco = [Cbanco]
Set Cn = New ADODB.Connection

    With Cn
    
        .Provider = "Microsoft.ACE.OLEDB.12.0"
      
        .Open Banco
        
    End With

Set rs = New ADODB.Recordset

If Me.Opt_Ano = True Then

'O MEU SELECT
StrSql = "SELECT * FROM tbl_Despesas"

'VOU CONECTAR AO BANCO DE DADOS
rs.Open StrSql, Cn, adOpenKeyset, adLockOptimistic, adCmdText

On Error Resume Next
'LIMPAR A LISTVIEW
Me.ListView1.ListItems.Clear

While Not rs.EOF

    Set Lrst = Me.ListView1.ListItems.Add(Text:=rs(0)) 'Id
        Lrst.SubItems(1) = rs(1) 'Data
        Lrst.SubItems(2) = rs(2) 'Ano
        Lrst.SubItems(3) = rs(3) 'IdDesp
        Lrst.SubItems(4) = rs(5) 'Grupo
        Lrst.SubItems(5) = rs(4) 'Descrição
        Lrst.SubItems(6) = rs(6) 'Pagor Por
        Lrst.SubItems(7) = rs(7) 'Recebido Por
        Lrst.SubItems(8) = FormatCurrency(rs(8)) 'Valor
        
        
        rs.MoveNext
    
    Wend
   ' Call desconecta
    Me.Cbo_Ano = ""
    Me.Cbo_Ano.SetFocus
        
'__________________________________________________________________________________________________________________
'SOMA DOS VALORES CONTIDOS NA LISTVIEW (Valor Taxa)
    
For I = 1 To ListView1.ListItems.Count
Taxa = Taxa + ListView1.ListItems.Item(I).SubItems(8)

Next I

Txt_ValorTaxa = Format(Taxa, "R$#,##0.00")

'__________________________________________________________________________________________________________________
'OUTRA OPÇÃO (CONGREGAÇÃO)

ElseIf Me.Opt_Grupo = True Then

'O MEU SELECT
StrSql = "SELECT * FROM tbl_Despesas"

'VOU CONECTAR AO BANCO DE DADOS
rs.Open StrSql, Cn, adOpenKeyset, adLockOptimistic, adCmdText

On Error Resume Next
'LIMPAR A LISTVIEW
Me.ListView1.ListItems.Clear

While Not rs.EOF

    Set Lrst = Me.ListView1.ListItems.Add(Text:=rs(0)) 'Id
        Lrst.SubItems(1) = rs(1) 'Data
        Lrst.SubItems(2) = rs(2) 'Ano
        Lrst.SubItems(3) = rs(3) 'IdDesp
        Lrst.SubItems(4) = rs(5) 'Grupo
        Lrst.SubItems(5) = rs(4) 'Descrição
        Lrst.SubItems(6) = rs(6) 'Pagor Por
        Lrst.SubItems(7) = rs(7) 'Recebido Por
        Lrst.SubItems(8) = FormatCurrency(rs(8)) 'Valor
        
        
        rs.MoveNext
    
    Wend
   ' Call desconecta
    Me.Cbo_Grupo = ""
    Me.Cbo_Grupo.SetFocus
        
'__________________________________________________________________________________________________________________
'SOMA DOS VALORES CONTIDOS NA LISTVIEW (Valor Taxa)
    
For I = 1 To ListView1.ListItems.Count
Taxa = Taxa + ListView1.ListItems.Item(I).SubItems(8)

Next I

Txt_ValorTaxa = Format(Taxa, "R$#,##0.00")

End If

End Sub

Private Sub Btn_Consultar_Click()

'DECLAREI AS VARIAVEIS
Dim Cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim StrSql, Banco As String
Dim Lrst As ListItem
'__________________________________________________________________________________________________________________
'VARIAVEIS PARA OS TOTAIS
Dim Taxa As Double
'__________________________________________________________________________________________________________________

Banco = [Cbanco]
Set Cn = New ADODB.Connection

    With Cn
    
        .Provider = "Microsoft.ACE.OLEDB.12.0"
      
        .Open Banco
        
    End With

Set rs = New ADODB.Recordset

If Me.Opt_Ano = True Then

'O MEU SELECT
StrSql = "SELECT * FROM Tbl_Despesas WHERE ANO_DESPESA = '" & Cbo_Ano & "'"

'VOU CONECTAR AO BANCO DE DADOS
rs.Open StrSql, Cn, adOpenKeyset, adLockOptimistic, adCmdText

On Error Resume Next
'LIMPAR A LISTVIEW
Me.ListView1.ListItems.Clear

While Not rs.EOF

    Set Lrst = Me.ListView1.ListItems.Add(Text:=rs(0)) 'Id
        Lrst.SubItems(1) = rs(1) 'Data
        Lrst.SubItems(2) = rs(2) 'Ano
        Lrst.SubItems(3) = rs(3) 'IdDesp
        Lrst.SubItems(4) = rs(5) 'Grupo
        Lrst.SubItems(5) = rs(4) 'Descrição
        Lrst.SubItems(6) = rs(6) 'Pagor Por
        Lrst.SubItems(7) = rs(7) 'Recebido Por
        Lrst.SubItems(8) = FormatCurrency(rs(8)) 'Valor
        
        
        rs.MoveNext
    
    Wend
   ' Call desconecta
    Me.Cbo_Ano = ""
    Me.Cbo_Ano.SetFocus
        
'__________________________________________________________________________________________________________________
'SOMA DOS VALORES CONTIDOS NA LISTVIEW (Valor Taxa)
    
For I = 1 To ListView1.ListItems.Count
Taxa = Taxa + ListView1.ListItems.Item(I).SubItems(8)

Next I

Txt_ValorTaxa = Format(Taxa, "R$#,##0.00")

'__________________________________________________________________________________________________________________
'OUTRA OPÇÃO (CONGREGAÇÃO)

ElseIf Me.Opt_Grupo = True Then

'O MEU SELECT
StrSql = "SELECT * FROM tbl_Despesas WHERE GRUPO = '" & Cbo_Grupo & "'"

'VOU CONECTAR AO BANCO DE DADOS
rs.Open StrSql, Cn, adOpenKeyset, adLockOptimistic, adCmdText

On Error Resume Next
'LIMPAR A LISTVIEW
Me.ListView1.ListItems.Clear

While Not rs.EOF

    Set Lrst = Me.ListView1.ListItems.Add(Text:=rs(0)) 'Id
        Lrst.SubItems(1) = rs(1) 'Data
        Lrst.SubItems(2) = rs(2) 'Ano
        Lrst.SubItems(3) = rs(3) 'IdDesp
        Lrst.SubItems(4) = rs(5) 'Grupo
        Lrst.SubItems(5) = rs(4) 'Descrição
        Lrst.SubItems(6) = rs(6) 'Pagor Por
        Lrst.SubItems(7) = rs(7) 'Recebido Por
        Lrst.SubItems(8) = FormatCurrency(rs(8)) 'Valor
        
        
        rs.MoveNext
    
    Wend
   ' Call desconecta
    Me.Cbo_Grupo = ""
    Me.Cbo_Grupo.SetFocus
        
'__________________________________________________________________________________________________________________
'SOMA DOS VALORES CONTIDOS NA LISTVIEW (Valor Taxa)
    
For I = 1 To ListView1.ListItems.Count
Taxa = Taxa + ListView1.ListItems.Item(I).SubItems(8)

Next I

Txt_ValorTaxa = Format(Taxa, "R$#,##0.00")

End If

End Sub

Private Sub btn_fechar_Click()

Unload Me

FrmMenuDespesa.Show

End Sub




Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)

If chk_multipla = False Then
ListView1.ListItems(Item.Index).Selected = True 'seleciona o item marcado
    For I = 1 To ListView1.ListItems.Count
        If ListView1.ListItems(I).Selected = True Then 'se o item estiver selecionado o check também ficará marcado
        ListView1.ListItems.Item(I).Checked = True
        Else
        ListView1.ListItems.Item(I).Checked = False 'se não vai desmarcar o item
    End If
Next I
End If





End Sub

Private Sub Opt_Grupo_Click()

    If Opt_Grupo = True Then
    
        Me.Cbo_Ano.Visible = False
        Me.Cbo_Grupo.Visible = True
        
        Me.Cbo_Ano.Left = 420
        Me.Cbo_Grupo.Left = 280
        
        Me.Cbo_Grupo.SetFocus
        
        Me.Cbo_Ano.Text = ""
        
        Me.Lbl_Descricao.Visible = True
        
        Me.Lbl_Descricao.Caption = "Grupo"
    End If

End Sub
Private Sub Opt_Ano_Click()

    If Opt_Ano = True Then
    
        Me.Cbo_Ano.Visible = True
        Me.Cbo_Grupo.Visible = False
        
        Me.Cbo_Ano.Left = 280
        Me.Cbo_Grupo.Left = 420
        
        Me.Cbo_Ano.SetFocus
        
        Me.Cbo_Grupo.Text = ""
        
        Me.Lbl_Descricao.Visible = True
        
        Me.Lbl_Descricao.Caption = "Ano"
    End If
End Sub

Private Sub UserForm_Initialize()

         With Me.ListView1
        
        .View = lvwReport
        .Gridlines = True
        .FullRowSelect = True
        .ColumnHeaders.Add Text:="Id", Width:=27
        .ColumnHeaders.Add Text:="Data", Width:=52, Alignment:=2
        .ColumnHeaders.Add Text:="Ano", Width:=30, Alignment:=2
        .ColumnHeaders.Add Text:="IdDesp", Width:=35, Alignment:=2
        .ColumnHeaders.Add Text:="Grupo", Width:=80, Alignment:=2
        .ColumnHeaders.Add Text:="Descrição", Width:=115, Alignment:=2
        .ColumnHeaders.Add Text:="Pago Por", Width:=100, Alignment:=2
        .ColumnHeaders.Add Text:="Recebido Por", Width:=100, Alignment:=2
        .ColumnHeaders.Add Text:="Valor", Width:=60, Alignment:=2
        
        End With
        
        Me.Lbl_Descricao.Visible = False
        Me.Cbo_Grupo.Visible = False
        Me.Cbo_Ano.Visible = False
        
        PesquisaAno
        PesquisaGrupo
End Sub



Dividi apenas o formulario que está em questão

Amigo
Excel não, nem o tenho instalado no meu Portatil.

Espero que alguém o possa ajudar, mas este fórum é Access.

Boa sorte