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 : Sélectionner tout - Visualiser dans une fenêtre à part
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