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


2 participantes

    [Resolvido]verificar duplicidade

    avatar
    msilveir
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]verificar duplicidade Empty [Resolvido]verificar duplicidade

    Mensagem  msilveir 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 : Respeito às Regras 100%

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

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

    Mensagem  caiosouza 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


    .................................................................................
    Caio Souza

    Engenheiro de Software
    avatar
    msilveir
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  msilveir 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: 7/11/2024, 22:31