[A-07] verification requete null

Bonjour, je souhaite tester si une date existe bel et bien dans ma base de donnée.

Si celle-ci n'existe pas, alors j'envoie un message à l'utilisateur lui demandant de resaisir la date.

Le problème est que la méthode que j'utilise pour savoir si ma requete ne fournit rien ne marche pas !!

Si quelqu'un a une solution, je suis preneur :

Voici mon programme qui ne marche pas :

Code:

---

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

Dim test_debut As String value = True   test_debut = "SELECT COTATIONS.Dates FROM COTATIONS WHERE ((CODE_ISIN = 'FR0003500008') AND (Dates='" & debut & "'));"   Set vtestd = mabdd.CreateQueryDef("", test_debut)   If IsNull(vtestd) = True Then MsgBox "La date de début n'est pas un jour ouvré, veuillez la resaisir." value = False End If

---

salut,
je tenterais ceci, bien que la récupération de Dates alors qu'il est déjà passé en critère me semble redondant:

Code:

---

1 2 3 4 5 6 7

test_debut = Nz(Dlookup("Dates","COTATIONS","CODE_ISIN = 'FR0003500008' AND Dates='" & debut & "'"),"")   If test_debut= "" Then MsgBox "il n'y a rien" Else MsgBox "Dates=" & test_debut End If

---

Par contre, sous Excel, donc sans méthodes de domaines (Dlookup ici), leplus simple est de regarder la propriété EOF du recordset :)

je me rend compte que j'ai oublié de preciser que mes requetes se font sous access et que j'utilise DAO 3.6.

Je suis preneur de la methode EOF, je fais comment ?

pour la méthode EOF et tout ce qui se rapporte à DAO, un très bon cours ici :
http://warin.developpez.com/access/dao/

dans l'idée il s'agit d'un code proche de celui-ci :

Code:

---

1 2 3 4 5 6 7 8 9

Dim strSQL as String Dim RS as DAO.RecordSet strSQL = "SELECT ... " Set RS = CurrentDb.OpenRecordSet(strSQL) If Not RS.EOF Then MsgBox "Il y a un retour" Else MsgBox "Aucun retour" End If

---