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

  • Question

  • 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.
    mercredi 2 janvier 2019 09:18

Toutes les réponses