Discussion :

[samlepiratepaddy]

Slt,
Je ne pige pas pourquoi cette UPDATE simple de marche pas

Code :

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

DoCmd.RunSQL "UPDATE T_Appel SET T_Appel.RésultatAppel = 'Hors Critères' WHERE (((T_Appel.IdAppel) = Forms!F_DébutCommunication!RécupIdAppel));"

Pas d'erreur de sintaxe...., rien ...
Elle me met : mise jour..
Vous aller mettre a jour 0 lignes ??? : :
je lui demande bien de mettre a jour l'enregistrement IdAppel à 'Hors Critères' !!!

[Demco]

Je pense qu'en t'inspirant de ce tuto tu résoudras facilement tous tes futurs problèmes de ce genre.

En espérant t'aider.

[Faw]

Salut, et comme ca:

Code :

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

1
2
DoCmd.RunSQL "UPDATE T_Appel SET T_Appel.RésultatAppel = 'Hors Critères' WHERE [T_Appel.IdAppel] = 
" & Forms!F_DébutCommunication!RécupIdAppel & ";"

Elague les parenthèses du qbe elles encombrent ton code pour rien.

[samlepiratepaddy]

Slt,
Ben ça commence a me les briser menues menues
Rien a faire !
J'ai tout essayé
en fait même avec une requete faite avec l'interface ACCESS ne met rien à jour :
Le code est executer sur AfterMaj d'une liste, d'un autre form, ouvert, et selon l'enregistrement de la liste je met a jour

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub TrancheAge_AfterUpdate()
 
If ((Me.Activité) = "Sans Emploi") Then
MsgBox "BLABLABLA....."
DoCmd.RunSQL "UPDATE T_Appel SET T_Appel.RésultatAppel = 'Hors Critères' WHERE [T_Appel.IdAppel] = " & Forms!F_DébutCommunication!SF_PriseAppel!IdAppel & ";"
 
 
End If
End Sub

En entier ça donne ça!
J'ai essayé aussi

Code :

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

DoCmd.RunSQL "UPDATE T_Appel SET T_Appel.RésultatAppel = 'Hors Critères' WHERE [T_Appel.IdAppel] = " & Forms!F_DébutCommunication!SF_PriseAppel!Form.IdAppel & ";"

J'ai essayé aussi ta façon

Code :

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

1
2
DoCmd.RunSQL "UPDATE T_Appel SET T_Appel.RésultatAppel = 'Hors Critères' WHERE [T_Appel.IdAppel] = 
" & Forms!F_DébutCommunication!RécupIdAppel & ";"

Et [RécupAppel] est un texbox indépendant qui va récuperer l 'IdAppel du sousformulaire...Pas très bien fait, je sais, mais j'explore toutes les possibilitées pour que cela fonctionne !!!
Et a chaque fois je n'ai aucune ligne qui se met à jour

Vous allez mettre à jour 0 lignes

Mais y'en a une a mettre à jour !!!
Grrrrrr
Deux jours la dessus c'est terrible !!!!!!!!!!!!!!

[pgz]

Bonjour,

Le message d'erreur semble indiquer qu'aucun enregistrement ne satisfait la clause WHERE.

Soit c'est le cas, soit il y a un pb dans l'expression qui ne provoque pas d'erreur de syntaxe.

Quel est le type de IdAppel?

Tu pourrais visualiser RécupIdAppel par un msgbox, pour voir ..

Bonne chance,

pgz

[User]

Utilise le tuto de caféine sur le débuggage:

met avant ton DoCmd.runsql met 1:

Debug.Print "UPDATE T_Appel SET T_Appel.RésultatAppel = 'Hors Critères' WHERE [T_Appel.IdAppel] =
" & Forms!F_DébutCommunication!RécupIdAppel & ";"

pour voir les valeur de Forms!F_DébutCommunication!RécupIdAppel
et le contenu de ton sql

Tu peux aussi faire 1 copier coller de ton sql dans qbe pour visionner le résultat et mieux comprendre ton sql ...

@+

[niclalex]

la meme requete en selection donne combien d'enregistrements ?

[samlepiratepaddy]

Slt,
Pour répondre a niclalex et bien en théorie Un seul c'est le but !
Je souhaite simplement mettre a jour l'enregistrement de la T_Appel qui est selectionné dans mon F_DébutCommunication, ou plutot dans son sous formulaire qui est SF_PriseAppel basé sur ma T_Appel !
L'enchainement est le suivant :
Certaines actions sur le SF_PriseAppel entraine l'ouverture d'un autre formulaire F_InfoProspect.

