MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


4 participantes

    [Resolvido]Não repetir valor já selecionado em combobox do Formulário

    Leandro
    Leandro
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1601
    Registrado : 12/11/2009

    [Resolvido]Não repetir valor já selecionado em combobox do Formulário Empty Não repetir valor já selecionado em combobox do Formulário

    Mensagem  Leandro 30/8/2012, 13:26

    Bom dia,

    Quero restringir o valor que já foi selecionado na combo do formulário, deixo o Bd para análise.

    Ex, na lista de códigos tenho 10000 registros se eu selecionar o "19" quando eu entrar novamente na combo esse "19" não pode aparecer novamente, a intenção é não permitir que um código seja selecionado duas vezes.

    Obrigado

    Leandro
    Leandro
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1601
    Registrado : 12/11/2009

    [Resolvido]Não repetir valor já selecionado em combobox do Formulário Empty Re: [Resolvido]Não repetir valor já selecionado em combobox do Formulário

    Mensagem  Leandro 30/8/2012, 13:38

    Em tempo...
    Depois de abrir o tópico, continuei fazendo testes e cheguei a uma "solução", que talvez não seja a clássica, vejam:

    Private Sub cboCodigo_Exit(Cancel As Integer)
    If DCount("[Codigo]", "TabTeste", "[Codigo]=" & [cboCodigo]) > 0 Then
    MsgBox "Registro já selecionado", vbCritical
    DoCmd.CancelEvent
    End If
    End Sub


    Porém uma coisa me intriga, quando coloquei ">1" ele só alertava quando lançava o 3º registro repetido, e com ">0" o alerta acontece quando repito na 2ª vez!
    Porque? Shocked

    Leandro
    Leandro
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1601
    Registrado : 12/11/2009

    [Resolvido]Não repetir valor já selecionado em combobox do Formulário Empty Re: [Resolvido]Não repetir valor já selecionado em combobox do Formulário

    Mensagem  Leandro 30/8/2012, 15:25

    Ocorreu um problema no outro código, ele não aceitava deixar o campo sem lançamentos, então alterei o código e funcionou como quero:

    Private Sub cboCodigo_Exit(Cancel As Integer)
    On Error Resume Next
    Dim lngRegs As Long
    lngRegs = DCount("[Codigo]", "TabTeste", "[Codigo]=" & [cboCodigo])
    If lngRegs > 0 Then
    MsgBox "Você já selecionou esse código!" & vbCrLf & "Se liga!", vbCritical
    DoCmd.CancelEvent
    Me.cboCodigo = Null
    Else
    If lngRegs = 0 Then
    Me.Descricao.SetFocus
    End If
    End If
    End Sub


    Obrigado a quem deu uma olhada no tópico. Wink

    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    [Resolvido]Não repetir valor já selecionado em combobox do Formulário Empty Re: [Resolvido]Não repetir valor já selecionado em combobox do Formulário

    Mensagem  JPaulo 30/8/2012, 15:27

    Ola Leandro, veja o mais simples;




    Private Sub Codigo_AfterUpdate()
    'By JPaulo ® Maximo Access
    Me.Codigo.RowSource = ""
    Me.Codigo.RowSource = "Select CodMaterial from TabMateriais Where CodMaterial<>" & Val(Me.Codigo.Value) & " ORDER BY CodMaterial ASC"
    Me.Codigo.Requery
    End Sub
    Anexos
    [Resolvido]Não repetir valor já selecionado em combobox do Formulário AttachmentCombosSelecao_OLD.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (357 Kb) Baixado 120 vez(es)


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Não repetir valor já selecionado em combobox do Formulário Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Não repetir valor já selecionado em combobox do Formulário Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Não repetir valor já selecionado em combobox do Formulário Folder_announce_new Instruções SQL como utilizar...
    Leandro
    Leandro
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1601
    Registrado : 12/11/2009

    [Resolvido]Não repetir valor já selecionado em combobox do Formulário Empty Re: [Resolvido]Não repetir valor já selecionado em combobox do Formulário

    Mensagem  Leandro 30/8/2012, 15:35

    Grande João, obrigado, mas tem um porém, ele analisa só o último lançamento.

    Se eu lançar:

    19
    35

    Ele aceita lançar novamente o 19:

    19
    35
    19

    Obrigado

    wltsilva
    wltsilva
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 79
    Registrado : 29/11/2012

    [Resolvido]Não repetir valor já selecionado em combobox do Formulário Empty Opá!

    Mensagem  wltsilva 14/12/2012, 15:28

    E aí? Qual a solução??? Estou no mesmo dilema.


    .................................................................................
    "Amigos de verdade não se separam apenas seguem caminhos diferentes."
    avatar
    Carlos Cruz
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 26/02/2014

    [Resolvido]Não repetir valor já selecionado em combobox do Formulário Empty Ainda não solucionado ?

    Mensagem  Carlos Cruz 30/6/2018, 03:23

    Alguém além do Leandro obteve sucesso após estas alterações?
    avatar
    Carlos Cruz
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 26/02/2014

    [Resolvido]Não repetir valor já selecionado em combobox do Formulário Empty Opa Achei a solução

    Mensagem  Carlos Cruz 30/6/2018, 04:11

    É só colar este código no primeiro banco de dados que o Leandro deixou para download.
    Segue código abaixo.
    Private Sub Codigo_Exit(Cancel As Integer) 'NO CAMPO CODIGO_AO SAIR
    On Error Resume Next
    Dim lngRegs As Long
    lngRegs = DCount("[Codigo]", "TabTeste", "[Codigo]=" & [Codigo]) 'NA TABELA TabTeste, NO CAMPO Codigo
    If lngRegs > 0 Then
    MsgBox "Você já selecionou esse código!" & vbCrLf & "Se liga!", vbCritical 'MENSAGEM QUE APARECERÁ
    DoCmd.CancelEvent 'CANCELARÁ A DUPLICIDADE
    Me.Codigo = Null
    Else
    If lngRegs = 0 Then
    Me.Descricao.SetFocus
    End If
    End If
    End Sub

    Conteúdo patrocinado


    [Resolvido]Não repetir valor já selecionado em combobox do Formulário Empty Re: [Resolvido]Não repetir valor já selecionado em combobox do Formulário

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 10:33