MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

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

    Duplicidade em ComboBox

    Compartilhe

    Joelsonm01
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 21
    Registrado : 28/03/2018

    Duplicidade em ComboBox

    Mensagem  Joelsonm01 em 13/6/2018, 22:56

    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


    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3508
    Registrado : 06/11/2009

    Re: Duplicidade em ComboBox

    Mensagem  Assis em 13/6/2018, 23:34

    Boa noite

    Use

    SELECT DISTINCT


    .................................................................................
    *** Só sei que nada sei ***

    Joelsonm01
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 21
    Registrado : 28/03/2018

    Re: Duplicidade em ComboBox

    Mensagem  Joelsonm01 em 14/6/2018, 15:13

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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3508
    Registrado : 06/11/2009

    Re: Duplicidade em ComboBox

    Mensagem  Assis em 14/6/2018, 15:41

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


    .................................................................................
    *** Só sei que nada sei ***

    Joelsonm01
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 21
    Registrado : 28/03/2018

    Re: Duplicidade em ComboBox

    Mensagem  Joelsonm01 em 14/6/2018, 17:33

    '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(Cool = FormatCurrency(rs(Cool) '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
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3508
    Registrado : 06/11/2009

    Re: Duplicidade em ComboBox

    Mensagem  Assis em 14/6/2018, 20:04

    Teste

    StrSql = "SELECT Distinct * FROM tbl_Despesas"


    .................................................................................
    *** Só sei que nada sei ***

    Joelsonm01
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 21
    Registrado : 28/03/2018

    Re: Duplicidade em ComboBox

    Mensagem  Joelsonm01 em 14/6/2018, 20:33

    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
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3508
    Registrado : 06/11/2009

    Re: Duplicidade em ComboBox

    Mensagem  Assis em 15/6/2018, 09:18

    Bom dia

    Poste a BD


    .................................................................................
    *** Só sei que nada sei ***

    Joelsonm01
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 21
    Registrado : 28/03/2018

    BANCO DE DADOS

    Mensagem  Joelsonm01 em 15/6/2018, 15:12

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

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


    Última edição por Joelsonm01 em 15/6/2018, 15:19, editado 2 vez(es)
    avatar
    Administrador
    Administrador
    Administrador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 342
    Registrado : 02/11/2009

    Re: Duplicidade em ComboBox

    Mensagem  Administrador em 15/6/2018, 15:15

    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.




    .................................................................................
    Admin

    Joelsonm01
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 21
    Registrado : 28/03/2018

    BANCO DE DADOS

    Mensagem  Joelsonm01 em 15/6/2018, 16:00

    banco
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3508
    Registrado : 06/11/2009

    Re: Duplicidade em ComboBox

    Mensagem  Assis em 15/6/2018, 16:50

    Copie o link e cole no navegador.

    Siga os passos do link


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


    .................................................................................
    *** Só sei que nada sei ***

    Joelsonm01
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 21
    Registrado : 28/03/2018

    Re: Duplicidade em ComboBox

    Mensagem  Joelsonm01 em 15/6/2018, 17:12

    segue....

    desculpe a ignorancia...

    esse é o banco que serve para os Formulario em VBA excel
    Anexos
    BD_CONADEN.zip
    bd
    Você não tem permissão para fazer download dos arquivos anexados.
    (36 Kb) Baixado 5 vez(es)
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3508
    Registrado : 06/11/2009

    Re: Duplicidade em ComboBox

    Mensagem  Assis em 15/6/2018, 17:35

    Só mandou as tabelas

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


    .................................................................................
    *** Só sei que nada sei ***

    Joelsonm01
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 21
    Registrado : 28/03/2018

    Re: Duplicidade em ComboBox

    Mensagem  Joelsonm01 em 15/6/2018, 17:40

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

    Joelsonm01
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 21
    Registrado : 28/03/2018

    Re: Duplicidade em ComboBox

    Mensagem  Joelsonm01 em 15/6/2018, 17:56

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

    [Você precisa estar registrado e conectado para ver esta imagem.]

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

    posso enviar apenas a parte escrita

    Joelsonm01
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 21
    Registrado : 28/03/2018

    Re: Duplicidade em ComboBox

    Mensagem  Joelsonm01 em 15/6/2018, 18:11

    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


    Joelsonm01
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 21
    Registrado : 28/03/2018

    Re: Duplicidade em ComboBox

    Mensagem  Joelsonm01 em 15/6/2018, 18:30

    Dividi apenas o formulario que está em questão

    Anexos
    SISTEMA CONADEN1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (18 Kb) Baixado 4 vez(es)
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3508
    Registrado : 06/11/2009

    Re: Duplicidade em ComboBox

    Mensagem  Assis em 15/6/2018, 18:51

    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


    .................................................................................
    *** Só sei que nada sei ***

      Data/hora atual: 21/9/2018, 03:52