Requete Access sql sous vba Excel

Bonjour,
je ne sais pas si je post au bon endroit...
Je veux récupérer les résultats d'une requête par un recordset depuis excel et j'ai une vilaine "Erreur de syntaxe"....
Je suis la tête dessus depuis trop longtemps pour pouvoir voir l'erreur aussi bête est elle

J'aurais donc besoin d'une petite aide
Merci d'avance.

Code:

---

1 2 3

Set Rs1 = CurrentDb.OpenRecordset("SELECT VALEUR ISIN, SECID FROM TBL_BO GROUP BY VALEUR ISIN, SECID HAVING SECID Is Null")   If Rs1.RecordCount > 0 Then

---

Bonjour

Si VALEUR ISIN est le nom d'un champ, entoure le de crochet partout où tu le trouves dans ta chaine.

Starec

OUI VALEUR ISIN et SECID sont bien des champs mais

"Incompatibilité de type" 8O

C'est ton sql qui n'est pas normalisé.

- Group By est utilisé sans de fonction de regroupement (Sum, Count,)
- Is null est mal utilisé il me semble.
- A la place de having c'est un where qui semble plus adapté

essai

Code:

---

1 2	Set Rs1 = CurrentDb.OpenRecordset("SELECT [VALEUR ISIN], SECID FROM TBL_BO Where SECID=Null")

---

Pourtant ça ne marche toujours pas
j'ai une nouvelle erreur:

variable objet ou variable de bloc with non défini.

Et surtout la requete n'est pas du tt la meme

c'est que tu as une autres erreur.
Sans le code c'est plus dur

Une erreur dans le code ?

Je ne pense pas mais le voici

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Dim Rs1 As Recordset Dim Rs2 As Recordset Dim rm As Integer Dim MonAccess As New Access.Application MonAccess.OpenCurrentDatabase "F:\- Bureau -\Rappro_titre.mdb" MonAccess.Visible = False MonAccess.docmd.RunMacro "1-MAJ-TBL-BO"   MonAccess.Visible = True   Set Rs1 = CurrentDb.OpenRecordset("SELECT [VALEUR ISIN], SECID FROM TBL_BO Where SECID=Null") If Rs1.RecordCount > 0 Then MsgBox ("Un contrat est absent, merci de le renseigner")

---

De plus ici j'utilise l'exemple qu'a donnée dpbound mais ca n'a rien a vir avec ma requete initiale en utilisant un where je ne requete pas la meme chse que ce que je voulais au debut