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 |
Partager