Discussion :

[Mrhappy94]

Bonjour,
J'ai un formulaire basé sur une table contenant un champ date Date_Maj_record
Je souhaiterais mettre à Now() ce champ uniquement si j'ai modifié n'importe quel autre champs et ne pas mettre à jour ce champs Date_Maj_record si je ne modifie rien et que je passe directement à l'enregistrement suivant.

J'ai fait deux tests
Dans l'évènement Après MAJ du formulaire j'ai écrit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If Me.Dirty Then
    Me.Date_Maj_record = Now()
End If.

Le problème est que Me.Dirty est toujours à True même quand je passe à l'enregistrement suivant sans rien modifier

J'ai écrit la même chose dans l'évènement Si modification mais il n'est jamais déclenché même quand je modifie un champ du formulaire.

Pouvez-vous m'aider ?
Cordialement.

[hyperion13]

Salut
Passez ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim rstModifie As Boolean
 
If Not rstModifie Then
    rstModifie = True
    Me.Date_Maj_record = Date
End If
    rstModifie = False
End Sub

[Mrhappy94]

Salut
Passez ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim rstModifie As Boolean
 
If Not rstModifie Then
    rstModifie = True
    Me.Date_Maj_record = Date
End If
    rstModifie = False
End Sub

Bonjour,
La date est mise à jour même quand je passe à l'enregistrement suivant sans rien modifier
Cordialement

[hyperion13]

La blague !

[Mrhappy94]

La blague !

J'ai remplacé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim rstModifie As Boolean
If Not rstModifie Then
    rstModifie = True
    Me.Date_maj_enreg_vente = Date
End If
    rstModifie = False
End Sub

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim rstModifie As Boolean
If Not rstModifie Then
    rstModifie = True
    Me.Date_maj_enreg_vente = Now()
End If
    rstModifie = False
End Sub

car j'ai l'erreur "valeur non valide pour ce champ" avec Date

Je confirme que Me.Date_maj_enreg_vente est mis à jour systématiquement même quand je passe à l'enregistrement suivant ou précédent avec le sélecteur d'enregistrement sans rien modifier d'autre

[hyperion13]

Date() c'est uniquement la date, Now() c'est date & heure et n'affecte en rien la sub(). C'est une simple question d'affichage dans la textbox.
N'auriez-vous pas un évènement sur l'un des objets (textbox, combobox, etc.) de votre form qui pourrait affecter le résultat de la sub() ?
Éventuellement déposer votre bdd avec seulement la tbl et le frm concerné.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Form_BeforeUpdate(Cancel As Integer)
If MsgBox("Des modifications ont été apportées à cet enregistrement." _
    & vbCrLf & "Voulez-vous les enregistrer ?" _
    , vbExclamation + vbYesNo, "Modification !") = vbYes Then
    Me.Date_maj_enreg_vente = Date
    DoCmd.Save
Else
    DoCmd.RunCommand acCmdUndo
End If
End Sub

[Mrhappy94]

Date() c'est uniquement la date, Now() c'est date & heure et n'affecte en rien la sub(). C'est une simple question d'affichage dans la textbox.
N'auriez-vous pas un évènement sur l'un des objets (textbox, combobox, etc.) de votre form qui pourrait affecter le résultat de la sub() ?
Éventuellement déposer votre bdd avec seulement la tbl et le frm concerné.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Form_BeforeUpdate(Cancel As Integer)
If MsgBox("Des modifications ont été apportées à cet enregistrement." _
    & vbCrLf & "Voulez-vous les enregistrer ?" _
    , vbExclamation + vbYesNo, "Modification !") = vbYes Then
    Me.Date_maj_enreg_vente = Date
    DoCmd.Save
Else
    DoCmd.RunCommand acCmdUndo
End If
End Sub

Voilà le message quand je met date au lieu de now() en pièce jointe

[tee_grandbois]

bonjour,
étrange que Date ne soit pas reconnu ...
est-ce que VBA.Date donne la même erreur ?

[hyperion13]

Essayez

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim rstModifie As Boolean
 
If Not rstModifie Then
    rstModifie = True
    Me.Date_Maj_record = VBA.Date
End If
    rstModifie = False
End Sub

Quelles sont les références cochées dans votre environnement VBA ?
A minima Microsoft Visual Basic for Applications / Microsoft Access xx.x Object Library

[micniv]

Salut à tous et à hyperion13

Salut
Passez ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim rstModifie As Boolean
 
If Not rstModifie Then
    rstModifie = True
    Me.Date_Maj_record = Date
End If
    rstModifie = False
End Sub

lUn problème dans ce code est que rstModifie est inutilisé car toujours initialisé à False alors ne reste que

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.Date_Maj_record = Date

De plus n'aurais tu pas un champ ou une colonne nommée Date dans ta base ?

[Mrhappy94]

Essayez

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim rstModifie As Boolean
 
If Not rstModifie Then
    rstModifie = True
    Me.Date_Maj_record = VBA.Date
End If
    rstModifie = False
End Sub

Quelles sont les références cochées dans votre environnement VBA ?
A minima Microsoft Visual Basic for Applications / Microsoft Access xx.x Object Library

VBA.Date passe sans erreur mais le champs Date_Maj_record est mis à jour tout le temps
J'ai bien les deux références voir pièce jointe

[tee_grandbois]

Salut à tous et à hyperion13


lUn problème dans ce code est que rstModifie est inutilisé car toujours initialisé à False alors ne reste que

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.Date_Maj_record = Date

effectivement, je n'ai pas vu: micniv a raison, c'est ce code qui met systématiquement à jour Me.Date_Maj_record puisque rstModifie est toujours Faux:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim rstModifie As Boolean  ' <==== déclaré, donc Faux
 
If Not rstModifie Then       ' <==== puisqu'il est Faux, met à jour la date
    rstModifie = True
    Me.Date_Maj_record = Date    ' ici
End If
    rstModifie = False
End Sub

il faut enlever ce code

[Mrhappy94]

effectivement, je n'ai pas vu: micniv a raison, c'est ce code qui met systématiquement à jour Me.Date_Maj_record puisque rstModifie est toujours Faux:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim rstModifie As Boolean  ' <==== déclaré, donc Faux
 
If Not rstModifie Then       ' <==== puisqu'il est Faux, met à jour la date
    rstModifie = True
    Me.Date_Maj_record = Date    ' ici
End If
    rstModifie = False
End Sub

il faut enlever ce code

si vous avez une autre idée 💡 je suis preneur

[hyperion13]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim rstModifie As Boolean
 
If Not rstModifie Then
    rstModifie = True
    Me.Date_Maj_record = VBA.Date
Else
    rstModifie = False
End If
End Sub

[Mrhappy94]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim rstModifie As Boolean
 
If Not rstModifie Then
    rstModifie = True
    Me.Date_Maj_record = VBA.Date
Else
    rstModifie = False
End If
End Sub

Je vais faire autrement sans avoir besoin de ce champs.
En tout cas merci et à +

[hyperion13]

Je veux bien me faire moine si ...
4 méthodes différentes qui fonctionnent !
Un tuto ici.

[micniv]

Je propose

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Form_Dirty(Cancel As Integer)
' se déclenche s'il y a eu une modif dans le formulaire
       Me.dtModif = Date
End Sub