Discussion :

[Jo_Hey]

Bonjour à tous !

Merci d'avance à quiconque pourra m'aider.

J'ai une table (qui se crée évidemment sur base d'un formulaire) qui agit +/- comme un calendrier. Dans cette table on retrouve le nom de toutes les machines outils de l'entreprise et la date à laquelle leur entretien doit être fait.
J'aimerai (au moyen d'une macro fait sur un évènement je suppose ? ) faire en sorte quand quand j'ouvre mon fichier Access, une fenêtre de dialogue s'ouvre pour me dire que c'est le jour de l'entretien de tel machine.

Mais je ne sais pas comment m'y prendre (je ne sais pas utilisé les macro actuellement, je suis encore en phase d'apprentissage).

Encore merci si vous savez m'aider.

[User]

Bonjour,

Si on a une table t_entretien (DateEntretien, NomMachine) pour enregistrer les dates des entretiens des machines, et un formulaire f_entretien basé sur cette table,
alors on peut tester à l'ouverture du formulaire de démarrage de la base Access, si il y a un entretien pour ce jour.

Si c'est le cas on peut ouvrir le formulaire f_entretien filtré sur la date d'aujourd'hui :

Code à mettre sur l'événement ouverture du formulaire de démarrage (formulaire d'accueil) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Form_Open(Cancel As Integer)
 
    If DCount("*", "t_entretien", "DateEntretien=Date()") > 0 Then ' si au moins une machine doit être entretenue
 
        MsgBox "Entretien à réaliser sur des machines !", vbExclamation ' on inique qu'un entretien doit être réalisé
 
        DoCmd.OpenForm "F_Entretien", , , "DateEntretien=Date()", , acDialog ' ouverture du formulaire filtré sur la date d'aujourd'hui
 
    End If
 
End Sub

[Jo_Hey]

Merci pour la réponse !

ça commence bien mais ça fini mal, auriez vous une idée de la raison ?

[User]

Merci pour la réponse !

ça commence bien mais ça fini mal, auriez vous une idée de la raison ?

Oui je ne sais pas trop pourquoi, mais je vous rassure on a tous connu ça un jour

Sinon, votre formulaire F_Calendrier est bien basé sur la table T_Calendrier ?

J'essaierai ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Form_Open(Cancel As Integer)
 
    If DCount("*", "T_Calendrier", "DateEntretien=Date()") > 0 Then
 
        MsgBox "Entretien à réaliser sur des machines !", vbExclamation
 
        DoCmd.OpenForm "F_Calendrier"
        Forms!F_Calendrier.Form.RecordSource = "select * from T_Calendrier where DateEntretien=Date();"
 
    End If
 
End Sub

[Jo_Hey]

Vous êtes un chef ! Merci beaucoup