Code événement pour enregistré des compétences

Bonjour ,
J'ai un petit problème j'aimerai faire un code évènement afin d'enregistrer les compétences d'un intervenant voici un petit extrait de ce que j'ai fait :

Private Sub Enregistrement_des_compétences_Click()

Dim tablePratiquer As Recordset
Set tablePratiquer = CurrentDb.OpenRecordset("Pratiquer")

'Execution de requête'
req = " insert into Pratiquer values (" & n°Int & ", '" & Danse & "'," & CompMax & ")"
MsgBox (req)
CurrentDb.Execute (req)
Me.LC_Pratiquer.Requery
Me.LC_Pratiquer = NumI
Call LC_Pratiquer_AfterUpdate

Else
MsgBox ("les compétences sont indispensables à l'enregistrement")
End If
End Sub

merci de bien vouloir repondre ^^ !