Problème de requête dans VBA (Access)
Noriam
Messages postés
21
Statut
Membre
-
yg_be Messages postés 24281 Statut Contributeur -
yg_be Messages postés 24281 Statut Contributeur -
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 :
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.
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. |
A voir également:
- Problème de requête dans VBA (Access)
- Exemple base de données access à télécharger gratuit - Forum Access
- Acer quick access - Forum logiciel systeme
- L'indice n'appartient pas à la sélection vba - Forum VB / VBA
- Désinstaller ACER QUICK ACCESS - Forum Logiciels
- Exemple base de données Access de gestion ✓ - Forum Logiciels
3 réponses
bonjour,
peux-tu utiliser la coloration syntaxique pour partager ton code, et indiquer à quelle ligne se produit le message d'erreur?
peux-tu utiliser la coloration syntaxique pour partager ton code, et indiquer à quelle ligne se produit le message d'erreur?