[Resolvido]Erro de compilação: Método ou menbro de Dados não encontrado

Boa tarde
a uns dias estou tentando resolver um problema com meu sistema de consulta de produtos, estava tendo o erro em questão em um txtCodInternoEndereco até que com a ajuda do colega Dilson resolvi, agora no botão cmdCadNovoEndereco até sei o que fazer, mas não sei como fazer, por isto peço a ajuda de vocês,

Segue abaixo todo o código envolvido:

Código:

Private Sub CmdCadNovoEndereco_Click()
  On Error Resume Next
'// Verifica se os campos obrigatórios estão nulos
        If IsNull(Me.txtCodInternoEndereco.Column(0)) Or _
              Me.txtCodInternoEndereco.Column(0) = "" Or _
                 IsNull(Me.TxtNovoEndProduto.Value) Or _
                 Me.TxtNovoEndProduto.Value = "" Then
MsgBox "Escolha o código do produto e informe o novo Endereço e tente novamente. ", vbInformation, "Sistema de Consulta de Produto - Informação": Exit Sub
End If
        
'// Variáveis
    Dim rs As DAO.Recordset
'// Abre o recordset pelo produto selecionado na TXT  "Cod_Interno_Item"
     Set rs = CurrentDb.OpenRecordset("Select Endereco_Item From Cadastro_Itens Where Cod_Interno_Item='" & Me.txtCodInternoEndereco.Column(1) & "'", dbOpenDynaset)
    rs.Edit 'Coloca a tabela em modo de edição
    rs![Endereco_Item] = Me.cmdNovoEndProduto.Value 'Atualiza o valor do campo
    rs.Update 'Salva a modificação
'// Informa ao usuário
    MsgBox "Endereço do Produto atualizado com sucesso", vbInformation + vbOKOnly, "Sistema de Consulta de Produtos - Informação"
'// Limpa o campo Novo Estoque
    Me.TxtNovoEndProduto = ""
'// fecha o recordset e limpa a memória
    Set rs = Nothing: Close
'// Atualiza as informações no formulário
    Call cmdCodInternoEndereco_AfterUpdate
'// Encerra a sub definitivamente
    Exit Sub
    
End Sub

----------------------------------------------------------------------------------------------------------------------------------------------

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
      
If MsgBox("Este Produto ja tem Endereço Cadastrado no Sistema: " & txtCodInternoEndereco.Value & "" & vbCrLf & vbCrLf & _
"Você deseja trocar o Endereço deste Produto?", vbQuestion + vbYesNo, "Decisão") = vbYes Then

'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

------------------------------------------------------------------------------------------------------------------------------------------
Private Sub cmdNovoRegistro_Click()
On Error Resume Next
DoCmd.GoToRecord , , acNewRec

Me.txtCodInternoEndereco = ""
Me.txtCodigoFocItem = ""
Me.txtCodigoBarrasItem = ""
Me.txtMarcaItem = ""
Me.txtDescricaoItem = ""
Me.TxtEndProdAtual = ""
Me.TxtNovoEndProduto = ""

Exit_cmdNovoRegistro_Click:
txtCodInternoEndereco.SetFocus

End Sub


E segue em anexo o formulário e tabela envolvido:

Boa noite.....

O código está assim....no teu projeto:
On Error Resume Next
'// Verifica se os campos obrigatórios estão nulos
       If IsNull(Me.txtCodInternoEndereco.Column(0)) Or _
             Me.txtCodInternoEndereco.Column(0) = "" Or _
                IsNull(Me.TxtNovoEndProduto.Value) Or _
                Me.TxtNovoEndProduto.Value = "" Then

Porém note que txtcodinternoendereco é uma caixa de texto e não uma combobox.

Sugestão...deixa assim:

On Error Resume Next
'// Verifica se os campos obrigatórios estão nulos
       If IsNull(Me.txtCodInternoEndereco) Or _
             Me.txtCodInternoEndereco = "" Or _
                IsNull(Me.TxtNovoEndProduto.Value) Or _
                Me.TxtNovoEndProduto.Value = "" Then

Bons estudos.

Ps....pelo que eu vi, em uma rápida passada de olhos....acho que tem mais coisas erradas nessa rotina, veja com cautela e cuidados.

Bom dia Silvio

Muito Obrigado Funcionou..
Só que depois que eu altero um endereço e aciono o botão novo ele limpa todos os campos e me da a opção de digitar um novo código para alterar o endereço, mas quando digito o endereço ele não preenche os dados do produto como de costume.

Bom dia....como eu lhe avisei na mensagem anterior....esse código tem mais algumas coisas que podem ser aprimoradas.
Estude cada linha com cuidado.
Bons estudos.

Ok Silvio
Muito Obrigado.
Tópico Resolvido.

O fórum agradece o retorno !