[Résolu] Erreur dans l'ouverture d'un recordset

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Résolu] Erreur dans l'ouverture d'un recordset

Alphajet

Faites le vous-même!

Bonjour,

Je laisse ce message parce que je ne comprends vraiment pas pourquoi une erreur se produit.

Le contexte : je crée un formulaire dans Access, qui doit permettre d'importer les données d'un fichier Excel directement dans certaines colonnes de la base de données. Mais les données que l'utilisateur va importer dépendent du mois de l'année. L'utilisateur choisit donc dans une liste le mois correspondant.

C'est pour cela que j'utilise un recordset : en fonction du mois choisi, je fais une requete de sélection sur une table qui contient des informations qui me permettent de localiser les données à importer.

Maintenant voilà le code (uniquement ce qui est utile):

Code :

Dim dbs As DAO.Database
Dim Month As String
Dim Filepath As String
Dim ClasseurXLS
Dim Sh As Excel.Worksheet
Dim rst As DAO.Recordset
Private Sub Import_Data()
MsgBox (" fichier : " & Filepath)
' *** INITIALISATIONS ***
'Création du classeur Excel
Set ClasseurXLS = CreateObject("Excel.application" )
'Ouverture du classeur d'importation
ClasseurXLS.Workbooks.Open Filepath
Set Sh = ClasseurXLS.Worksheets("P & L" )
Set dbs = CurrentDb
MsgBox ("mois: " & Month)
'Récupération du numéro de colonne
sqlCol = "SELECT MonthPandL FROM tbl_MonthNumber WHERE Month = '" & Month & "' ;"
MsgBox (" requete :" & sqlCol)
Set rst = dbs.OpenRecordset(sqlCol, dbOpenDynaset)
Column = rst.Fields(0).Value
MsgBox ("test rst :" & Column)
...

Et j'obtiens systématiquement malgré tous mes efforts une erreur 3061 "Too few parameters. 1 Expected" soit en français, "Trop peu de paramètres. 1 attendu."

Auriez vous une piste à me donner ?

Message édité par Alphajet le 06-09-2006 à 09:26:41

---------------
Bien joué! Mais une brique ne rend jamais les coups.

Publicité

Lord Nelson

Salut,

On ne voit pas ce que contient ta variable "Month" qui est utilisée pour filtrer ta requête.

A+
Horatio

tegu

Sinon, je ne comprends pas comment tu peux vouloir ouvrir un recordset alors que tu n'as pas de table.
« dbs.OpenRecordset » permet d'ouvrir un recordset basé sur une table ou une requete enregistrées dans ta base Access.
Or ton fichier Excel est externe et je ne vois nulle part d'importation ou de liaison de ces données Excel dans un conteneur Access.

Message cité 1 fois
Message édité par tegu le 05-09-2006 à 17:31:24

Alphajet

Faites le vous-même!

La variable Month est bien récupérée, elle provient d'une liste déroulante dans le formulaire :

Code :

Private Sub Month_list_AfterUpdate()
Month = Month_list
MsgBox ("testmois :" & Month)
End Sub

La boite de test ici fonctionne bien et renvoie la bonne valeur.

---------------
Bien joué! Mais une brique ne rend jamais les coups.

JihemAir

Je sais pas

Salut,

En fait, il faut que tu crée un Querydef (une requete), et que ce Querydef remplisse ton recordset:

Code :

Dim dbs As DAO.Database
Dim qdf As QueryDef
Dim rs As Recordset
Dim strReq As String
strReq = "SELECT MonthPandL FROM tbl_MonthNumber WHERE Month = '" & Month & "' ;"
Set qdf = dbs.CreateQueryDef("", strReq)
Set rs = qdf.OpenRecordset
If rs.RecordCount > 0 Then
' traitement
End If

Code :

Set qdf = dbs.CreateQueryDef("", strReq)

Dans cette ligne, il faut laisser les 2 guillemets vides, sinon tu donnes un nom à ta requete qui deviendra une requete stockée.

Voilà.

Message cité 1 fois

---------------
J'ai un message.."Cliquez OK pour continuer."...Qu'est ce que je fais ?

Alphajet

Faites le vous-même!

tegu a écrit :

...
Sinon, je ne comprends pas comment tu peux vouloir ouvrir un recordset alors que tu n'as pas de table.
« dbs.OpenRecordset » permet d'ouvrir un recordset basé sur une table ou une requete enregistrées dans ta base Access.
Or ton fichier Excel est externe et je ne vois nulle part d'importation ou de liaison de ces données Excel dans un conteneur Access.

