Nouvel enregistrement en gardant des informations

**bry's** · 27/12/2016, 16h34

Cela ne semble pas fonctionner, je dois encore actualiser manuellement pour atteindre un nouveau "Ref_historique"

**User** · 27/12/2016, 16h59

Essayons un scénario :

1/
Vous ouvrez le formulaire sur 1 seul enregistrement ayant comme Ref_historique = 3.

2/
Vous appuyez sur le bouton Ajouter.

3/
Vous saisissez dans le formulaire sur le nouvel enregistrement avec la même Ref_Historique.

A la fin de cette saisie, la seule façon d'actualiser ces changements, c'est soit d'appuyer sur ajouter, pour en créer un nouveau, soir sur le bouton actualiser tout : dans les 2 cas vous vous retrouverez alors avec un seul enregistrement lié au formulaire, le dernier avec comme ref 3.

Même raisonnement pour en ajouter un 2ème...

Donc, merci de me donner un cas de figure ou un scénario qui ne fonctionne pas...

Cdlt,

**bry's** · 27/12/2016, 22h37

En fait lorsque j'ouvre le formulaire, je tombe sur un enregistrement ayant comme ref_historique = 3. Lorsque j'appuie sur le bouton ajouter et que je commence à entre la date c'est le ref_historique = 5 qui apparait et non pas le 3. Le 5 vient du fait que dans ma table historique j'ai un ref_historique égale à 3 et un à 5

**User** · 28/12/2016, 10h42

Bonjour,

Essayer de baser le code avant insertion sur la requête "A faire", plutôt que sur la table "Historique" :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Form_BeforeInsert(Cancel As Integer)
Dim id As Long
 
id = DMax("Id_Historique", "A faire") ' retient le dernier id : id max
 
Me.Date_exécution = DLookup("Date_Exécution", "Historique", "Id_historique=" & id) ' mets à jour la date d'exécution avec la date du dernier id.
Me.Ref_historique = DLookup("Ref_historique", "Historique", "Id_historique=" & id)
Me.Personne = DLookup("Personne", "Historique", "Id_historique=" & id)
Me.Remarque = DLookup("Remarque", "Historique", "Id_historique=" & id)
 
End Sub

Cdlt,

**bry's** · 28/12/2016, 12h02

Le même problème survient toujours, je vois d'abord la ref 3 puis quand je veux ajouter c'est la ref 5 qui apparait.

**User** · 28/12/2016, 12h19

... j'aimerais créer un formulaire qui reprend les informations de la dernière exécution (date, personne, remarque) et de pouvoir créer en même temps un nouvel enregistrement dans lequel on inscrit les nouvelles valeurs mais il devrait garder la même référence (Réf_historique) que l'ancien...

Actuellement, quand vous appuyez sur Ajouter et que vous saisissez une date, il va mettre à jour les champs (Réf_historique, date, personne, remarque) avec les données du dernier enregistrement saisi et présent dans la requête "A faire" (id_historique maximum).

Y-a-t'il une incohérence dans tout cela ?

Cdlt,

**User** · 28/12/2016, 12h43

Envoyé par bry's

En fait lorsque j'ouvre le formulaire, je tombe sur un enregistrement ayant comme ref_historique = 3. Lorsque j'appuie sur le bouton ajouter et que je commence à entre la date c'est le ref_historique = 5 qui apparait et non pas le 3. Le 5 vient du fait que dans ma table historique j'ai un ref_historique égale à 3 et un à 5

Apparemment vous n'êtes pas sur le dernier enregistrement du formulaire avant d'appuyer sur le bouton Ajouter...

Cdlt,

**bry's** · 28/12/2016, 12h45

En fait le problème est que quand on va arriver sur le formulaire, celui-ci va nous dire ce qu'il y a faire aujourd'hui. Par exemple on voit nettoyage des mandrins (ref = 3) mais lorsque l'on va appuyer sur le bouton, on va modifier la vérification du réservoir hydraulique (ref = 5) et non pas le nettoyage des mandrins qui était affiché juste avant

**User** · 28/12/2016, 12h49

Envoyé par bry's

En fait le problème est que quand on va arriver sur le formulaire, celui-ci va nous dire ce qu'il y a faire aujourd'hui. Par exemple on voit nettoyage des mandrins (ref = 3) mais lorsque l'on va appuyer sur le bouton, on va modifier la vérification du réservoir hydraulique (ref = 5) et non pas le nettoyage des mandrins qui était affiché juste avant

ok, donc c'est le dernier avec cette référence actuellement affichée sur le formulaire ?

**User** · 28/12/2016, 12h56

Essayez de modifier le code sur ajout comme suit :

Code :

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

1
2
3
4
5
6
7
 
Private Sub CmdAjouter_Click()
Me.Tag = Me.Ref_historique
Me.Requery
DoCmd.GoToRecord acDataForm, Me.Name, acNewRec
 
End Sub

Et le code avant insertion :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Form_BeforeInsert(Cancel As Integer)
Dim id As Long
 
