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 -
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 :
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)
- Acer quick access - Forum logiciel systeme
- Quick Access service ✓ - Forum PC portable
- Désinstaller ACER QUICK ACCESS - Forum Logiciels
- Access appdata - Guide
- Exemple base de données access à télécharger gratuit ✓ - Forum Logiciels
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?
peux-tu utiliser la coloration syntaxique pour partager ton code, et indiquer à quelle ligne se produit le message d'erreur?
Bonjour,
Désolée j'ai complètement oublié.
ça plante au niveau
Mais si je l'efface, ça plante à la ligne suivante.
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.