Discussion :

[Virgile59]

Voilà en fait je voudrais que ma requête d'ajout ne se lance uniquement que si elle n'a pas été faite...

Je vous explique

Dans ma table j'ai un barème de point et ce barème de point est valable pour une pèriode donnée

Camps :
trimestre Année pts1 pts2 pts3
PREMIER 2000 0 1 5
SECOND 2000 0 1 5

Voilà en fait quand ma requète se lance elle ajoute un nouveau barème de note, pour les points c'est une recopie de l'année précedente mais pour l'année et le trimestre il copie se que l'on saisie dans un formulaire

Et en fait moi je voudrais qu'il ne lance cette requête qu'une seul fois, car actuellement si je saisie sur mon formulaire SECOND trimestre de l'année 2000 il va m'ajouter une ligne dans ma table, il va donc y avoir deux lignes avec le même barême de point pour la même periode.. Je ne sais pas comment faire en fait.....

[pc75]

Bonjour,

En créant une clé unique sur les champs Année et trimestre ?

[Trini]

Bonjour,

Je vois 2 soluces possibles :
Faire un test après la saisie dans ton formulaire de Trimestre et Annee , qui regarde si un enregistrement pour la même période existe ( un simple Dlookup suffira).
Créer un index unique sur Trimestre at Annee. Résultat, quand il fera la MAJ il générera une erreur et n'enregistrera pas la saisie. Bon y faut savoir gérér les erreurs en VB.

Voilà si ça peut t'aider.

Salut,

[Virgile59]

Effectivement mettre la clé sur les deux champs ça fonctionne il n'ajoute pas mais il y a une erreur et là pour la prog je ne sais pas gérer les erreurs...

Ma requête d'ajout se nomme :
Barème points pour prime

Le formulaire sur lequel je met le trimestre et l'année se nomme :
F_MENU_GESTION_PRIMES_BIS

Qqn peut m'aider pour la prog ?

[Trini]

Re,

Essaie sur l'événement Sur Erreur de ton formulaire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Private Sub Form_Error(DataErr As Integer, Response As Integer)
 
 if DataErr = <code de l'erreur> then Response=AcDataErrContinue
 
End Sub

Voilà, tu remplaces <code de l'erreur> par le vrai code d'erreur.
Response=AcDataErrContinue permet de ne pas afficher le message ACCESS.

Salut,