Discussion :

[KIK83]

Bonjour à tous,

J'utilise le code suivant afin de récupérer la valeur maxi d'un compteur horaire correspondant à un engin sélectionné dans une liste déroulante:

Code :

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

1
2
3
4
5
6
' Compteur horaire Engin (Valeur MAX dans la table Entretien Périodique)
sql = "SELECT MAX([Compteur horaire]) FROM Table_Engins_Entretien_Periodique WHERE [Désignation engin] = '" & Me.lst_Engin.Value & "' "
Set RS = CurrentDb.OpenRecordset(sql)
If Not RS.EOF Then
    Me.txt_Fiche_Heure_Engin.Value = RS.Fields("[Compteur horaire]").Value
End If

Ce code a un comportement étrange...

La valeur retournée dans Me.txt_Fiche_Heure_Engin.Value est la désignation de l'engin (alors que je veux le compteur horaire) et incidemment une erreur est retournée "Elément non trouvé dans cette collection", ce qui est évident vu que la désignation de l'engin n'est pas présente dans compteur horaire...

J'ai du me tromper dans ma requête SELECT MAX, mais je ne vois pas où
(Note: Compteur horaire est un champ numérique)

Si quelqu'un a une idée, ce serait sympa. Merci

Bonne journée

[Jean-Philippe André]

salut,
en ajoutant un alias à ton champ, tu devrais y arriver aisément :

Code :

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

sql = "SELECT MAX([Compteur horaire]) As [Compteur horaire] FROM Table_Engins_Entretien_Periodique WHERE [Désignation engin] = '" & Me.lst_Engin.Value & "' "

[Tofalu]

Bonjour

Soit vous aliaser le MAX et le reprennez dans la collection Fields, soit vous utilisez la position du champ dans le recordset :

Code :

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

Me.txt_Fiche_Heure_Engin.Value = RS.Fields(0).Value

[KIK83]

Merci à tous pour vos réponses,

Me.txt_Fiche_Heure_Engin.Value = RS.Fields(0).Value

J'avais déjà essayé sans plus de succès...

Et j'ajoute un alias à [Compteur horaire], j'ai une erreur circulaire

Je colle le code complet de ma procédure dès fois que cela puisse vous aider:

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
24
25
26
27
28
29
30
31
32
Private Sub lst_Engin_AfterUpdate()
Me.txt_Nom_Engin.Value = Me.lst_Engin.Value
Me.img_No_Image.Visible = False
 
Dim RS As DAO.Recordset
sql = "SELECT * FROM Table_Engins WHERE [Désignation engin] = '" & Me.lst_Engin.Value & "' "
Set RS = CurrentDb.OpenRecordset(sql)
If Not RS.EOF Then
    Me.txt_Fiche_Nom_Engin.Value = RS.Fields("[Désignation engin]").Value
    Me.txt_Fiche_N°Serie.Value = RS.Fields("[N° de série]").Value
    Me.txt_Fiche_N°Parc.Value = RS.Fields("[N° de parc]").Value
    Me.txt_Fiche_Année.Value = RS.Fields("[Année de mise en service]").Value
    Me.txt_Fiche_MiseEnRoute.Value = RS.Fields("[Date de mise en route]").Value
    If IsNull(RS.Fields("Photo").Value) Then
        Me.img_Engin.Picture = ""
        Me.img_No_Image.Visible = True
    Else
        Me.img_Engin.Picture = RS.Fields("Photo").Value
    End If
 
End If
RS.Close
 
' Compteur horaire Engin (Valeur MAX dans la table Entretien Périodique)
sql = "SELECT MAX([Compteur horaire]) FROM Table_Engins_Entretien_Periodique WHERE [Désignation engin] = '" & Me.lst_Engin.Value & "' "
Set RS = CurrentDb.OpenRecordset(sql)
If Not RS.EOF Then
    Me.txt_Fiche_Heure_Engin.Value = RS.Fields([Compteur horaire]).Value
End If
RS.Close
 
End Sub

Merci pour votre patience.

[KIK83]

En fait, c'est parfait

J'ai bien une erreur circulaire si j'atoute un alias

Par contre si je suis le conseil de Tofalu:

Code :

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

Me.txt_Fiche_Heure_Engin.Value = RS.Fields(0).Value

Cela fonctionne. J'avais mis RS.Fields(4) parce que je croyais que cela correspondait à la 4ème colonne de ma table. Et bien visiblement non

Si quelqu'un peu m'expliquer ce RS.Fields ce serait sympa.

Merci encore pour votre aide.

Bonne soirée