Discussion :

[gyzmo5]

Bonjour !!

j'ai fais une requête et je voudrais récupérer le résultat pour les afficher dans mon formulaire dans des zone de texte.
seulement quand j'éxécute mon code il me mets que mon jeu d'enregistrement est vide

ai-je oublié de faire quelque chose ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Commande338_Click()
 
Dim Rrst As DAO.Recordset
Dim db As DAO.Database
Dim rst As DAO.Recordset
 
 
'ouverture de la base de donnée.
Set db = CurrentDb
 
Set rst = db.OpenRecordset("Select * From chiffre Where chiffre!Date2005 = #" & Me.date_ref & "#", dbOpenDynaset)
 
If Not rst.BOF Then
MsgBox "Le jeu d'enregistrement n'est pas vide"
Else
MsgBox "Le jeu d'enregistrement est vide "
End If

si quelqu'un à une idée ?

Merci à tous !

[keita]

salut
A mon avis ceci n'est pas tres correct ici:

Code :

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

1
2
3
4
5
If Not rst.BOF Then 
MsgBox "Le jeu d'enregistrement n'est pas vide" 
Else 
MsgBox "Le jeu d'enregistrement est vide " 
End If

essai ça:

Code :

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

1
2
3
4
5
If rst.recordcount > 0 Then 
MsgBox "Le jeu d'enregistrement n'est pas vide" 
Else 
MsgBox "Le jeu d'enregistrement est vide " 
End If

sinon verifie Me.date_ref ; il doit etre au format de date americain "mm/dd/yyyy dans la requete
@+

[gyzmo5]

ok merci !!
[/quote]