[Resolvido]Actualizar campo do formulário

Tenho um campo no formulário [DataActualização] que quero que actualize quando faço alterações no subform.
Call VerificaAlteracoes(Forms!frmIdentidade) Aqui chamo a função "VerificaAlteracoes" para guardar alterações e actualizar o campo [DataActualização].
Acontece que o campo não é actualizado.
Alguém me pode dar uma dica?

Luís Antunes

A dica seria, você mostrar o código da função VerificaAlteracoes

para a gente tentar ajudar.

[ ]'s

Noobezinho

Obrigado pelo retorno.
Aqui vai os códigos que utilizo para actualizar  o campo DataActualização

Código:

Public Function VerificaAlteracoes(frm As Form) As Integer
'By JPaulo ® Maximo Access
Dim ctl As Control
' A propriedade Dirty é True se o registro for alterado.
If frm.Dirty Then
' Mensagem de pedir confirmação
If MsgBox("Detectada alteração de dados... " & vbCrLf & "Deseja salvar ? ", vbYesNo + vbQuestion, "Alerta") = vbNo Then
'se a resposta for não, desfaz as alterações
frm.Undo
Else
'se for sim, salva as alterações
DoCmd.Save acDefault
End If
End If
End Function

'O código acima está em módulo

'Private Sub Form_BeforeUpdate(Cancel As Integer)
''chamada da função no formulário
'Call VerificaAlteracoes(Me)
'End Sub
'Este código está associado ao campo [DataActualização]


No form funciona tudo perfeitamente, o que eu pretendia era que, qualquer alteração que fizesse no subform
actualizasse o campo do form [DataActualização]

Luiz

Como o campo [DataActualização] é alimentado?

Ou seja, como é colocado a data nele?

É digitado?

E verifique na tabela, se ele está como campo data mesmo.


Aguardo...

Boas
A data é definida Na propriedade do campo ,valor predefinido =Now().

Não disse em qual propriedade, definiu.

Também não disse se a caixa de texto onde vai a data está vinculada/acoplada com o campo DataActualização da tabela.

Se não tiver, vincule ou deixe acoplado.

Então vou "chutar" :

Acreditando que a caixa de texto esteja acoplada ao campo da tabela:


If MsgBox("Detectada alteração de dados... " & vbCrLf & "Deseja salvar ? ", vbYesNo + vbQuestion, "Alerta") = vbNo Then
'se a resposta for não, desfaz as alterações
frm.Undo
Else
'se for sim, salva as alterações

Me.NomeDacaixaDeTextoData = Now

DoCmd.Save acDefault


Se não funfar, melhor enviar a tabela e o formulário envovido.

[ ]'s

Boas
O código não me deu certo, Junto envio a BD para uma melhor compreensão.

Obrigado pela disponibilidade.


Luís Antunes

Luíz


O problema está no nome do campo DataActualização.

Veja que na tabela está escrito errado: DataAcutalização

Corrija na tabela, no código vba e no formulário.

Então o código fica assim:

Public Function VerificaAlteracoes(frm As Form) As Integer
'By JPaulo ® Maximo Access
Dim ctl As Control
' A propriedade Dirty é True se o registro for alterado.
If frm.Dirty Then
   ' Mensagem de pedir confirmação
   If MsgBox("Detectada alteração de dados... " & vbCrLf & "Deseja salvar ? ", vbYesNo + vbQuestion, "Alerta") = vbNo Then
      'se a resposta for não, desfaz as alterações
      frm.Undo
     
   Else
    Forms!frmIdentidade!DataActualização = Now
   End If
End If
End Function


[ ]'s

Noobezinho
Obrigado pela ajuda.
Já corrigi o nome na tabela e o código funciona bem. Agora só necessitava que, quando fizesse alterações no sub formulário
o campo [DataActualização], que está no form principal, fosse também actualizado.

Luís Antunes

Luís

Então ficou assim:

Criei duas funções, uma para cada formulário.

Copie o código abaixo e substitua no módulo ModVerificaAlteracoes.

Modifique os nomes dessas funções na propriedade antes de atualizar de cada formulário.

[ ]'s

Código:


Public Function VerificaAlteracoes()
'By JPaulo ® Maximo Access

' A propriedade Dirty é True se o registro for alterado.
If Forms!frmIdentidade.Dirty Then
   If MsgBox("Detectada alteração de dados... " & vbCrLf & "Deseja salvar ? ", vbYesNo + vbQuestion, "Alerta") = vbNo Then
      
      Forms!frmIdentidade.Undo
      
   Else
    
      Forms!frmIdentidade!DataActualização = Now
    End If
End If
End Function


Public Function VerificaAlteracoesSub()
'By JPaulo ® Maximo Access

' A propriedade Dirty é True se o registro for alterado.
If Forms!frmIdentidade!SubProcesso.Form.Dirty Then
   If MsgBox("Detectada alteração de dados... " & vbCrLf & "Deseja salvar ? ", vbYesNo + vbQuestion, "Alerta") = vbNo Then
            
      Forms!frmIdentidade!SubProcesso.Form.Undo
   Else
    
      Forms!frmIdentidade!DataActualização = Now
    End If
End If
End Function


Noobezinho

Funcionou na perfeição. Fico-lhe grato pela ajuda

Luís Antunes

Ótimo!

Bom saber que ajudei!

Valeu pelo retorno!

Boa sorte!