[Resolvido]Erro em tempo de execução '3021' - Nenhum registro atual

Boa tarde

Faz dia que estou tentando resolver este erro mas não consigo, tenho um formulário onde digito o código interno de um produto da loja onde trababalho que uso para alterar o endereço do mesmo, mas assim que digito o código do produto me vem o seguinte erro:

Erro em tempo de execução '3021':
Nenhum registro atual

Estou usando o seguinte código:

Código:

Private Sub txtCodInternoEndereco_AfterUpdate()

Dim strDocNome As String
Dim strLinkCriteria As String

    strDocNome = "FormCadastroEnderecoCodigo"
 
If (Not IsNull(DLookup("[Cod_Interno_Item]", "Cadastro_Itens", _
        "[Cod_Interno_Item] ='" & Me!Cod_Interno_Item & "'"))) Then

     
        Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("Select * From Cadastro_Itens Where Cod_Interno_Item = '" & Me!txtCodInternoEndereco & "'")

      rs.MoveLast
     
'Autopreencher os campos com os dados do registro encontrado:
Me.txtCodigoFocItem = rs("Cod_Foc_Item")
Me.txtCodigoBarrasItem = rs("Cod_Barras_Item")
Me.txtMarcaItem = rs("Marca_Item")
Me.txtDescricaoItem = rs("Descricao_Item")
Me.TxtEndProdAtual = rs("Endereco_Item")

Me.TxtNovoEndProduto.SetFocus

End If

End Sub

E quando peço para depurar esta linha rs.MoveLast , aparece selecionada em amarelo.

Desde ja agradeço.

Boa tarde,
Veja qual o valor assumido pela variável, substitua-a na expressão e teste em consulta
Select * From Cadastro_Itens Where Cod_Interno_Item = '" & Me!txtCodInternoEndereco & "'"
Se não devolver qualquer registo, não deve utilizar o movelast

Bom dia.

Desculpe a demora, muito corrido ultimamente.
Consegui pelo menos fazer funcionar, com pouco mudanças.
Vejo que o colega Alexandre neves tem razão, o problema esta acontecendo devido a esta linha.

"rs.MoveLast"

Veja como ficou o código:

Código:

Private Sub txtCodInternoEndereco_AfterUpdate()

Dim strDocNome As String
Dim strLinkCriteria As String

    strDocNome = "FormCadastroEnderecoCodigo"
    
If (Not IsNull(DLookup("[Cod_Interno_Item]", "Cadastro_Itens", _
        "[Cod_Interno_Item] ='" & Me!Cod_Interno_Item & "'"))) Then
        Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("Select * From Cadastro_Itens Where Cod_Interno_Item = '" & Me!txtCodInternoEndereco & "'")
    
 rs.MoveLast
    
'Autopreencher os campos com os dados do registro encontrado:
Me.txtCodigoFocItem = rs("Cod_Foc_Item")
Me.txtCodigoBarrasItem = rs("Cod_Barras_Item")
Me.txtMarcaItem = rs("Marca_Item")
Me.txtDescricaoItem = rs("Descricao_Item")
Me.TxtEndProdAtual = rs("Endereco_Item")

Me.TxtNovoEndProduto.SetFocus
'End If
End If
End Sub

Continuo tentando fazer com que esta mensagem suma:
Erro em tempo de execução: Nenhum registro atual. Acontece somente com os produtos que não estão cadastrados.
Desde ja Agradeço.

Bom dia Pessoal

Esqueci de finalizar este tópico, problema resolvido.
Veja como ficou o código.

Código:

Private Sub txtCodInternoEndereco_AfterUpdate()

Dim strDocNome As String
Dim strLinkCriteria As String

    strDocNome = "FormCadastroEnderecoCodigo"
   
If (Not IsNull(DLookup("[Cod_Interno_Item]", "Cadastro_Itens", _
        "[Cod_Interno_Item] ='" & Me!txtCodInternoEndereco & "'"))) Then
        Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("Select * From Cadastro_Itens Where Cod_Interno_Item ='" & Me.txtCodInternoEndereco & "'")
    'If rs.RecordCount > 0 Then
      rs.MoveLast
      'Autopreencher os campos com os dados do registro encontrado:
      Me.txtCodigoFocItem = rs("Cod_Foc_Item")
      Me.txtCodigoBarrasItem = rs("Cod_Barras_Item")
      Me.txtMarcaItem = rs("Marca_Item")
      Me.txtDescricaoItem = rs("Descricao_Item")
      Me.TxtEndProdAtual = rs("Endereco_Item")
      'Else
      'Não faz nada
    'End If
Me.TxtNovoEndProduto.SetFocus
End If
End Sub


Obrigado a todos.