Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Verification si enregistrement déja présent

3 réponses
Avatar
Seigre.alexandre
Bonjour,

VOila j'ai un formulaire qui me permet d'inserer des enregistrements dans
une table par le biais d'un bouton
Je voudrais avant que les données soit envoyé dans la table faire une
verification pour savoir si l'enregistrement n'est pas déja présent
Comment dois je faire?

Merci d'avance

3 réponses

Avatar
Raymond [mvp]
Bonjour.

Utiliser la fonction DLookup ou DCount pour savoir si une valeur identique
existe.
exemple:
If DCount("*", "la table", "numéro ='" & Me.Numéero & "'") > 0 Then

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://www.mpfa.info/ pour débuter sur le forum.
l'abonnement TechNet !
http://www.microsoft.com/france/technet/presentation/cd/default.mspx


""
a écrit dans le message de news:

Bonjour,

VOila j'ai un formulaire qui me permet d'inserer des enregistrements dans
une table par le biais d'un bouton
Je voudrais avant que les données soit envoyé dans la table faire une
verification pour savoir si l'enregistrement n'est pas déja présent
Comment dois je faire?

Merci d'avance



Avatar
Cestmoi
Raymond,

Cette fonction m'intéresse au plus haut point mais cela ne fonctionne
pas chez moi (2000).

Voici ce que j'ai noté

Private Sub Expéditeur_AfterUpdate()
If DCount("*", "Indicateur d'entrée Requête", "Concatenation='" &
Me.Concatenation & "'") > 0 Then
MsgBox "ATTENTION PIECE DEJA INDICATEE"
End If
End Sub
Avatar
Raymond [mvp]
Bonjour.

le DCount fonctionne sous 2000 mais les paramètres ne doivent pas être bons.
vérifie en mettant des points d'arrêt sur chaque ligne de ton code.
par précaution mets "[Indicateur d'entrée Requête]"


--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://www.mpfa.info/ pour débuter sur le forum.
l'abonnement TechNet !
http://www.microsoft.com/france/technet/presentation/cd/default.mspx


"Cestmoi" a écrit dans le message de news:

Raymond,

Cette fonction m'intéresse au plus haut point mais cela ne fonctionne
pas chez moi (2000).

Voici ce que j'ai noté

Private Sub Expéditeur_AfterUpdate()
If DCount("*", "Indicateur d'entrée Requête", "Concatenation='" &
Me.Concatenation & "'") > 0 Then
MsgBox "ATTENTION PIECE DEJA INDICATEE"
End If
End Sub