Discussion :

[pierre.serant]

Bonjour,

Je ne sais par quel bout prendre se problème.
J'ai un code tout simple :

Code :

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

1
2
3
4
5
 
    If Me.ForS_Nomenclatures.Form.Recordset.RecordCount > 0 Then
        Me.ForS_Nomenclatures.Form.Recalc
        Me.Niveau = 1 + Form_ForS_Nomenclatures.NivMaxi 'mise à jours du niveau de nomenclature
    End If

Il recalcule un sous-formulaire pour être sûr que le contrôle soit à jour. (source de NivMaxi =Max([NiveauCompo]).
Puis utilise cette valeur pour l'affecter au contrôle Niveau (source [Niveau]) du formulaire principal +1.

Ce code ne fonctionne pas lorsque je l'exécute en mode normal la valeur de niveau passe toujours à 1 (si je mets + 10 la valeur passe alors toujours à 10). Si j'exécute ce même code avec un point d'arrêt juste avant l'affectation de du calcul, plus de problème j'ai toujours la bonne valeur.

Ma question est donc que faut-il ajouter entre c'est deux lignes pour être certain que la valeur du control NivMax du sous-formulaire, soit disponible en lecture.

[pierre.serant]

Youpi

Pour ceux qui se serait intétessé à mon problème, j'ai trouvé une solution en remplacant le recalcul du sous-formulaire par un requery du controle du sous formulaire.

Code :

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

1
2
3
4
5
 
    If Me.ForS_Nomenclatures.Form.Recordset.RecordCount > 0 Then
        Me.ForS_Nomenclatures.Form.NivMaxi.Requery
        Me.Niveau = 1 + Form_ForS_Nomenclatures.NivMaxi 'mise à jours du niveau de nomenclature
    End If

Mais si vous avez un code qui permet de vérifier qu'une commande est bien achevé avant d'en executer une autre je suis preneur...

[pierre.serant]

Merci ClaudeLELOUP
j'avais testé le DoEvents mais sans résultat...

[ClaudeLELOUP]

Merci pour l'info.