MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

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
    avatar
    Samuel Ribeiro
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 570
    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
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3636
    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.]
    avatar
    Samuel Ribeiro
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 570
    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
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3636
    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.]
    avatar
    Samuel Ribeiro
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 570
    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
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3636
    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: Ter 17 Out 2017, 08:53