Discussion :

[domik]

bonjour,
Des numeros de telephone doivent etre saisis au travers d'un formulaire pour alimenter une table, je souhaiterai , que si un numero a déjà été saisi, une msgbox signale que le numero existe deja ds la table, et que le champ de saisi s'efface.

merci

[Demco]

Utilise la fonction DCount() pour vérifier si le numéro de téléphone existe déjà.
Si le résultat renvoyé est différent de 0 alors tu affiches un message avec un MsgBox.

En espérant t'aider.

[domik]

je ne vois pas très bien comment integrer cette fonction pour que le traitement ce fasse en temps réel (lors de la saisie),peux tu m'explquer d'avantage...

[Invité]

Bonjour

Ce que te dis Demco, c'est d'utiliser la fonction DCount pour compter les numéros de téléphone sprésents dans ta base. Cette fonction te renvoie 0 s'il n'y a pas de numéro correspondant, donc pas de doublon.

Regarde la fonction DCount dans l'aide, et place le code sur l'événement AfterUpdate de ta textbox ou BeforeUfdate, ce qui te permet d'annuler.

Starec

[LedZeppII]

Bonjour Domik,

Voici un exemple de code.
La table s'appelle TTel, le champ TelNum et le contrôle sur le formulaire s'appelle aussi TelNum.
L'évènement géré par code est Avant MAJ

Code vba :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub TelNum_BeforeUpdate(Cancel As Integer)
Dim i As Integer
Dim strChampNumTel As String, strTableNumTel As String
 
' Nom de la table contenant les n° de téléphone
strTableNumTel = "TTel"
' Nom du champ contenant les n° de téléphone
strChampNumTel = "TelNum"
 
i = DCount("*", strTableNumTel, strChampNumTel & "='" & Me.TelNum & "'")
If i > 0 And Me.NewRecord Then
   MsgBox "Ce numéro existe déjà"
   ' On empêche la validation et la sortie du contrôle
   Cancel = True
End If
End Sub

Pour l'intégrer à ton formulaire, remplace Me.TelNum par Me.TonNomDeContrôle,
strTableNumTel = "TTel" par strTableNumTel="NomDeTaTable",
strChampNumTel = "TelNum" par strChampNumTel = "NomDeTonChamp".

A+

[domik]

merci pour vos reponses
et pour ton exemple LedZeppII
ca marche