MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    Compartilhe

    Samuel Ribeiro
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 566
    Registrado : 05/02/2011

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

    Mensagem  Samuel Ribeiro em Ter 06 Jan 2015, 19:14

    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:
    Anexos
    Sistema_Consulta_Produtos.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (83 Kb) Baixado 4 vez(es)


    .................................................................................
    ______________________________
         Samuel Carlos Ribeiro

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3227
    Registrado : 20/04/2011

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

    Mensagem  Silvio em Ter 06 Jan 2015, 21:50

    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.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    Samuel Ribeiro
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 566
    Registrado : 05/02/2011

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

    Mensagem  Samuel Ribeiro em Qua 07 Jan 2015, 10:02

    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.


    .................................................................................
    ______________________________
         Samuel Carlos Ribeiro

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3227
    Registrado : 20/04/2011

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

    Mensagem  Silvio em Qua 07 Jan 2015, 10:14

    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.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    Samuel Ribeiro
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 566
    Registrado : 05/02/2011

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

    Mensagem  Samuel Ribeiro em Qua 07 Jan 2015, 10:32

    Ok Silvio
    Muito Obrigado.
    Tópico Resolvido.


    .................................................................................
    ______________________________
         Samuel Carlos Ribeiro

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3227
    Registrado : 20/04/2011

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

    Mensagem  Silvio em Qua 07 Jan 2015, 10:39

    O fórum agradece o retorno !


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: Dom 04 Dez 2016, 01:53