Discussion :

[seb_06]

Voila mon probleme
Je voudrais faire une macro qui permette de chercher dans une table si la valeur d'un champs d'un formulaire n'est pas dejà existant dans cette table.

Je voudrais donc lancer une requete SQL :
SELECT nom FROM table where nom="+Me.champs+";"
et stocker le resultat dans une variable vb de telle facon que je puisse tester si cette variable est nulle ou non.
J'ai regarde l'aide pour La fonction RunSQL mais impossible de faire une recherche avec. J'ai pense à DLookup mais ca marche pas. Alors Que faire??

Please help me

Merci

[toto14]

t'as essayé à CpteDom ?
Céline

[seb_06]

je ne comprends pas CpteDom?? ca veut dire quoi? c une fonction vb? je la trouve pas dans l'aide

Merci pour ta reponse mais dis en moi un peu plus stp

Seb

[toto14]

Dans ton générateur de macro dans la colonne condition, tu tapes

Code :

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

CpteDom("[Nom]";""table";"[Nom]=[Formulaires]![Nom_Formulaire]![Nom_champs]")>0

Puis tu sélectionnes l'action BoiteMsg et dans dans la zone du message tu tapes

Code :

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

 "Il existe déjà " & CpteDom(("[Nom]";""table";"[Nom]=[Formulaires]![Nom_Formulaire]![Nom_champs]") & personnes portant ce nom"

par exemple.
Puis tu nommes ta macro.
Ensuite, tu appliques ta macro sur la zone de texte qui t'intéresses dans la propriété Avant MAJ.
C'est clair ?

[toto14]

Il y a une parenthèse de trop dans le 2ème code !!!

[raul83]

c'est a peu pres le pb que j'ai posé dans un autre topic
voila ce que je te propose

Code :

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

1
2
3
4
5
6
7
8
9
10
 
dim rs as recordset
dim sql1 as string
sql1="SELECT nom FROM table where nom="Me.champs";" 
set rs=currentdb.openrecordset("nom")
if rs.recordcount>0 then
msgbox("cette valeur existe")
else
msgbox("elle n'existe pas")
endif

[seb_06]

Ca me parait pas mal comme solution mais je n'ai pas pu faire marcher ton code correctement.
sql = "SELECT ListeName FROM Liste where ListeName=" + Listebis + ";"
Set rs = CurrentDb.OpenRecordset("ListeName")
If rs.RecordCount > 0 Then
MsgBox ("cette valeur existe")
Else
MsgBox ("elle n'existe pas")
End If
Il me fait une erreur au niveau de la ligne Set rs =... Je ne comprends d'ailleurs pas ce qu'il faut mettre comme parametre ds OpenRecordset? Une Query sql? Une table? Un champs?
Y'a t'il autre chose de necessaire pour faire fonctionner ce code.

Merci pour ton aide

[raul83]

mince desolé jetais deconcentre bien sur c currentdb.openrecordset(sql) et non pas currentdb.openrecordset(monchamp)

[raul83]

la solution ke ta proposé toto marche aussi remplace cptedom par dcount.
regarde le help sur dcount.

[seb_06]

Voila j'ai bien le changement. Mais j'ai une erreur du type :
Type de données incompatible dans l'expression du critere
Faut il rajouter un autre paramétre??

Voici ma macro pour info :

Dim rs As Recordset
Dim sql As String
Dim Listebis
Dim test As String
Listebis = Me.ListeName
If (IsNull(Listebis)) Then
MsgBox ("IMPOSSIBLE D'ENREGISTRER CETTE LISTE - CHAMPS Nom de la liste NON RENSEIGNE")
Else
sql = "SELECT ListeName FROM Liste where ListeName=" + Me.ListeName + ";"
Set rs = CurrentDb.OpenRecordset(sql)
If rs.RecordCount > 0 Then
MsgBox ("cette valeur existe")
Else
MsgBox ("elle n'existe pas")
End If

[raul83]

remplace where listename=" + me.listename +" par

Code :

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

where listename='" & Forms!lenomduformulaire!listename & "'

et ça marchera

[seb_06]

Ca marche !!!

Merci pour tout

Bonne soiree

[raul83]

pense au tag resolu.
il est en bas a gauche.