Discussion :

[neveah]

Bonjour a tous,
Je suis débutante en VBA access.

Alors j'ai un souci avec une requete "update" sur une table
Lorsque je clique le bouton contenant mon code la modification ne
s'effectue que sur certains champs:
*Demandeur
*Plan_formation
*Recueil_besoin
*Etat_realisation

mais pas sur
*id_stage
*annee_demande

Je ne comprends pas ce qui se passe.
J'ai grand besoin que quelqu'un m'aide.
Voici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim Matable As DAO.Recordset
Dim Madb As Database
Dim req As String
 
Set Madb = CurrentDb()
 
 req = " Update T_Entretien Set Id_stage='" & Me.Id_stage & "',Annee_demande=" & Me.Annee_demande & ",Demandeur='" & Me.Demandeur & "',Plan_formation='" & Me.Plan_formation & "',Recueil_besoin='" & Me.Recueil_besoin & "',Etat_realisation='" & Me.Etat_realisation & "' where Matricule = '" & Me.Matricule & "' and Id_stage ='" & Me.Id_stage & "' and Annee_demande=" & Me.Annee_demande & ""
 
    DoCmd.SetWarnings False
    DoCmd.RunSQL (req)
    DoCmd.SetWarnings True
    MsgBox (" Modification Effectuée avec Succès ")
    Actualiser

Merci d'avance

[Starbug]

T'est tu servi du débuggeur pour vérifier si les variables avait une valeur lors de l'éxécution du code ?

[argyronet]

Bonjour,

T'est tu servi du débuggeur pour vérifier si les variables avait une valeur lors de l'éxécution du code ?

Il n'y a pas de variables attachées aux valeurs dans son code...
De plus, tu t'adresses à une débutante donc prend quelques secondes de plus et d'une pour saluer et de deux être plus explicite lorsque tu suggères quelque chose...

Donc effectivement, débogger ta procédure consiste à interroger les valeurs à mettre à jour avant l'exécution effective.
Pour ce faire, tu peux mettre un point d'arrêt sur l'entête de la procédure (touche F9) et reommencer.
Ton code sera alors stoppé et tu pourras exécuter au pas à pas avec la touche F8. Positionne alors le pointeur de la souris sur les valeurs pour vérifier qu'elles ne sont pas vides.

Argy

[SSJconsult]

Bonjour,

En attendant les resultat d'un debogage eventuel (voir plus haut), je te suggere deja d'utiliser

Code :

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

Call CurrentDb.Execute(req)

au lieu de

Code :

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

1
2
3
    DoCmd.SetWarnings False
    DoCmd.RunSQL (req)
    DoCmd.SetWarnings True

En effet la permiere commande ne genere pas de "Warning" et fait tout aussi bien l'affaire

Bonne chance !

[SSJconsult]

Re-bonjour,

En relisant bien le code de ta requete, je trouve :

Code :

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

"UPDATE ... WHERE ... AND Id_stage ='" & Me.Id_stage & "' AND Annee_demande=" & Me.Annee_demande & ""

Tu lui dis donc de mettre a jour un records qui, forcement, existe deja pour les valeurs courantes de Me.Id_stage et de Me_Annee_demande.

Pourquoi voudrais-tu, des lors, que ta requete mette ces deux champs a jour puisqu'ils existent deja avec les valeur voulues ?

Codialement.

[neveah]

Bonjour à tous et merci encore d'avoir prit du temps pour lire ma question.

Alors j'ai essayé de doboguer la procédure comme me l'ont suggérés Starbug et argyronet. Les valeurs à mettre à jour sont bel et bien lus de mon formulaire.(J'ai pu voir toutes les nouvelles valeurs que j'ai inscrites dans mes champs de texte.)


Pour répondre à SSJconsult

Tu lui dis donc de mettre a jour un records qui, forcement, existe deja pour les valeurs courantes de Me.Id_stage et de Me_Annee_demande.

Pourquoi voudrais-tu, des lors, que ta requete mette ces deux champs a jour puisqu'ils existent deja avec les valeur voulues ?

En fait je voudrais donné à l'utilisateur la possibilité de modifier ces valeurs au cas où il se serait trompé lors de la saisie.
Merci