MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]verificar duplicidade

    avatar
    msilveir
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 273
    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 : 416
    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
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 273
    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

      Data/hora atual: 11/8/2020, 01:41