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

    [Resolvido]Evitar duplicidade com 2 tipos de critérios: Campo texto e chave estrangeira.

    Compartilhe
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3606
    Registrado : 20/04/2011

    [Resolvido]Evitar duplicidade com 2 tipos de critérios: Campo texto e chave estrangeira.

    Mensagem  Silvio em Ter 22 Ago 2017, 12:55

    Prezados colegas bom dia.

    Já quebrei a cabeça aqui desde domingo.

    Vamos aos fatos. Tenho um formulário com sub formulário,ambos funcionando perfeitamente.
    No Sub formulário há o campo filho CodSubPed ( chave estrangeira ). Nesse mesmo sub formulário tenho uma combobox ( formato texto devido a mistura de letras e números ) que me traz todas as referências de artigos.

    O que acontece, preciso com a ajuda de vocês, que ao escolher uma referência nessa combobox, uma rotina que verifique nesse sub formulário se a mesma já se encontra digitada e uma mensagem caso o usuário queira repetir ela, devido as variações de cores que cada referência possa ter.

    Por isso que tem que haver as duas condições : a da referência e da chave estrangeira.

    Já tentei o Dlookup....Dcount...Dlast....e nada. O mesmo busca todas as referências já digitadas na tabela Dpedido e não aquela que está sendo digita no momento.

    Chave primária formulário principal: CodPed.
    Chave secundária ( estrangeira ) no sub formulário: CodSubped
    Chave primária do sub formulário: CodDpedido
    Tabela onde estão as referências: Dpedido
    Nome da combobox ( formato texto ) onde estão as referências : cbocodprod


    Se alguém puder me ajudar....fico agradecido.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]
    avatar
    Celso Roberto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 679
    Registrado : 01/03/2014

    Re: [Resolvido]Evitar duplicidade com 2 tipos de critérios: Campo texto e chave estrangeira.

    Mensagem  Celso Roberto em Ter 22 Ago 2017, 14:43

    Olá Silvio, tudo bem?

    Veja se este te ajuda, adapte ao seus critérios e coloque no evento antes de atualizar da combo

    Código:
    Dim frm As Recordset

        Set frm = Me.RecordsetClone
        With frm
        .FindFirst "CondicaoPagto='" & Me.CboCondicaoPagto & "' And CodReceitasDespesas=" & Me.CodReceitasDespesas & ""
            If Not .NoMatch Then
              'MsgBox "Já existe um lançamento Com esta Condição" & Chr(10) & "" & "Altere o Lançto !! ", vbExclamation + vbDefaultButton2, "ATENÇÂO"
              If MsgBox("Deseja repetir esta condição", vbYesNo + vbInformation + vbDefaultButton2, "Confirmação") = vbYes Then
            Else
              Cancel = True
              Me.CboCondicaoPagto.Undo
              'Me.Bookmark = .Bookmark
            End If
            End If
        End With
        Set frm = Nothing

    Abraços


    .................................................................................
    Quando sua dúvida estiver resolvida, Agradeça ao Fórum e de seu tópico por Resolvido



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3606
    Registrado : 20/04/2011

    Re: [Resolvido]Evitar duplicidade com 2 tipos de critérios: Campo texto e chave estrangeira.

    Mensagem  Silvio em Ter 22 Ago 2017, 18:09

    Tardessss

    Valeu Celso. "matou a pau", obrigado.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]
    avatar
    Celso Roberto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 679
    Registrado : 01/03/2014

    Re: [Resolvido]Evitar duplicidade com 2 tipos de critérios: Campo texto e chave estrangeira.

    Mensagem  Celso Roberto em Ter 22 Ago 2017, 22:31

    Valeu meu amigo....

    Abraços


    .................................................................................
    Quando sua dúvida estiver resolvida, Agradeça ao Fórum e de seu tópico por Resolvido



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....

      Data/hora atual: Ter 19 Set 2017, 12:48