Re-Bonjour!
J'ai crée une Private Sub pour l'action à réaliser sur clic:
Code :
- Private Sub Commande40_Click()
- Dim StDocName As String
- stDocName = "T_employés"
- Dim SQL As String
- DoCmd.OpenTable stDocName, acViewDesign, ac ReadOnly
- SQL = "SELECT NOM FROM T_employés WHERE ["&Me.Modifiable38&"] Is Not Null;"
- DoCmd.OpenQuery SQL, acViewDesign, acReadOnly
- End Sub
|
Mais j'ai une erreur de compilation..
est ce que quelqu'un à une idée du souci?
Ca serait super sympa de m'aider.....mon patron m'a demandé ca pour la fin d'aprèm.....
Bon courage à ceux qui m'aideront, bon appétit aux autres