Discussion :

[bry's]

Bonjour à tous,

Il m'a été demandé de réaliser un plan de maintenance mais j'ai des difficultés pour effectuer certaines opérations :

J'ai une requête qui vérifie que la date d'une opération de maintenance est inférieur à sa date d’exécution + la récurrence le date (ex : nettoyer les mandrins de la machine tous les jours donc (date() >= date_exécution + récurrence), jusque là tout va bien ma requête affiche bien les enregistrement souhaité.

C'est la que ça ce complique, 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, cette variable correspond au type d'opération à faire (ex : nettoyage des mandrins) mais je n'arrive pas à faire celà. Soit ça me crée un tout nouvel enregistrement et ne garde rien de l'ancien soit ça modifie l'ancien sans créer de nouvel enregistrement.

Je vous montre un screen de mes relations pour vous aider un peu plus à comprendre la situation, désolé si je ne suis pas très clair dans mon explication, n'hésitez pas à me demandé des détails si vous ne parvenez pas à comprendre ma situation.

[User]

Bonjour,

Le mieux c'est de le faire en VBA, sur l'événement avant insertion de ton formulaire et en utilisant les fonctions de domaine :

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", "Historique") ' retient le dernier id : id max
 
Me.Date_Execution = DLookup("Date_Execution", "Historique", "Id_historique=" & id) ' mets à jour la date d'exécution avec la date du dernier id.
Me.Personne = DLookup("Personne", "Historique", "Id_historique=" & id)
Me.Remarque = DLookup("Remarque", "Historique", "Id_historique=" & id)
 
End Sub

A tester...

Cdlt

[bry's]

Bonjour et merci pour ta réponse !

Cela a marché la première fois mais après impossible de le refaire fonctionner ça modifie celui qui est affiché à la place de créer un nouveau.

[User]

Bonjour,

Tu as bien mis le code sur l'événement avant insertion ?

Peux-tu poster ta base sans les données pour tester ?

Cdlt

[bry's]

Oui j'ai bien mis le code dans avant insertion, je peux poster le fichier complet il n'y a rien de confidentiel et il n'est pas encore trop lourd pour l'instant.

https://mega.nz/#!GxslkYLa!V_tZHtAhG...-XRdpX9fXmEQYk

[User]

Bonjour,

N'oublies pas que tu as mis un critère Date() > =date_exécution + récurrence dans la requête source de ton formulaire, ce qui filtre tes données, mais si tu regardes dans la table historique tu verras que tes saisies apparaissent bien.

Cdlt,

[bry's]

Je n'arrive vraiment pas à le faire fonctionner, cela ne fait que modifier l'enregistrement actuel

[User]

Bonjour,

Le code sur l'événement avant insertion :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Form_BeforeInsert(Cancel As Integer)
Dim id As Long
 
id = DMax("Id_Historique", "Historique") ' 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.Personne = DLookup("Personne", "Historique", "Id_historique=" & id)
Me.Remarque = DLookup("Remarque", "Historique", "Id_historique=" & id)
 
End Sub

Le code sur l'événement clic du bouton ajouter :

Code :

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

1
2
3
4
Private Sub CmdAjouter_Click()
DoCmd.GoToRecord acDataForm, Me.Name, acNewRec
 
End Sub

Et la base jointe allégée (j'ai supprimé les images).

Cdlt,

[bry's]

Bonjour et merci beaucoup pour ton aide mais je n'arrive toujours pas à le faire fonctionner chez moi.

Quand je modifie la date, la personne et la remarque puis que j'appuie sur le bouton, cela continue à modifier l'enregistrement actuel plutôt que de créer un nouvel enregistrement. J'ai essayé également essayé d'appuyer sur le bouton avant de remplir le formulaire mais là aucune information n'est gardée.

Voila ce qu'il se passe lorsque je modifie un enregistrement :

[User]

Bonjour,

Il faut d'abord appuyer sur le bouton ajouter, puis modifier les champs du formulaire.

Cdlt,

[bry's]

Voici l'erreur que ça me donne lorsque je fais comme cela :

[User]

Bonjour,

Pouvez-vous me dire se qu'il affiche si vous cliquez sur débogage ?

Cdlt,

[bry's]

Private Sub CmdAjouter_Click()
DoCmd.GoToRecord acDataForm, Me.Name, acNewRec

End Sub

C'est la ligne en gras qui surlignée,
L'erreur survient quand j'appuie une seconde fois sur le bouton après avoir rempli les informations sur le formulaires. Et je remarque que le champ "Historique.Ref_historique" reste à 0 lorsque l'on appuie sur le bouton.

[User]

Rebonjour,

le champ RefHistorique de la table Historique ne peut pas être à 0 car cette valeur d'index n'est pas présente dans la table Maitre_Historique :

Conformément à la relation un à plusieurs:

Maitre_Historique(RefHistorique) 1-n Historique(RefHistorique)

C'est pour cette raison qu'il vous empêche de passer à un nouvel enregistrement, car la saisie de 0 dans le champ RefHistorique de la table Historique n'est pas possible.

Cdlt,

[bry's]

Mais il faudrait qu'il garde le même numéro que celui qu'on modifie, ce numéro correspond à la manipulation effectuée et donc c'est grâce à lui qu'on sait qu'elle manipulation à été effectuée

[User]

Le même numéro ça d'accord, mais pas égal à 0, dans ce cas il faut ajouter une ligne au code avant insertion.

Et il faut aussi renommer le champ Maitre_Historique.Ref_Historique dans la requête pour distinguer les 2 ref(s) :

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", "Historique") ' 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]

Merci beaucoup cela semble fonctionné mais j'ai maintenant un autre soucis, dans ma requête "A faire", je cherche dans historique les enregistrement dont la date d'aujourd'hui est supérieur à la date d'exécution + récurrence, mais il faudrait que ce ça compare uniquement le dernier de chaque "réf_historique". Car avec le formulaire cela va me créer un enregistrement ayant le même "réf_historique" jusque là c'est parfait mais la requête va continuer à afficher celui déja effectué le jour avant par exemple. J'espère avoir été assez clair, n'hésite pas à me demandé plus d’éclaircissement si tu ne comprends pas le soucis et merci beaucoup pour ton aide en tout cas !

[User]

Bonjour,

Essaies de mettre le critère suivant sous le champ Id_Historique :

Code :

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

MaxDom("id_historique";"Historique";"Ref_Historique=" & [Historique].[Ref_historique])

Ce qui renvoie le dernier id_historique dans la table Historique pour des enregistrements qui ont la même Ref_Historique.

Cdlt,

[bry's]

Bonjour, cela marche à la perfection merci !
Un dernier petit soucis et je pense qu'après ce sera bon, après avoir rentré les informations du nouvel enregistrement la requête ne s'actualise pas, je dois aller cliquer manuellement sur "actualiser tout" dans la requête "A faire" pour avoir accès au nouvel enregistrement sinon je recrée toujours un enregistrement ayant le même "Ref_historique".

[User]

Rebonjour,

Dans le code sur l'événement clic du bouton ajouter, il faudrait actualiser le formulaire avant l'ajout avec la méthode Requery :

Code :

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

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

Cdlt,