MaximoAccess

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

Obrigado

Administração do MaximoAccess


Participe do fórum, é rápido e fácil

MaximoAccess

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

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

    [Resolvido]Atualizar tabela de dados

    avatar
    gordo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 30
    Registrado : 10/10/2011

    [Resolvido]Atualizar tabela de dados Empty [Resolvido]Atualizar tabela de dados

    Mensagem  gordo Qui 18 Fev 2016 - 2:07

    Prezados,

    Estou tentando fazer uma atualização na tabela do meu banco de dados no evento de fechamento do formulário. Mas funciona só em alguns campos da tabela.

    Private Sub Form_Close()
    On Error Resume Next
    If IsNull(Responsavel) Then
    cbxTipoParecer = Null -> não acoplado
    Me.Parecer = "Pendente" -> acoplado
    End If
    End Sub

    No final da execução desse evento, o campo não acoplado não atualiza a tabela e fica nullo. Entretanto o campo parecer, mesmo sendo acoplado, teria que atualizar o campo da tabela para "Pendente" mas isso não acontece.

    Este evento é para que os campos da tabela não fiquem com os registros informados sem que o usuário conclua a alteração, ou seja, se o formulário for fechado sem a conclusão do procedimento de edição, o registro da tabela não fica atualizado de forma incompleta.

    desde já agradeço


    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3913
    Registrado : 14/08/2013

    [Resolvido]Atualizar tabela de dados Empty Re: [Resolvido]Atualizar tabela de dados

    Mensagem  FabioPaes Qui 18 Fev 2016 - 22:49

    Remova o Botao Fechar do Formulario, e add um Novo Botao no Formulario, no evento ao clicar do botao coloque Contrutor de Codigo... e Coloque o Codigo la..


    On Error Resume Next
    If IsNull(Responsavel) Then
    cbxTipoParecer = Null -> não acoplado
    Me.Parecer = "Pendente" -> acoplado
    End If
    docmd.Close

    avatar
    gordo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 30
    Registrado : 10/10/2011

    [Resolvido]Atualizar tabela de dados Empty Re: [Resolvido]Atualizar tabela de dados

    Mensagem  gordo Dom 16 Abr 2017 - 14:03

    Deu certo

      Data/hora atual: Sex 5 Mar 2021 - 23:19