id = DMax("Id_Historique", "A faire", "Ref_Historique=" & Me.Tag) ' retient le dernier id : id max
 
Me.Date_exécution = DLookup("Date_Exécution", "Historique", "Id_historique=" & id) ' mets à jour la date d'exécution avec la date du dernier id.
Me.Ref_historique = DLookup("Ref_historique", "Historique", "Id_historique=" & id)
Me.Personne = DLookup("Personne", "Historique", "Id_historique=" & id)
Me.Remarque = DLookup("Remarque", "Historique", "Id_historique=" & id)
 
End Sub

Cdlt,

**bry's** · 28/12/2016, 14h49

Ca fonctionne pour le premier mais après je ne peux plus voir le prochain enregistrement, c'est directement pour remplir un nouveau et quand je veux remplir le champ date du deuxième enregistrement, cela m'affiche une erreur : utilisation incorrecte de Null
le débogueur surligne ceci : id = DMax("Id_Historique", "A faire", "Ref_Historique=" & Me.Tag) ' retient le dernier id : id max

**User** · 28/12/2016, 15h32

Envoyé par bry's

Ca fonctionne pour le premier mais après je ne peux plus voir le prochain enregistrement, c'est directement pour remplir un nouveau et quand je veux remplir le champ date du deuxième enregistrement, cela m'affiche une erreur : utilisation incorrecte de Null
le débogueur surligne ceci : id = DMax("Id_Historique", "A faire", "Ref_Historique=" & Me.Tag) ' retient le dernier id : id max

Quand vous actualisez la requête source il est possible que les enregistrements n'est pas les même numéros d'ordre :

Exemple, le 2ème enregistrement devient le 1er.

Concernant votre message d'erreur : pour éviter les valeurs nulles concernant la propriété tag du formulaire, il faut ajouter un test sur le code avant insertion pour n'exécuter la mise à jour des champs uniquement dans le cas ou le tag n'est pas vide :

Le code sur ajoute :

Code :

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

1
2
3
4
5
6
Private Sub CmdAjouter_Click()
Me.Tag = Nz(Me.Ref_historique, "")
Me.Requery
DoCmd.GoToRecord acDataForm, Me.Name, acNewRec
 
End Sub

Et le code avant insertion :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Form_BeforeInsert(Cancel As Integer)
Dim id As Long
 
   If Nz(Me.Tag, "") <> "" Then
 
      id = DMax("Id_Historique", "A faire", "Ref_Historique=" & Me.Tag) ' retient le dernier id : id max
 
      Me.Date_exécution = DLookup("Date_Exécution", "Historique", "Id_historique=" & id) ' mets à jour la date d'exécution avec la date du dernier id.
      Me.Ref_historique = DLookup("Ref_historique", "Historique", "Id_historique=" & id)
      Me.Personne = DLookup("Personne", "Historique", "Id_historique=" & id)
      Me.Remarque = DLookup("Remarque", "Historique", "Id_historique=" & id)
 
   End If
 
 
End Sub

Cdlt,

**bry's** · 28/12/2016, 21h47

Cela me fait la même erreur avec le null avec ceci en surligné : id = DMax("Id_Historique", "A faire", "Ref_Historique=" & Me.Tag) ' retient le dernier id : id max

**User** · 29/12/2016, 14h18

Envoyé par bry's

Cela me fait la même erreur avec le null avec ceci en surligné : id = DMax("Id_Historique", "A faire", "Ref_Historique=" & Me.Tag) ' retient le dernier id : id max

Avez-vous bien mis le code que je vous ai donné dans mon dernier message ?

Permettez moi d'en douter.

Cdlt,

**bry's** · 29/12/2016, 20h55

Je viens de vérifier et recoller au cas où mais oui cela me fait une erreur lorsque je veux inscrire la date du deuxième enregistrement.

**User** · 29/12/2016, 21h06

Envoyé par bry's

Je viens de vérifier et recoller au cas où mais oui cela me fait une erreur lorsque je veux inscrire la date du deuxième enregistrement.

Le mieux c'est que vous repostiez votre base pour que je puisse me rendre compte par moi-même.

Cdlt,

**bry's** · 30/12/2016, 11h46

Pas de soucis, la voici : Plan de maintenance2.rar

**User** · 30/12/2016, 13h05

Bonjour,

Essayez ce code avant insertion :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Form_BeforeInsert(Cancel As Integer)
Dim id As Long
 
   If Nz(Me.Tag, "") <> "" Then
 
      id = DMax("Id_Historique", "Historique", "Ref_Historique=" & Me.Tag) ' retient le dernier id : id max
 
      Me.Date_exécution = DLookup("Date_Exécution", "Historique", "Id_historique=" & id) ' mets à jour la date d'exécution avec la date du dernier id.
      Me.Ref_historique = DLookup("Ref_historique", "Historique", "Id_historique=" & id)
      Me.Personne = DLookup("Personne", "Historique", "Id_historique=" & id)
      Me.Remarque = DLookup("Remarque", "Historique", "Id_historique=" & id)
 
   End If
 
End Sub

Cdlt,