En fait le recordset en lui même n'a rien à voir avec le fichier Excel.
Il est exécuté dans la base Access sur les données d'une table dans Access.
Tout le code VBA est exécuté depuis Access, et je ne fais aucune opération à partir du fichier Excel même.

En fait la suite du code permet de récupérer les valeurs de certaines cellules d'un fichier (pour éclaircir : j'ai des dizaines de fichiers Excel au format identique dont je veux récupérer les données, et ils sont classés par agence, mois et par année. Mon formulaire permet donc de sélectionner une agence, une année, un mois puis de sélectionner le fichier Excel à importer)

---------------
Bien joué! Mais une brique ne rend jamais les coups.

Alphajet

Faites le vous-même!

JihemAir a écrit :

Salut,

En fait, il faut que tu crée un Querydef (une requete), et que ce Querydef remplisse ton recordset:

Ah donc le QueryDef est nécessaire ? J'avais recherché des exemples du type de ce que j'ai écrit et apparemment ils fonctionnaient. Mais je vais essayer avec le QueryDef

---------------
Bien joué! Mais une brique ne rend jamais les coups.

Alphajet

Faites le vous-même!

Malheureusement j'ai exactement le même problème, l'erreur renvoyée est la même, sur cette ligne :

Code :

Set Rs = qdf.OpenRecordset

---------------
Bien joué! Mais une brique ne rend jamais les coups.

Lord Nelson

Re,

J'ai une bonne nouvelle :
- Ton code fonctionne pour ce qui est de la requête, il n'est donc pas nécessaire de passer par un QueryDef.
Lorsque Month = "Apr", on récupère bien "Avril"
etc..

et une mauvaise :
- Je ne vois pas ce qui cloche.

Es-tu bien sûr que le champ "Month" de ta table "tbl_MonthNumber" est bien une chaîne de caractères ?

A+
Horatio

Message édité par Lord Nelson le 05-09-2006 à 18:21:31

JihemAir

Je sais pas

Re:

Regarde aussi dans ta base de données, si tu n'as pas une requête enregistrée.
J'ai l'impression que ton code appelle cette requête, sans lui passer de paramètre.

---------------
J'ai un message.."Cliquez OK pour continuer."...Qu'est ce que je fais ?

Publicité

Alphajet

Faites le vous-même!

Merci à vous deux pour votre aide déjà J'ai trouvé l'erreur grâce à vous :

=> Lord nelson : Le champ Month est bien une chaîne de caractères, par contre le nom de la colonne avait changé pour MonthName dans la BD, je n'avais pas répercuté ça dans le code ... D'où l'erreur, la colonne n'était pas trouvée

Désolé, comme souvent, c'était une erreur bête ! Et comme souvent on cherche à côté de là où il faut chercher

Message édité par Alphajet le 06-09-2006 à 09:27:03

---------------
Bien joué! Mais une brique ne rend jamais les coups.

Lord Nelson

Salut,

Content que tu aies résolu ton problème.

Il me semble que tu pourrais obtenir un résultat analogue plus simplement en utilisant la fonction RECHDOM (DLOOKUP en anglais) d'Access. Tu récupérerais le mois dans la table sans passer par DAO.
Par exemple :
Dim MoisComplet As String
MoisComplet = DLookup("MonthPandL", "tbl_MonthNumber", "Month='" & Me.ListeMois & "'" )
MsgBox MoisComplet

En fait DLookup lance directement une requête sur la table.

A+
Horatio

Message édité par Lord Nelson le 06-09-2006 à 10:31:17

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[Résolu] Erreur dans l'ouverture d'un recordset

Sujets relatifs
[Résolu] Repointer au début du tableau ap un mysql_fetch_array	[Resolu] Souci fusion automatisee en VBA sous word
cherchez l'erreur (SVP;)	[Resolu][C#.NET] XML -> Un lire des noeuds un après l'autre ?
erreur de syntaxe inatendue	l'affichage erreur php
[Delphi] utiliser des TEdit comme des tableaux edit[var].text [Résolu]	erreur sur trigger
[Résolu] Macro supprimer une colonne	[RESOLU] Flash : Alignement en 1er plan d'une animation
Plus de sujets relatifs à : [Résolu] Erreur dans l'ouverture d'un recordset

Page générée en 0.040 secondes