Re-bonjour,
J'ai un soucis lors d'une modification de table,
En clair, l'utilisateur devra choisir un employé à modifier dans une zone de liste, puis il appuyera sur le boutin modifier, un nouveau formulaire apparaitra grace à ce code:
Cette nouvelle form recuperera les donnée (nom et prénom) selectionné dans la zone de liste précédente:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6 Private Sub Mod_Employé_Click() Dim FormName As String FormName = "Modification_Employés" DoCmd.OpenForm FormName End Sub
L'utilisateur fera sa modification et appuyera sur le bouton modifier qui devrait faire la modification avec ce code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 Private Sub Form_Load() Me.Nom.Value = Form_Gestion_Personnel.L_Employé.Column(0) Me.Prénom.Value = Form_Gestion_Personnel.L_Employé.Column(1) End Sub
Mais quand je test on me demande "Entrez la valeur du paramètre"
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 Private Sub B_Modifier_Employé_Click() Dim ModifSQL As String 'Requête de modification avec les champs de la feuille et ceux de la from de gestion du personnel ModifSQL = "UPDATE Employés SET nom=" & Me.Nom.Value & ", prénom=" & Me.Prénom.Value & " WHERE nom=" & Form_Gestion_Personnel.L_Employé.Column(0) & " AND prénom=" & Form_Gestion_Personnel.L_Employé.Column(1) & ";" DoCmd.RunSQL ModifSQL 'Mise à jour de li liste des employés pour rajouter le nouveau Form_Gestion_Personnel.L_Employé.Requery 'Fermerture de la fenêtre courante DoCmd.Close End Sub
Quel est le problème.
Merci pour vos réponses par avance...
Ben
Partager