Bonjours a tous,
je ne suis pas capable de faire un update de juste un champs dans ma table. Cependant, je ne sais pas si cela est possbile quand la table est deja ouverte ....
J'aimerais savoir si cela se réalise .. si oui comment Merci symcod
Private Sub LOAD_GROUPE(NO_GROUPE)
NO_INDEX = 1
With GRS_GR_ACT_CHO
.MoveFirst
SQL = " SELECT distinct(NO_GROUPE_ACTION),NO_ACTION,NO_INDEX_ACT FROM T_GR_ACT_CHO WHERE " & NO_GROUPE & " = NO_GROUPE_ACTION ORDER BY NO_INDEX_ACT "
.Close
.Open SQL, GCNNBASE
Do Until .EOF
With GRS_ACTIONS
.MoveFirst
.Close
SQL = "SELECT * FROM T_ACTION WHERE NO_ACTION = " & GRS_GR_ACT_CHO!NO_ACTION
.Open SQL, GCNNBASE
End With
If NO_INDEX <> !NO_INDEX_ACT Then
!NO_INDEX_ACT = NO_INDEX <-- PROBLÈME
.Update !NO_INDEX_ACT <-- PROBLÈME
End If
LST_GR_ACTION.List(LST_GR_ACTION.ListIndex) = Format(GRS_ACTIONS!NO_ACTION, "000") & "," & GRS_ACTIONS!NOM
LST_COPIE.List(LST_GR_ACTION.ListIndex) = NO_INDEX
NO_INDEX = NO_INDEX + 1
.MoveNext
Loop
End With
End Sub