MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


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.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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


2 participantes

    [Resolvido]forçar atualizaçao de tabela após incluir novo registro

    avatar
    carlosbarrostc
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 130
    Registrado : 26/06/2011

    [Resolvido]forçar atualizaçao de tabela após incluir novo registro Empty forçar atualizaçao de tabela após incluir novo registro

    Mensagem  carlosbarrostc 26/1/2012, 13:53

    bom dia a todos,

    Estou incluindo campos de um form (desvinculado) em uma tabela e o registro nao atualiza em tempo real.
    fazendo consultas no google entendi que preciso utilizar o begintrans e committrans para forçar mas os mesmos nao estao disponiveis para o processo com DAO no access 2010.

    Estou postando a parte do codigo que faz isso.

    Pergunto: qual o comandoa que posso usar para forçar atualizaçao. é somente isso que esta faltando para meu codigo funcionar.

    trecho do codigo. (estou usando ocódigo do colega JPaulo.
    =====================
    Private Sub cmdSalvar_Click()
    'By JPaulo ® Maximo Access
    Dim db As DAO.Database
    Dim rst As DAO.Recordset
    Dim i As String
    On Error Resume Next
    'verifica se as caixas de texto estão vazias
    If IsNull(Me.txtNome) Or Me.txtNome = "" Or IsNull(Me.txtMorada) Or Me.txtMorada = "" Then
    MsgBox "Campos vazios encontrados...", vbCritical
    Exit Sub
    End If
    If Me.NovoReg Then 'Verifica se o controle NovoReg é verdadeiro ou falso -> se for verdadeiro ..
    'abre o recordset da tabela
    Set rst = CurrentDb.OpenRecordset("Select * from tblExemplo")
    'adiciona na tabela
    rst.AddNew
    rst("Cliente") = Me.txtNome
    rst("CPF") = Me.txtCPF
    rst("Morada") = Me.txtMorada
    rst.Update
    MsgBox "Registro adicionado com sucesso...", vbInformation
    Else

    'abre o recordset da tabela
    Set rst = CurrentDb.OpenRecordset("SELECT * FROM tblExemplo WHERE ID = " & txtId.Value)

    'pergunta ao user se quer mesmo salvar
    i = MsgBox("Deseja Salvar as alterações neste Registro ?", vbYesNo, "Confirmação")
    If i = vbYes Then
    rst.AddNew
    rst("Cliente") = Me.txtNome
    rst("CPF") = Me.txtCPF
    rst("Morada") = Me.txtMorada
    rst.Update
    MsgBox "Registro Salvo com sucesso...", vbInformation
    Else

    Me.txtNome.Value = ""
    Me.txtMorada.Value = ""
    Me.PesqCPF = ""
    Exit Sub
    End If
    End If
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]forçar atualizaçao de tabela após incluir novo registro Empty Re: [Resolvido]forçar atualizaçao de tabela após incluir novo registro

    Mensagem  criquio 26/1/2012, 15:11

    A tabela á atualizada automaticamente ao inserir novo registro. Talvez esteja querendo atualizar a exibição dos registros no formulário, seria isso? Se for, pode usar Me.Requery se o código estiver no próprio formulário a ser atualizado ou Forms!NomeDoForm.Requery se for outro formulário ou no caso de subformulário dentro do formulário que contem o código, pode ser Forms!NomeFormPai!NomeFormFilho.Form.Requery ou pode colocar o nome do controle aonde está o subform: Me.NomeDoControleSubForm.Requery.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    carlosbarrostc
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 130
    Registrado : 26/06/2011

    [Resolvido]forçar atualizaçao de tabela após incluir novo registro Empty Re: [Resolvido]forçar atualizaçao de tabela após incluir novo registro

    Mensagem  carlosbarrostc 26/1/2012, 15:14

    Eu visualizo os dados na tabela somente quando pressiono f5 e pelo que entendo isso deveria ser automatico.

    como forçar isso via vba no codigo postado?
    avatar
    carlosbarrostc
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 130
    Registrado : 26/06/2011

    [Resolvido]forçar atualizaçao de tabela após incluir novo registro Empty Re: [Resolvido]forçar atualizaçao de tabela após incluir novo registro

    Mensagem  carlosbarrostc 26/1/2012, 15:16

    Criquio e demais A tabela NAO É atualizada automaticamente ao inserir novo registro. Por isso estou pedindo ajuda.

    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]forçar atualizaçao de tabela após incluir novo registro Empty Re: [Resolvido]forçar atualizaçao de tabela após incluir novo registro

    Mensagem  criquio 26/1/2012, 15:19

    Você está fechando o db e o rst após a ação e liberando a memória?

    ...
    rst.Close
    Set rst = Nothing
    db.Close
    Set db = Nothing


    A tabela fica aberta ou fechada enquanto você coloca os registros? Porque normalmente deixamos ela fechada e visualizamos os dados em um subformulário. Por isso passei o código do post anterior.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    carlosbarrostc
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 130
    Registrado : 26/06/2011

    [Resolvido]forçar atualizaçao de tabela após incluir novo registro Empty Re: [Resolvido]forçar atualizaçao de tabela após incluir novo registro

    Mensagem  carlosbarrostc 26/1/2012, 22:48

    Obrigado.

    Conteúdo patrocinado


    [Resolvido]forçar atualizaçao de tabela após incluir novo registro Empty Re: [Resolvido]forçar atualizaçao de tabela após incluir novo registro

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 08:02