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:
E quando peço para depurar esta linha rs.MoveLast , aparece selecionada em amarelo.
Desde ja agradeço.
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.