Discussion :

[gyzmo5]

j'ai un bouton qui exécute le code suivant :

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
18
19
20
Private Sub Commande319_Click()
 
Dim rst As DAO.Recordset
Dim db As DAO.Database
 
'ouverture de la base de donnée
 
Set db = DBEngine.OpenDatabase("Y:\Outil RIM\Ratio2BIS.mdb")
Set db = CurrentDb
 
Set rst = db.OpenRecordset("Select Heur9,Heur10,Heur11,Heur12,Heur13,Heur14,Heur22 From chiffre Where Date2005 = #" & Me.date_ref & "#", dbOpenDynaset)
MsgBox " le chiffre de 9 heures est : " & rst.Fields("Heur9").Value, vbOKOnly
 
'fermeture du recordset
rst.Close
db.Close
Set rst = Nothing
Set db = Nothing
 
End Sub

seulement au moment d'éxécuter ce code il me met le message d'erreur 3021 " pas d'enregistrement courant " ( les lignes que la faq conseil de supprimer, ces lignes ne sont pas présentent dans mon programme)

D'après l'aide d'access, il y a aucun enregistrement dans mon recordset !

si quelqu'un à une idée sur le problème ?

Merci pour vos réponses.

[snoopy69]

As-tu testé ta requête pour voir si elle retourne quelque chose ???

Car si elle ne te retourne rien c'est normal que tu aies ce message ....

Teste ta requête dans l'éditeur de requête Access et regarde si il y a des enregistrements qui viennent à l'écran ...

Code :

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

 ("Select Heur9,Heur10,Heur11,Heur12,Heur13,Heur14,Heur22 From chiffre Where Date2005 = #" & Me.date_ref & "#", dbOpenDynaset)

Si je ne m'abuse pour dire & en SQL il faut utiliser le mot clé AND

Donc voici comment je ferais ma requête :

Code :

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

("Select Heur9,Heur10,Heur11,Heur12,Heur13,Heur14,Heur22 From chiffre Where (Date2005 = '#' " & Me.date_ref AND " ' ' "# ' ", dbOpenDynaset)

Védifie aussi tes guillemets ...

Je te mets un exemple d'une de mes requêtes :

Code :

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

1
2
 
("SELECT * FROM TB_VBA WHERE (fk_formulaire_vba LIKE '" & int_PkFormulaire & "') AND (fk_departement_vba LIKE '" & int_Departement & "')AND (fk_provenance_vba is null) AND (fk_destination_vba LIKE '" & int_Destination & "')AND (fk_description_vba is null);")

J'espère que j'ai pu t'aider ...
A la prochaine --- :-)

[Tofalu]

Première chose :

Pourquoi :

Code :

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

1
2
Set db = DBEngine.OpenDatabase("Y:\Outil RIM\Ratio2BIS.mdb") 
Set db = CurrentDb

Soit tu ouvres une base différentes de currentdb soit currentdb mais pas les deux dans le même objet database, c'est completement inutile voire incohérent.

Pour tester si un recordset est vide ou plei, il faut tester la propriété EOF à l'ouverture