Discussion :

[Alex3418]

Bonjour,

Je voudrais créer un fichier Access avec une table client (Nom, adresse, visite (1 semaine, 1mois), tél) et une table materiel (machine 1 date maintenance, machine 2 date maintenance)

Pour pouvoir ressortir ensuite les machines et chez qui elles sont dont la maintenance va arriver à terme à 90 j et à 30j et dont la date est déjà dépassé.

J'espère avoir été assez claire

Merci de votre aide rapide

[User]

Bonjour,

Voici une discussion sur le sujet de la maintenance préventive :

https://www.developpez.net/forums/d1...entive-access/

Cdlt,

[Alex3418]

Bonjour,

j'ai bien vu cet exemple, mais moi en plus j'ai besoin de savoir où se trouve le matériel qui arrive en maintenance et je n'ai pas les échéances à 90 J et à 30 J et date dépassée.

C'est pourquoi je vous ai demandé de l'aide

[User]

Bonsoir,

Donc pour avoir l'emplacement du matériel (adresse client, etc..) il faut relier la table Client à la table matériel ou équipement dans la liste des préventives.

Ensuite, pour filtrer par échéance, je crois qu'il faudrait créer une liste déroulante (contenu : "Echeance 90j","Echenace 30j"..)) en plus des zones de texte datedebut et datefin, et metrre du code sur afterupdate de la liste déroulante pour définir les dates en fonction du choix effectué dans la liste :

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
17
18
19
20
21
22
23
Private Sub ParamDate_AfterUpdate()
 
    If Me.ParamDate.Value = "Échéance 90j" Then
        Me.DateDebut.Value = Date
        Me.DateFin.Value = DateAdd("d", 90, Date)
    Else
        If Me.ParamDate.Value = "Échéance 30j" Then
            Me.DateDebut.Value = Date
            Me.DateFin.Value = DateAdd("d", 30, Date)
        Else
            If Me.ParamDate.Value = "Date dépassée" Then
                Me.DateDebut.Value = Null
                Me.DateFin.Value = Date - 1
            Else
                Me.DateDebut.Value = Null
                Me.DateFin.Value = Null
            End If
        End If
    End If
 
    ' rafraîchissement de la liste
 
End Sub

Ensuite mettre à jour la liste avec un code ressemblant à cela :

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
17
Public Sub RefreshListePreventives()
    Dim leSQL As String
    Dim leWhere As String
 
    leWhere = " DatePreventive between #" & Format(Nz(Me!DateDebut, #1/1/1000#), "mm/dd/yyyy") & "# and #" & Format(Nz(Me!DateFin, #1/1/4000#), "mm/dd/yyyy") & "#"
 
    If (Nz(Me.ParamNomClient, "") <> "") And (Me.ParamNomClient <> "[Tous]") Then
        leWhere = leWhere & " and ([NomClient] like '" & Me.ParamNomClient & "')"
    Else
        Me.ParamNomClient = "[Tous]"
    End If
 
    leSQL = "Select * From R_ListePreventives where" & leWhere & " order by [DatePreventive] asc;"
 
    Me.SF_ListeEquipement.Form.RecordSource = leSQL
 
End Sub

Cdlt,

[Alex3418]

Bonjour,

Mes capacités en access sont un très novice je n'ai pas réussi à faire aboutir le résultat attendu je vous l'ai mis en PJ

Merci de votre aide

[Zekraoui_Jakani]

Voici une solution qui pourrait répondre à vos besoins.