Grimjacker
XLDnaute Nouveau
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 ^^ !
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 ^^ !