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]Duplicata com dois critérios

    avatar
    Pretor
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 25
    Registrado : 27/02/2010

    [Resolvido]Duplicata com dois critérios Empty [Resolvido]Duplicata com dois critérios

    Mensagem  Pretor em 27/6/2019, 03:14

    Pessoal, boa noite!

    Estou tentando evitar o cadastro em um sub-formulário do mesmo fornecedor para um mesmo produto.
    Estou tentando adaptar o código abaixo de forma que seja verificado dois critérios, ou seja: o Código Chave do Produto e o Código Chave do Fornecedor.
    Porém tem dado o seguinte erro: "Erro em tempo de execução '13'" "Tipos incompatíveis"

    Código:
    Private Sub CodChaveFornecedor_LostFocus()
    'On Error Resume Next
       

       If (Not IsNull(DLookup("[CodChaveProduto]" And "[CodChaveFornecedor]", "tblFornProduto", _
               "[CodChaveProduto] =" & Me!CodChaveProduto & "" And "[CodChaveFornecedor] =" & Me!CodChaveFornecedor & ""))) Then
           MsgBox "Este fornecedor já escontra-se cadastrado!!!!", vbOKOnly + vbInformation, "Ops! Fornecedor já Cadastrado"
           Cancel = True
           Me!CodChaveFornecedor.Undo
       End If
           
    End Sub

    Desde já agradeço!
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6168
    Registrado : 15/03/2013

    [Resolvido]Duplicata com dois critérios Empty Re: [Resolvido]Duplicata com dois critérios

    Mensagem  ahteixeira em 27/6/2019, 08:43

    Olá Julio,

    Estou no cellular, mas se os campos forem do tipo texto deve colocar plica simples, para numero não.

    Veja com plica para ambos os campos:
    Código:
    Private Sub CodChaveFornecedor_LostFocus()
    'On Error Resume Next
     

      If (Not IsNull(DLookup("[CodChaveProduto]" And "[CodChaveFornecedor]", "tblFornProduto", _
              "[CodChaveProduto] ='" & Me!CodChaveProduto & "'" And "[CodChaveFornecedor] ='" & Me!CodChaveFornecedor & "'"))) Then
          MsgBox "Este fornecedor já escontra-se cadastrado!!!!", vbOKOnly + vbInformation, "Ops! Fornecedor já Cadastrado"
          Cancel = True
          Me!CodChaveFornecedor.Undo
      End If
         
    End Sub

    Abraço
    avatar
    Pretor
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 25
    Registrado : 27/02/2010

    [Resolvido]Duplicata com dois critérios Empty Re: [Resolvido]Duplicata com dois critérios

    Mensagem  Pretor em 28/6/2019, 01:14

    Pessoal, boa noite!

    Os campos são numéricos, pois armazenam na tabela tão somente o código do produto e o código do fornecedor.
    Desse modo o erro deve ter origem por outro motivo.
    Mas valeu como sempre!!

    Pretor
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6168
    Registrado : 15/03/2013

    [Resolvido]Duplicata com dois critérios Empty Re: [Resolvido]Duplicata com dois critérios

    Mensagem  ahteixeira em 28/6/2019, 11:58

    Olá Julio Cesar,

    Vi agora que está a fazer o Dlookup a dois campos, mas só permite a um.
    Teste assim (está a fazer dois Dlookup):

    Código:
      If Not IsNull(DLookup("[CodChaveProduto]", "tblFornProduto", "[CodChaveProduto] =" _
            & Me!CodChaveProduto & "")) And Not IsNull(DLookup("[CodChaveFornecedor]", _
            "tblFornProduto", "[CodChaveFornecedor] =" & Me!CodChaveFornecedor & "")) Then
               
            MsgBox "Este fornecedor já escontra-se cadastrado!!!!", vbOKOnly + vbInformation, "Ops! Fornecedor já Cadastrado"
            Cancel = True
            Me!CodChaveFornecedor.Undo
      End If

    Abraço
    avatar
    Pretor
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 25
    Registrado : 27/02/2010

    [Resolvido]Duplicata com dois critérios Empty Re: [Resolvido]Duplicata com dois critérios

    Mensagem  Pretor em 9/7/2019, 01:21

    ahteixeira, boa noite!

    Desculpe-me pela demora em dar um retorno no fórum. Mas deixo registrado que deu certo! Valeu!!

    Pretor
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6168
    Registrado : 15/03/2013

    [Resolvido]Duplicata com dois critérios Empty Re: [Resolvido]Duplicata com dois critérios

    Mensagem  ahteixeira em 9/7/2019, 08:09

    Olá Julio Cesar,

    Fico feliz por ter dado certo.
    Obrigado pelo retorno, o fórum agradece.

    Abraço

    Conteúdo patrocinado

    [Resolvido]Duplicata com dois critérios Empty Re: [Resolvido]Duplicata com dois critérios

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 18/7/2019, 17:09