Vérifier doublon avec une variable

**Mario Rousson** · 07/12/2007, 19h42

Bonjour

j'aimerais vérifier un doublon dans un champs avec la valeur d'une variable.
avec un retour Booléen.

j'ai fait des recherche sur les doublons et je n'ai rien trouvé.

merci

**Jean-Philippe André** · 07/12/2007, 20h15

salut
un truc tout bête

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 function doublonestula(valeur as integer) as boolean
Dim RS as DAO.RecordSet
dim StrSQL as String
 
strSQL="SELECT COUNT(*) as total FROM MaTable Where Champ=" & valeur &";"
Set RS= CurrentDb.Openrecordset(StrSQL)
if RS!Total > 1 then
        doublonestula = true
Else
        doublonestula = false
End if

**Mario Rousson** · 07/12/2007, 20h53

Merci Jpcheck

Je travail sur ta fonction et je t'avoue que je ne la comprend pas trop.

1-La variable que je veux vérifier est de type string et toi "valeur" est de type integer. j'imagine que je peut le modifier?

2-Je vois pas comment la fonction sait dans quel table et quel champs chercher la valeur.

merci

j'ai modifier la fonction comme suit

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Function doublonestula(valeur As String) As Boolean
 
Dim RS As DAO.Recordset
Dim StrSQL As String
 
StrSQL = "SELECT COUNT(*) as total FROM Tbl_Produit Where Champ=" & valeur & ";"
Set RS = CurrentDb.Openrecordset(StrSQL)
If RS!Total > 1 Then
        doublonestula = True
Else
        doublonestula = False
End If
End Function

j'ai changé le Type de valeur en string
et j'ai changé MaTable pour Tbl_Produit

pour faire des essais j'ai créer un bouton qui va comme suit

Code :

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

1
2
3
4
5
6
 
Private Sub Doublon_Click()
Dim valeur As String
 valeur = "a"
MsgBox valeur
doublonestula (valeur)

merci de votre aides

Bonjour,

j'ai une erreur de compilation avec le ligne

Code :

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

RS As DAO.Recordset

en bleu je sais pas pourquoi.

j'essai plusieurs modifications dans le code et y a rien qui change

Est-ce que je dois cocher une certaine référence ??

merci

**FreeAccess** · 08/12/2007, 17h52

Bonjour,

Dim RS As DAO.Recordset

Dans l'éditeur de code tu ouvre Outils > Référence...

...tu devrais avoir une référence commençant par MANQUANT..(il suffit de la décocher)

Microsoft DAO x.x Object Library

En espérant que cela règle ton problème....

**Jean-Philippe André** · 10/12/2007, 09h23

d'autre part, si ton champs est un texte, il faut des apostrophes (') dans ta requête SQL

**Mario Rousson** · 10/12/2007, 17h53

Merci à tous

C'est la première fois que je travail avec la notion de recordset alors je suis un peu dur de la feuille

Bon, j'ai un bog à la ligne :

Code :

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

Set RS = CurrentDb.Openrecordset(StrSQL)

Voici mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Function doublonestula(valeur As String) As Boolean
 
Dim RS As DAO.Recordset
Dim StrSQL As String
 
StrSQL = "SELECT COUNT(*) as total FROM nom Where Champ=" & valeur & ";"
Set RS = CurrentDb.Openrecordset(StrSQL)
If RS!Total > 1 Then
        doublonestula = True
Else
        doublonestula = False
End If
End Function

j'imagine que mon erreur ce situe sur cette ligne:

Code :

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

StrSQL = "SELECT COUNT(*) as total FROM nom Where Champ=" & valeur

Nom est le champs dans lequel je recherche un doublon

Mon appel ce fait comme suit

Code :

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

1
2
3
4
5
6
Private Sub Doublon_Click()
Dim valeur As String
 valeur = "a"
MsgBox valeur
doublonestula (valeur)
End Sub

Voici le message

erreur d'execution 3078
Le moteur de la base de donnée micosoft jet ne peut pas trouver la table ou la requète source 'nom'. Assurez-vous qu'elle existe et qu'elle est correctement orthographiée.

**Jean-Philippe André** · 10/12/2007, 18h00

salut,
alors :
- ta table s'appelle-t-elle bien "nom" ?
- ton champs s'appelle-t-il bien "Champ" ?
- si ton champs "Champs" est de type texte et non pas numérique, il faut ajouter avant et après la valeur un ' (simple apostrophe).

**Mario Rousson** · 10/12/2007, 20h27

Je m'excuse pour la confusion
donc, je reformule mon code car :

Ma table se nomme: tbl_Produit
Mon champ se nomme: Nom
La variable se nomme: valeur

Donc je recherche dans la table 'tbl_Produit', le champ Nom si la variable valeur existe. Dans mon code d'apprentissage la valeur de la variable est "a" et je désire savoir si elle existe dans le champs nom de la table tbl_produit. C'est ce que j'ai besoin.

Voici mon nouveau code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Function doublonestula(valeur As String) As Boolean
 
Dim RS As DAO.Recordset
Dim StrSQL As String
 
StrSQL = "SELECT COUNT(*) as total FROM tbl_produit Where Champ=" & "'" & valeur & "'" & ";"
Set RS = CurrentDb.Openrecordset(StrSQL)
If RS!Total > 1 Then
        doublonestula = True
Else
        doublonestula = False
End If
End Function

erreur d'execution 3061
Trop peu de paramètre, 1 attendu

merci je continu à travailler

Invité · 11/12/2007, 04h06

Bonjour

Tu as aussi les fonctions de domaines pour réaliser ceci, elle sont un peu moins performantes que les recordset (cela se voit surtout sur de très grosses tables), mais plus facile à mettre en oeuvre.

Si tu es intéressé par ces fonctions, un peu de lecture : Les Fonctions de Domaine dans Access.

Regardes du coté de DCount.

Starec

**Jean-Philippe André** · 11/12/2007, 11h22

+1 par rapport à Stares, le modo qui ne dort jamais (4h du mat'...)
comme ton champ s'appelle nom il faut faire :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Function doublonestula(valeur As String) As Boolean
 
Dim RS As DAO.Recordset
Dim StrSQL As String
 
StrSQL = "SELECT COUNT(*) as total FROM tbl_produit Where Nom=" & "'" & valeur & "'" & ";"
Set RS = CurrentDb.Openrecordset(StrSQL)
If RS!Total > 1 Then
        doublonestula = True
Else
        doublonestula = False
End If
End Function

**Mario Rousson** · 12/12/2007, 00h10

Voila ...ça fonctionne en partis

Je n'ai plus de message d'erreur, et je reçoit une réponse en forme booléen, mais elle est toujours à faux, même si la valeur exicte. Que la valeur exicte ou non je reçoit toujours un faux.

Mon appel se fait comme suit

Code :

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

1
2
3
4
5
6
7
8
Private Sub Doublon_Click()
Dim valeur As String
Dim rep As Boolean
 
valeur = "u"
MsgBox valeur
rep = doublonestula(valeur)
MsgBox rep

et la fonction comme suit

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Function doublonestula(valeur As String) As Boolean
 
Dim RS As DAO.Recordset
Dim StrSQL As String
 
StrSQL = "SELECT COUNT(*) as total FROM tbl_Produit Where Nom=" & "'" & valeur & "'" & ";"
Set RS = CurrentDb.Openrecordset(StrSQL)
If RS!Total > 1 Then
        doublonestula = True
Else
        doublonestula = False
End If
End Function