Problème de requête dans VBA (Access)

Noriam Messages postés 17 Date d'inscription   Statut Membre Dernière intervention   -  
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

J'ai un soucis avec un formulaire pour modifier des données (adresse, stage, cursus, ...).
Dans mon formulaire, je sélectionne un stagiaire dans une zone de liste, puis j'affiche les données le concernant dans des zones de texte. Là aucun soucis.

Mais, lorsque je change des infos et que je clique sur le bouton modifier pour lancer le code VBA, j'ai un message d'erreur :
"Erreur de compilation. Membre de méthode ou données introuvable."
Le code qui pose problème est le suivant :

Private Sub Cmd_Modifier_Click()

Dim T_Stagiaire As Database
Dim SQL_Cursus As String
Dim Question As String
Dim Reponse As String

Question = "Souhaitez-vous vraiment modifier les données suivantes ?"
Reponse = MsgBox(Question, vbYesNo, "Modification")

If Reponse = vbYes Then
' Si oui, alors modification de la table

SQL_Cursus = " UPDATE T_Stagiaire " & _
" SET T_Stagiaire.[Stage_PSC] = '" & Me.Stage_PSC & "' " & _
" , T_Stagiaire.[Cursus_PSC] = '" & Me.Cursus_PSC & "' " & _
" , T_Stagiaire.[Heures_PSC] = '" & Me.Heures_PSC & "' " & _
" , T_Stagiaire.[Stage_Cycle1] = '" & Me.Stage_Cycle1 & "' " & _
" , T_Stagiaire.[Cursus_Cycle1] = '" & Me.Cursus_Cycle1 & "' " & _
" , T_Stagiaire.[Heures_Cycle1] = '" & Me.Heures_Cycle1 & "' " & _
" , T_Stagiaire.[Cursus_Fiche_Act] = '" & Me.Cursus_Fiche_Act & "' " & _
" , T_Stagiaire.[Cursus_Fiche_Soins] = '" & Me.Cursus_Fiche_Soins & "' " & _
" , T_Stagiaire.[Cursus_QCM_Droit] = '" & Me.Cursus_QCM_Droit & "' " & _
" , T_Stagiaire.[Cursus_Projet] = '" & Me.Cursus_Projet & "' " & _
" , T_Stagiaire.[Date_Debut_Travail] = '" & Me.Date_Debut_Travail & "' " & _
" , T_Stagiaire.[Stage_Cycle2] = '" & Me.Stage_Cycle2 & "' " & _
" , T_Stagiaire.[Cursus_Cycle2] = '" & Me.Cursus_Cycle2 & "' " & _
" , T_Stagiaire.[Heures_Cycle2] = '" & Me.Heures_Cycle2 & "' " & _
" WHERE T_Stagiaire.[ID_Stagiaire] = " & Me.ID_Stagiaire

DoCmd.RunSQL SQL_Cursus

'Si non, pas de modification
Else
End If

Me.lst_RechStagiaire.Requery

End Sub


Déjà le message ne s'affiche pas, mais en plus ça bug au niveau de la requête. Je n'ai pas trop d'idées. Est-ce que quelqu'un pourrait m'aider, s'il vous plait ?
Merci.

Configuration: Windows / Chrome 71.0.3578.98


EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici : ICI

Merci d'y penser dans tes prochains messages.

3 réponses

yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 584
 
bonjour,
peux-tu utiliser la coloration syntaxique pour partager ton code, et indiquer à quelle ligne se produit le message d'erreur?
0
Noriam Messages postés 17 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour,

Désolée j'ai complètement oublié.

ça plante au niveau

" , T_Stagiaire.[Heures_Cycle1] = '" & Me.Heures_Cycle1 & "' " & _


Mais si je l'efface, ça plante à la ligne suivante.
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584
 
et Heures_Cycle1 est bien présent?
0
Noriam Messages postés 17 Date d'inscription   Statut Membre Dernière intervention  
 
Oui.

C'est un champ de ma table et j'ai appelé l'une des zones de texte du formulaire comme ça
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   1 584
 
peux-tu partager ton fichier?
0