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
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