Alerte doublon sur champ calculéRésolu/Fermé

Question

Bonjour,

Access ne permettant pas de créer un index sans doublon sur un champ calculé,
j'ai tenté ceci


Dans mon formulaire de saisie des appels de fonds d'un Syndic,
Il y a un appel de fonds par trimestre
En conséquence dans la table à laquelle est adossé mon formulaire
J'ai créé une liste déroulante Champs "Libellé"  Qui contient les valeurs suivantes :
 1er Appel de Fonds
 2ème Appel de fonds
 3ème Appel de fonds
 4ème Appel de fonds
Avec ensuite un champ "Date dépenses"qui a pour valeur par défaut Maintenant()

Puis un champ calculé  "DetectDoublon" (que je rendrai invisible par la suite) 
dont la source de contrôle est la suivante : =[Libellé] & Année([Date dépenses])
J'ai vérifié la concanétation fonctionne correctement

Ensuite j'ai créé cet évènement après la mise à jour du champ Libellé

Private Sub Libellé_AfterUpdate()
If DCount(Me.DetectDoublon <> 0) Then
MsgBox "Cet ajout Ferait un doublon !", vbCritical
Cancel = True
End If
End Sub

Avec ou sans doublon j'obtiens cette message Box

Erreur de compilation
Argument non facultatif

Pouvez-vous m'aider, je tourne en rond !!!!



Configuration: Windows / Firefox 75.0

yg_be · Answer

bonjour, je suppose que DetectDoublon n'est pas un champ d'une table, et est un contrôle dans un formulaire.
as-tu essayé en retirant dcount?

traderpierre · Answer

Votre solution ne fonctionne pas !!!

traderpierre · Answer

Je viens de trouver la solution, ça fonctionne super bien !!!
La voici expliquée en détail

Détecter Doublon sur champ Calculé de ma table Dépenses Charges Syndic

Dans cette table, créer un champs calculé "DetectDoublon" qui concatène certains champs dans leur ordre de saisie :

= Année([Date dépenses])&"-"&[Libellé] & "-" & [Réf A-P Syndic]

Ensuite créer une requête "Doublons pour Dépenses Charges SyndicReq" qui Recherche les doubons sur le champs "DetectDoublon" de cette table :
Code Sql : 
SELECT [Dépenses Charges Syndic].DetectDoublon, [Dépenses Charges Syndic].Libellé, [Dépenses Charges Syndic].[Réf A-P Syndic], [Dépenses Charges Syndic].[Date dépenses]
FROM [Dépenses Charges Syndic]
WHERE ((([Dépenses Charges Syndic].DetectDoublon) In (SELECT [DetectDoublon] FROM [Dépenses Charges Syndic] As Tmp GROUP BY [DetectDoublon] HAVING Count(*)>1 )))
ORDER BY [Dépenses Charges Syndic].DetectDoublon;

Ensuite dans le formulaire adossé à la saisie des datas de cette table ; 
dans l'évènement Après mise à jour du dernier champs saisi en l'occurence le champ "Réf A-P Syndic"
je rentre ce code VBA :

Private Sub Réf_A_P_Syndic_AfterUpdate()
If DCount("*", "Doublons pour Dépenses Charges SyndicReq", Me.DetectDoublon) > 0 Then
MsgBox "Cet ajout ferait un doublon !", vbCritical
Cancel = True
End If
End Sub

ça fonctionne super bien

Alerte doublon sur champ calculé

3 réponses

Discussions similaires

Newsletters