Discussion :

[helprojet]

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

[Jean-Philippe André]

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 :

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

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

[helprojet]

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 ?

[Jean-Philippe André]

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 :

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

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