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]verificar duplicidade

    avatar
    msilveir
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 180
    Registrado : 13/03/2011

    [Resolvido]verificar duplicidade Empty [Resolvido]verificar duplicidade

    Mensagem  msilveir em 7/5/2019, 13:57

    ola Pessoal

    estou tentando usar o codigo abaixo

    Dim Busca As String
    Dim stLinkCriteria As String
    Dim rsc As DAO.Recordset
    Set rsc = Me.RecordsetClone
    Busca = Me.txtFilial.Value
    stLinkCriteria = " Filial = ' & Busca & '"
    If DCount("filial", "Tbl_CadFilial", stLinkCriteria) > 0 Then
    Me.Undo
    MsgBox "Atenção " _
    & Busca & " O Numero de Cliente que está a introduzir já existe." _
    & vbCr & vbCr & "Irá ser mostrado o Registo associado ao respectivo documento.", vbInformation _
    , "Registo Duplicado"
    rsc.FindFirst stLinkCriteria
    'Me.Bookmark = rsc.Bookmark
    End If
    Set rsc = Nothing

    esta dando tipos incompativeis

    stLinkCriteria = " Filial = ' & Busca & '" nessa linha meu campo e numero

    caiosouza
    caiosouza
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 383
    Registrado : 05/12/2016

    [Resolvido]verificar duplicidade Empty Re: [Resolvido]verificar duplicidade

    Mensagem  caiosouza em 7/5/2019, 14:23

    Boa tarde,

    Usa-se aspas simples ' quando o valor esperado é uma string (texto)
    Usa-se aspas duplas " quando o valor esperado é um Integer; Double (inteiro; Decimal)

    Se o seu caso for a segunda opção altere como abaixo:
    De: stLinkCriteria = " Filial = ' & Busca & '"
    Para: stLinkCriteria = "[Filial]=" & Busca & "" Ou apenas: stLinkCriteria = "[Filial]=" & Busca


    .................................................................................
    A persistência leva ao sucesso!
    avatar
    msilveir
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 180
    Registrado : 13/03/2011

    [Resolvido]verificar duplicidade Empty Re: [Resolvido]verificar duplicidade

    Mensagem  msilveir em 11/5/2019, 20:33

    ola caiosouza

    desculpa a demora funcionou sua dica

    Conteúdo patrocinado

    [Resolvido]verificar duplicidade Empty Re: [Resolvido]verificar duplicidade

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/5/2019, 02:20