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

    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]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
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4397
    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
    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]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
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4397
    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 24 Set 2017, 02:15