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]Exibe a mensagem de porduto salvo com sucesso, mas não altera na tabela

    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]Exibe a mensagem de porduto salvo com sucesso, mas não altera na tabela

    Mensagem  Samuel Ribeiro em Seg 25 Ago 2014, 19:25

    Boa tarde..

    Estou a dias trabalhando em um pequeno aplicativo para consulta de endereços de produtos onde eu trabalho, mas no formulário em que eu uso para alterar o endereço e informo o novo endereço no campo apropriado e quando aciono o botão para alterar o endereço, o sistema me da a mensagem de endereço alterado com sucesso, mas quando consulto a tabela o endereço não esta alterado.

    Segue anexo parte do bd para analises.

    Desde ja agradeço..
    Anexos
    Sistema_Consulta_Produtos.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (46 Kb) Baixado 13 vez(es)


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

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3206
    Registrado : 15/03/2013

    Re: [Resolvido]Exibe a mensagem de porduto salvo com sucesso, mas não altera na tabela

    Mensagem  ahteixeira em Seg 25 Ago 2014, 23:02

    Olá, tente assim:

    Código:
    '// 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.CmbCodInternoEndereco.Column(1) & "'", dbOpenDynaset)

    O Cod_Interno_Item é a coluna 1 da listbox e o campo é string, por isso as "aspas"
    Abraço

    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]Exibe a mensagem de porduto salvo com sucesso, mas não altera na tabela

    Mensagem  Samuel Ribeiro em Ter 26 Ago 2014, 12:03

    Bom dia ahtexeira

    Funcionou cara, muito obrigado pela ajuda.

    Um Abraço.
    Veja como ficou o código:

    Código:
    Private Sub cmdCadNovoEndereco_Click()
            On Error Resume Next
    '// Verifica se os campos obrigatórios estão nulos
            If IsNull(Me.CmbCodInternoEndereco.Column(0)) Or _
                  Me.CmbCodInternoEndereco.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.CmbCodInternoEndereco.Column(1) & "'", dbOpenDynaset)
        rs.Edit 'Coloca a tabela em modo de edição
        rs![Endereco_Item] = Me.TxtNovoEndProduto.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 CmbCodInternoEndereco_AfterUpdate
    '// Encerra a sub definitivamente
        Exit Sub
       
    End Sub


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

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3206
    Registrado : 15/03/2013

    Re: [Resolvido]Exibe a mensagem de porduto salvo com sucesso, mas não altera na tabela

    Mensagem  ahteixeira em Ter 26 Ago 2014, 12:13

    Olá Samuel,
    Obrigado pelo retorno.
    Abraço

      Data/hora atual: Dom 04 Dez 2016, 06:00