Si dans une Liste déroulante la valeur est "Sans Emploi" , sur AfterUpdate d'une texbox je lance mon IF ...
Si les conditions sont requises, je souhaite mettre a jour ma T_Appel, mais bien sur, sur l'enregistrement en cours dans mon SF_PriseAppel.

Dans un premier temps je pensais faire une bétise sur la construction de mon code en allant chercher l' IdAppel dans le SF_PriseAppel

WHERE [T_Appel.IdAppel] = " & Forms!F_DébutCommunication!SF_PriseAppel!Form.IdAppel & ";"

J'ai donc récupéré cet IdAppel dans le formulaire principal et j'ai fais ça

WHERE [T_Appel.IdAppel] = " & Forms!F_DébutCommunication!RécupIdAppel & ";"

Mais toujours le même bugg !
Je suis d'accord avec PGZ c'est bien le Where qui déconne et ne renvoi aucune valeur !!!
Mais POURQUOI bon sang !!!!
Et mille excuses USER (Slt... ) Mais j'arrive pas a mettre en place le débug.Print, tout du moins je l'ai ecris mais je ne vois pas ou ce trouve le résultat...
Vraiment null le gard mais ... j'fais avec mes petits moyens...

[Tofalu]

Et en utilisant le tutoriel de cafeine sur le debogage comme cela te l'a été conseillé avant ?

Des fois je me demande à quoi sert d'écrire des tutos

[samlepiratepaddy]

Bien,
Puffff !!! quel boulot pour une si simple UPDATE!!
1/J'ai revu, repris et enfin réussi a mettre en place le Débug.Print avec un espion sur l' IdAppel !
Le résultat est "Null" !!!!!!!!!
2/J'ai refais une SQL avec interface elle s'écrit

Code :

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

1
2
UPDATE T_Appel SET T_Appel.RésultatAppel = "Hors Critères"
WHERE (((T_Appel.IdAppel)=[Formulaires]![F_DébutCommunication]![SF_PriseAppel].[Form]![IdAppel]));

Que j'active sur bouton ...
Et bien même résultat !!!
Pas de mise a jour !
Transcris en VBA j'espère sans trop d'erreur

Code :

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

DoCmd.RunSQL "UPDATE T_Appel SET T_Appel.RésultatAppel = 'Hors Critères'WHERE T_Appel.IdAppel = " & Forms!F_DébutCommunication!SF_PriseAppel.Form!IdAppel & ";"

Toujours pareil IdAppel = "Null"
Mais il est là ce p.... d' idAppel ET PAS NULL !Dans le SF_PriseAppel puisqu'il est basé sur la T_Appel !!! C'est ça que je pige pas !

[pgz]

Ton sous formulaire, il est en mode unique ou continu?

En mode unique, je passe. En mode continu, comment sais-tu que c'est le bon enregistrement qui est sélectionné?

pgz

[samlepiratepaddy]

Ben Unique c'est ça le pire !!!

[Faw]

Ta procédure est lancée depuis le ssForm ou le Form Parent.
Dans le 2ème cas, il faut peut-être donner le focus au ssForm (ce qui expliquerait que ton champ retourne NULL...je mets ça au conditionnel)

Essaye avant le update de donner le focus au ssform

Code :

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

Me.Monssform.SetFocus

[samlepiratepaddy]

Merci Faw de cette dernière solution mais elle n'a reglé le problème
Trop de prise de tête sur sur S.....té d' UPDATE !!!
J'ai réorganisé la chose en mettant mon F_InfoProspect comme sous formulaire d'un nouveau formulaire ou je rappele mon champ RésultatAppel...
Un simple

Code :

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

Me.RésultatAppel = "Hors Critères"

Suffit maintenant....
Mais je suis déçu d'etre obligé de passer par là même si cela fonctionne maintenant....
Parce que je vais surement Rebuter sur ce type d'UPDATE qui pourtant ne me semble pas très compliquée...
Pourquoi je n'arrive pas a la mettre en place ????
Grand MYSTERE de SAM !!!
Merci à tous, au moins j'aurai apris à mettre un Débug.Print, Point d'arret, etc.....
Merci encore

[samlepiratepaddy]

HOUP'SSSS !!
Pas mis

Me.RésultatAppel = "Hors Critères"

Mais

Code :

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

Forms!F_SuiteAppelInfoProspect.RésultatAppel = "Hors Critères"

Réctification car je ne sais pas si l'autre fonctionne ..
Faut que je me pose là.........
J'en écris que des co....ries