Discussion :

[killowatt]

Bonjour,

Je suis dans un appli ou je dois récupérer des valeurs dans une table et les mettre dans des contrôles. Pour ce faire je récupère d’abord leurs id dans une autre table.

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
 
Dim id, VID As Variant
Dim vornum As Integer
Dim res As Variant
Dim ctl As Control
        For Each ctl In Me.Controls
 
                 'On vérifie les quatres premières lettres du nom du contrôle
                Select Case Left(ctl.name, 4)
                    'si le nom du contrôle commence par "Frmv"
                    Case "Frmv"
                        'On récupère le numéro du paramètre par la propriété remarque du contrôle
 
 
                                VID = DLookup("[Id_Param_EI]", "Tbl_Parametre_EI", "[Designation]='" & ctl.Tag & "'")
 
                                res = DLookup("[valeure_nominale]", "Tbl_Ei_Parametre", "[Id_parametre_EI]= " & VID & " AND  [id_EI]=" & Cidmodif)
                                ctl.Value = IIf(IsNull(res), "", res)
 
                    Case "Frmx"
                   'On récupère le numéro du paramètre par la propriété remarque du contrôle
                       VID = DLookup("[Id_Param_EI]", "Tbl_Parametre_EI", "[Designation]='" & ctl.Tag & "'")
                       res = DLookup("[Tol_max]", "Tbl_Ei_Parametre", "[Id_parametre_EI]=" & VID & " AND  [id_EI]=" & Cidmodif)
                       ctl.Value = IIf(IsNull(res), "", res)
 
 
                    Case "Frmm"
                       'On récupère le numéro du paramètre par la propriété remarque du contrôle
                        VID = DLookup("[Id_Param_EI]", "Tbl_Parametre_EI", "[Designation]='" & ctl.Tag & "'")
 
                        res = DLookup("[Tol_min]", "Tbl_Ei_Parametre", "[Id_parametre_EI]= " & VID & " and [id_EI]=" & Cidmodif)
                        ctl.Value = IIf(IsNull(res), "", res)
                End Select
            Next ctl
 
            For Each ctl In Me.Controls
 
 
                    Select Case Left(ctl.name, 9)
 
 
                        Case "frmmodif1"
                            VID = DLookup("[Id_Param_EI]", "Tbl_Parametre_EI", "[Designation]='" & ctl.Tag & "'")
 
                            res = DLookup("[Tol_min_spe]", "Tbl_Ei_Parametre", "[Id_parametre_EI]=" & VID & " AND  [id_EI]=" & Cidmodif)
                            ctl.Value = IIf(IsNull(res), "", res)
                        Case "frmmodif2"
 
                            VID = DLookup("[Id_Param_EI]", "Tbl_Parametre_EI", "[Designation]='" & ctl.Tag & "'")
 
                            res = DLookup("[Tol_max_spe]", "Tbl_Ei_Parametre", "[Id_parametre_EI]= " & VID & " AND  [id_EI]=" & Cidmodif)
                            ctl.Value = IIf(IsNull(res), "", res)
                    End Select
            Next ctl

Cidmodif est une constante qui contient l'id du rapport.
Au débogage Access me dit qu'il ne peut pas donner une valeurs à l'objet : ctl.Value = IIf(IsNull(res), "", res) en me stipulant que "res" est null.
J'avoue que je ne comprend pas...
Une idée ?

[madefemere]

Bonjour,

J'imagine que tu dois avoir un contrôle du formulaire qui ne peut accepter une valeur.
Je te conseille d'imprimer avec Debug.Print les noms des contrôles avant l'assignation pour identifier la contrôle récalcitrant.
Et à la place du IIF, j'utiliserais la fonction Nz en combinaison avec ton DLookup
Du genre :

Code :

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

1
2
res = Nz(DLookup("[valeure_nominale]", "Tbl_Ei_Parametre", "[Id_parametre_EI]= " & VID & " AND  [id_EI]=" & Cidmodif);" ")
ctl.Value = res

Cordialement,