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

Fermé
Noriam Messages postés 17 Date d'inscription mercredi 25 janvier 2017 Statut Membre Dernière intervention 2 janvier 2019 - Modifié le 2 janv. 2019 à 10:28
yg_be Messages postés 22720 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 23 avril 2024 - 2 janv. 2019 à 10:52
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 22720 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 23 avril 2024 1 476
2 janv. 2019 à 10:15
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 mercredi 25 janvier 2017 Statut Membre Dernière intervention 2 janvier 2019
Modifié le 2 janv. 2019 à 10:27
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 22720 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 23 avril 2024 1 476
2 janv. 2019 à 10:35
et Heures_Cycle1 est bien présent?
0
Noriam Messages postés 17 Date d'inscription mercredi 25 janvier 2017 Statut Membre Dernière intervention 2 janvier 2019
2 janv. 2019 à 10:40
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 22720 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 23 avril 2024 1 476
2 janv. 2019 à 10:52
peux-tu partager ton fichier?
0