Modification de table

**Benbedo** · 22/06/2005, 18h55

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:

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

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
 
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

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
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