Discussion :

[tee_grandbois]

je confirme qu'il s'agit d'un sous-sous formulaire:

Code :

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

           ID = Forms![Formulaire Resultat poule].[F_Sf_Tableau1].Form.[F_SF_Tab1_Tour1].Form!ID_Nom

[irimi54]

en mettant la définition de ID comme préconisé (en mettant la definition de ID avant la ligneW) je n'obtiens pas de blocage de procédure et par debug.print ID puis Debug.print Ligne, j'ai ceci:

Code :

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

1
2
3
4
5
6
7
Select Case NTT
        Case "11"
           ID = Forms![Formulaire Resultat poule].[F_Sf_Tableau1].Form.[F_SF_Tab1_Tour1].Form!ID_Nom
    Debug.Print ID
           LigneW = "WHERE Historique_Poule.ID_Nom = ID;"
           Ligne = Ligne & Ligne1T & Ligne1TR & Ligne2T & Ligne2TR & Ligne3T & Ligne3TR & Ligne4T & Ligne4TR & LigneW
    Debug.Print Ligne

9847
UPDATE Historique_poule SET Historique_poule.Point_1T = '-', Historique_poule.Score_1T = 0, Historique_poule.ID_A_1T = 0, Historique_poule.Point_1TR = '-', Historique_poule.Score_1TR = 0, Historique_poule.ID_A_1TR = 0,Historique_poule.Point_2T = '-', Historique_poule.Score_2T = 0, Historique_poule.ID_A_2T = 0,Historique_poule.Point_2TR = '-', Historique_poule.Score_2TR = 0, Historique_poule.ID_A_2TR = 0,Historique_poule.Point_3T = '-', Historique_poule.Score_3T = 0, Historique_poule.ID_A_3T = 0,Historique_poule.Point_3TR = '-', Historique_poule.Score_3TR = 0, Historique_poule.ID_A_3TR = 0,Historique_poule.Point_4T = '-', Historique_poule.Score_4T = 0, Historique_poule.ID_A_4T = 0,Historique_poule.Point_4TR = '-', Historique_poule.Score_4TR = 0, Historique_poule.ID_A_4TR = 0 WHERE Historique_Poule.ID_Nom = ID;
Donc La valeur de ID est bien trouvée mais il ne la met pas dans WHERE et j'ai un message d'erreur me demandant de remplir la valeur de ID

mais il me parait bizarre que la valeur de ID comporte un blanc devant et derrière car ce n'est pas un String mais un INTEGER

[bcoulom]

Donc La valeur de ID est bien trouvée mais il ne la met pas dans WHERE et j'ai un message d'erreur me demandant de remplir la valeur de ID

mais il me parait bizarre que la valeur de ID comporte un blanc devant et derrière car ce n'est pas un String mais un INTEGER

C'est normal, il faut que tu passes la valeur numérique à ta requête.

Code :

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

LigneW = "WHERE Historique_Poule.ID_Nom = " & trim(cstr(ID)) & ";"

[irimi54]

Merci
j'y avais pensé mais comme ID était défini comme integer je pensais qu'il n'y avait pas besoin de le reconvertir.
Maintenant que la procédure marche à la fin j'ai ce message :


alors que je suis seul a me servir de cette base et donc mes champs ne sont pas modifiés dans la table Historique_poule

[tee_grandbois]

j'y avais pensé mais comme ID était défini comme integer je pensais qu'il n'y avait pas besoin de le reconvertir.

il est en effet inutile de convertir ID puisqu'il est déclaré en Integer (je conseillerai d'ailleurs de le déclarer plutôt en Long sachant que la taille d'un Integer est limité à 32767 et que le dernier n° de la table a déjà atteint 9954).

Pour ce qui concerne le message, c'est toi qui verrouille la table, on le voit quand on rend visible le sélecteur, le petit crayon sur la 2ème ligne du sous-formulaire indique que l'enregistrement est en cours de modification:



il faudrait mettre la commande Actualiser dans la macro Macro MAJ Correction avant de lancer le code MAJ_Correction()

[irimi54]

WOUAH Super tout fonctionne comme voulu

Vous etes des chefs milles merci

[tee_grandbois]

Super, merci.
N'oublie pas de passer la discussion en