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]Erro em tempo de execução '3420' - stLinkCriteria

    Compartilhe

    Nill.GO
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 40
    Registrado : 25/09/2017

    [Resolvido]Erro em tempo de execução '3420' - stLinkCriteria

    Mensagem  Nill.GO em Dom 19 Nov 2017, 00:24


    Private Sub txtNOME_BeforeUpdate(Cancel As Integer)
    Dim Busca As String
    Dim stLinkCriteria As String
    Dim rsc As DAO.Recordset
    Set rsc = Me.RecordsetClone
    Busca = Me.NOME.Value
    stLinkCriteria = "NOME= '" & Busca & "'"
    If DCount("NOME", "tb_Cliente",stLinkCriteria) > 0 Then
    Me.Undo
    MsgBox "Atenção o registro " _
    & Busca & " já existe." _
    & vbCr & vbCr & "Mostrar o registro.", vbInformation _
    , "Registro Duplicado"
    rsc.FindFirst stLinkCriteria
    Me.Bookmark = rsc.Bookmark
    End If
    Set rsc = Nothing
    End Sub



    Erro em tempo de execução '3420':
    O objeto não é válido ou não está definido.

    Ao DEPURAR para nesta linha

    rsc.FindFirst stLinkCriteria
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6548
    Registrado : 05/11/2009

    Re: [Resolvido]Erro em tempo de execução '3420' - stLinkCriteria

    Mensagem  Alexandre Neves em Dom 19 Nov 2017, 16:07

    Boa tarde,
    Como vem do Me.RecordsetClone, convém verificar o se o Me.RecordsetClone tem registos


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    Nill.GO
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 40
    Registrado : 25/09/2017

    Re: [Resolvido]Erro em tempo de execução '3420' - stLinkCriteria

    Mensagem  Nill.GO em Dom 19 Nov 2017, 22:55

    Fiquei na dúvida agora.

    Pois peguei este código para adaptar ao meu formulário
    que está ligado a tabela de Cliente (tb_Cliente)
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9709
    Registrado : 04/11/2009

    Re: [Resolvido]Erro em tempo de execução '3420' - stLinkCriteria

    Mensagem  JPaulo em Seg 20 Nov 2017, 11:14

    Código:
    Private Sub txtNOME_BeforeUpdate(Cancel As Integer)
    Dim Busca As String
    Dim stLinkCriteria As String

    Busca = Me.txtNOME.Value
    'Aplica o criterio á busca
    stLinkCriteria = "[NOME]=" & "'" & Busca & "'"

        If DCount("NOME", "tb_Cliente", stLinkCriteria) > 0 Then
            'Desfaz a digitação
            Me.Undo
            'Mensagem de existencia do registro
            MsgBox "Atenção o registro " _
            & Busca & " já existe." _
            & vbCr & vbCr & "Vai mostrar o registro.", vbInformation _
            , "Registro Duplicado"
       
                With Me.RecordsetClone
                    'Vai para o registro original
                    .FindFirst "NOME='" & Busca & "'"
                    Me.Bookmark = .Bookmark
                End With
        End If
    End Sub


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    Nill.GO
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 40
    Registrado : 25/09/2017

    Re: [Resolvido]Erro em tempo de execução '3420' - stLinkCriteria

    Mensagem  Nill.GO em Seg 20 Nov 2017, 14:38

    Valeu amigo, D+
    Muito agradecido
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9709
    Registrado : 04/11/2009

    Re: [Resolvido]Erro em tempo de execução '3420' - stLinkCriteria

    Mensagem  JPaulo em Seg 20 Nov 2017, 16:43

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: Seg 11 Dez 2017, 23:02