Discussion :

[Bmjohn]

comment puis-je vérifier grâce à une requête qu'un identifiant existe déjà dans une table, avec du code vba? Réponse s.v.p!

[arnaud_76]

Bonjour,
Peut être par requete sql
Select count(table.*) as MaRecherche from table where id=(votre_valeur)
If MaRecherche>0 then
Msgbox("mon id existe")
End if

[Bmjohn]

je comprends parfaitement la logique et c'est ce que je cherche, mais est-ce que ce bout de code tournera sous vba? car la variable marecherche n'a pas été déclaré ni son type défini! suite s.v.p! merci quand même!

[arnaud_76]

Oui ça marchera avec ou sans déclaration de variable.
En vba, la déclaration des variables n'est pas obligatoire mais conseillée.

[Invité]

Bonjour

Arnaud_76, ton code ne fonctionnera pas, on ne peut utiliser une requête comme cela dans du code VBA.

BmJohn, regarde du coté des fonctions de domaine (DLookup), c'est très simple et rapide, surtout si tu n'as pas de recherches à faire sur de grosses tables.

Un tuto sur le sujet : http://starec.developpez.com/tuto/fonctionsdomaines/

Philippe

[arnaud_76]

Bonjour,

Code :

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

1
2
3
4
5
6
7
Dim req as string
Req="select count(table.*) where id=Mavaleur"
Dim tablereq as new adodb.recordset
Tablereq.open req, curentproject.connection, ,
MaRecherche=tablereq.fields(0)
Tablereq.close
Set tablereq = nothing

[arnaud_76]

Avec
Req="Select count(*) from table where id=(votre_valeur)"

[vodiem]

Salut Philippe JOCHMANS , arnaud_76 et bienvenu Bmjohn,

Je recommande comme Philippe l'utilisation des fonctions de domaine, plus particulièrement DCount()
ex:

Code :

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

if dcount("*","latable","id='" & identifiant & "'") then ' present