Discussion :

[sameros]

Bonjour,

J'ai crée un formulaire, à¸partir d'une table...j'ai un champ ( pas la clé primaire et indexé avec doublons) , que j'aimerais limiter en terme de doublon, exemple 4 doublon permis, et refuse les prochain doublons. Je ne sais pas si c'est compréhensible, mais je vais donner un petit exemple...

Champ 1 = clé primaire
Champ 2 = doublon permis
Champ 3 = doublon permis ( maximum x quantité )

Comment pourrais je faire ?

Merci

[Invité]

Bonjour

Ce que tu demandes n'est pas possible, peux-tu donner plus de détails, car si tu es obligé de faire cela, c'est sûrement dut à un problème de conception.

Philippe

[sameros]

Bonjour,

Je prends pour acquis que cela ne soit pas possible, comme tu me le dis, et accepte ton offre d'élaborer un peu plus...pour ce projet...

J'ai une liste de membre ayant droit à certaines activités....( nombre de membre limités ), sur l'enregistrement que je souhaite faire, il y a le membre et l'activité choisit....si cette activité a été son nombre maximum d'inscription, alors l'inscription ne pourrait se faire.....

Est ce plus compréhensible ainsi.....ou bien, il y aurait il un autre moyen, sans pour autant créer une nouvelle table, pour chaque activité ( car il y en a bcp )...
Merci

[Psychopathe]

Un petit exemple visuel serait parfait. Sinon, l'inscription se fait-elle par le biais d'un formulaire?

[sameros]

Bonjour,

Oui, effectivement, la saisie se ferait sur le formulaire.

J'ai trouvé ce bout de code, avec la fonction DCOUNT....je vais l'essayer...est ce que l'astérique correspond au nom du champ ?

Code :

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

1
2
3
4
5
6
7
8
 
 
Private Sub Form_BeforeUpdate(Cancel As Integer)
if dcount("*","tatable")>= 10 then
msgbox "blabla"
cancel = true
end if
End Sub

Merci

[Psychopathe]

En fait pour Dcount, le premier argument n'a pas vraiment d'importance dans la mesure où tu vas obtenir le nombre d'enregistrements, qu'il y a dans ta table "tatable". L'idée du Dcount est la bonne, sauf que dans ton cas il faut ajouter une condition liée à l'activité. Avec la syntaxe que tu propose, tu vas comparer si le nombre total d'enregistrements de ta table "tatable" est supérieur ou égal à 10. Il faudrait:

Code :

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

1
2
 
dcount("*","tatable","activité= 'sport'")>10

[sameros]

En fait pour Dcount, le premier argument n'a pas vraiment d'importance dans la mesure où tu vas obtenir le nombre d'enregistrements, qu'il y a dans ta table "tatable". L'idée du Dcount est la bonne, sauf que dans ton cas il faut ajouter une condition liée à l'activité. Avec la syntaxe que tu propose, tu vas comparer si le nombre total d'enregistrements de ta table "tatable" est supérieur ou égal à 10. Il faudrait:

Code :

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

1
2
 
dcount("*","tatable","activité= 'sport'")>10

Bonjour,

Cela ne marche pas....il marque une erreur sur la première ligne....

Code :

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

1
2
3
4
5
6
7
 
 
If DCount("*", "Inscription", "Activité = '1' ") > 3 Then
MsgBox "blabla"
Cancel = True
 
End If

Merci

[Invité]

Bonjour

De quel type est la donnée Activité ?

Pas de quotes pour des chiffres.

Philippe

[sameros]

Bonjour,

Je n'ai plus de message d'erreur, par contre, cette procédure fonctionne et ce même si l'activité n'est pas complète....en fait, elle fonctionne en tout temps....c,est comme si elle ne prenait pas le critère activité = 1....

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
 
Private Sub Form_BeforeUpdate(Cancel As Integer)
 
If DCount("*", "Inscription", "Activité = 1 ") > 3 Then
MsgBox "Cette activité est complète..."
DoCmd.Close
End If
 
 
End Sub

[Psychopathe]

Test après le If Then pour voir quel résultat est renvoyé:

Code :

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

1
2
3
 
If DCount("*", "Inscription", "Activité = 1 ") > 3 Then
MsgBox DCount("*", "Inscription", "Activité = 1 ")

[sameros]

Test après le If Then pour voir quel résultat est renvoyé:

Code :

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

1
2
3
 
If DCount("*", "Inscription", "Activité = 1 ") > 3 Then
MsgBox DCount("*", "Inscription", "Activité = 1 ")

Bonjour,

Cela me donnait 4, alors, c'est cool....maintenant, pour les autres, c'était normal, car il prenait en compte que le critère activité 1, cela cause une légère problématique, peut on changer ce code :

le 1 par le nom du champ ( Texte17) ? Si oui, faut il qu'il soit entre guillemet ou entre parenthèse ?

Code :

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

1
2
3
 
 
If DCount("*", "Inscription", "Activité = 1 ")

Par ceci :

Code :

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

1
2
3
 
 
If DCount("*", "Inscription", "Activité = "Texte17" ")

Pour moi, tout est nickel, il ne reste que ce petit détais à corriger.

Merci...

[Psychopathe]

Non car le type du champ activité reste numérique:

Code :

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

1
2
 
If DCount("*", "Inscription", "Activité = " & Me.Texte17)

[sameros]

Bonjour,

Je vais tager RÉSOLU....voici le code que j'utilise, et cela semble très bien fonctionner....

Code :

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

1
2
3
4
 
If DCount("*", "Inscription", "Activité = [Texte17] ") >= 4 Then
MsgBox "Cette activité est complète..."
DoCmd.Close

[sameros]

Bonjour,

Je vais tager RÉSOLU....voici le code que j'utilise, et cela semble très bien fonctionner....

Code :

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

1
2
3
4
 
If DCount("*", "Inscription", "Activité = [Texte17] ") >= 4 Then
MsgBox "Cette activité est complète..."
DoCmd.Close

Mes excuses, j'ai omis de mentionner que le champ activité a été en modifié en champ texte...