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


3 participantes

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

    Nill.GO
    Nill.GO
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Nill.GO 19/11/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
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Alexandre Neves 19/11/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
    Nill.GO
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Nill.GO 19/11/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)
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  JPaulo 20/11/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.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Erro em tempo de execução '3420' - stLinkCriteria Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Erro em tempo de execução '3420' - stLinkCriteria Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Erro em tempo de execução '3420' - stLinkCriteria Folder_announce_new Instruções SQL como utilizar...
    Nill.GO
    Nill.GO
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Nill.GO 20/11/2017, 14:38

    Valeu amigo, D+
    Muito agradecido
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  JPaulo 20/11/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.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Erro em tempo de execução '3420' - stLinkCriteria Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Erro em tempo de execução '3420' - stLinkCriteria Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Erro em tempo de execução '3420' - stLinkCriteria Folder_announce_new Instruções SQL como utilizar...

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 22:31