resultat requete SQL d'un select dans variable vb

Version imprimable

11/10/2004, 15h00
seb_06

resultat requete SQL d'un select dans variable vb

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
11/10/2004, 15h07
toto14

t'as essayé à CpteDom ?
Céline
11/10/2004, 15h10
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
11/10/2004, 15h16
toto14

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

Code:

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:

"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 ?
11/10/2004, 15h17
toto14

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

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

Code:

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

11/10/2004, 16h02
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
11/10/2004, 16h04
raul83

mince desolé jetais deconcentre bien sur c currentdb.openrecordset(sql) et non pas currentdb.openrecordset(monchamp) :D
11/10/2004, 16h09
raul83

la solution ke ta proposé toto marche aussi remplace cptedom par dcount.
regarde le help sur dcount.
11/10/2004, 16h15
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
11/10/2004, 16h23
raul83

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

Code:

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

et ça marchera
11/10/2004, 16h28
seb_06

Ca marche !!!

Merci pour tout

Bonne soiree
11/10/2004, 16h29
raul83

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