Bonjour,
Merci de vous pencher sur mon probleme.
En fait, je travail sous Access. j'ai 3 tables
participants(num_participant, nom, prenom, ...)
inscriptions(num_inscription,num_participant, num_activite, type,...)
activite(num_activite, designation,...)
Sur un formulaire, j'ai placé une liste déroulante pour choisir l'activité, une autre liste pour choisir le participant à inscrire à cette activité; et enfin un bouton ou j'ajoute l'insription.
voici mon code pour l'ajout dans inscriptions:
Public Sub enregistrerinscription()
Dim MaBD As dao.Database
Dim MaTable As dao.Recordset
Dim MonControle As Control
Dim f As Form
Set MaBD = CurrentDb()
Set f = Forms!FM_NewParticipant
Set MaTable = MaBD.OpenRecordset("inscriptions", dbOpenDynaset)
MaTable.AddNew
MaTable!num_participant = Me.num
MaTable!num_activite = Me.Texte53
MaTable!type = Me.type
MaTable!attentes = Me.attente
MaTable.Update
MaTable.Close
CurrentDb().Close
End Sub
le probleme est que si je click plusieurs fois sur le bouton, j'inscris plusieurs fois cette personne.
j'aimerai créer une procedure qui , avant d'enregistrer, verifie que cette personne n'est pas déjà inscrite à cette activité.
Voila, j'espère que j'ai été assez clair et j'espère que vous pourrez m'aider .
Merci+++++
El Bero
Merci de vous pencher sur mon probleme.
En fait, je travail sous Access. j'ai 3 tables
participants(num_participant, nom, prenom, ...)
inscriptions(num_inscription,num_participant, num_activite, type,...)
activite(num_activite, designation,...)
Sur un formulaire, j'ai placé une liste déroulante pour choisir l'activité, une autre liste pour choisir le participant à inscrire à cette activité; et enfin un bouton ou j'ajoute l'insription.
voici mon code pour l'ajout dans inscriptions:
Public Sub enregistrerinscription()
Dim MaBD As dao.Database
Dim MaTable As dao.Recordset
Dim MonControle As Control
Dim f As Form
Set MaBD = CurrentDb()
Set f = Forms!FM_NewParticipant
Set MaTable = MaBD.OpenRecordset("inscriptions", dbOpenDynaset)
MaTable.AddNew
MaTable!num_participant = Me.num
MaTable!num_activite = Me.Texte53
MaTable!type = Me.type
MaTable!attentes = Me.attente
MaTable.Update
MaTable.Close
CurrentDb().Close
End Sub
le probleme est que si je click plusieurs fois sur le bouton, j'inscris plusieurs fois cette personne.
j'aimerai créer une procedure qui , avant d'enregistrer, verifie que cette personne n'est pas déjà inscrite à cette activité.
Voila, j'espère que j'ai été assez clair et j'espère que vous pourrez m'aider .
Merci+++++
El Bero