Discussion :

[fabiolous]

1. Bonjour je suis un peu nouveau sur le forum.

Je suis dans la console visual basic de access et je voulais faire une fonction vb qui passe en paramêtre la clause du where de mon recordset.
j'ai un problème au niveau des cotes. Car quand je met une valeur et pas un paramêtre cela fonctionne

voici la fonction :

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
 
Public Function get_chemin_file_ini(ByVal nomdubatch As String)
 
Dim select_chemin As String
Dim rs As DAO.Recordset
select_chemin = "SELECT [chemin_complet] FROM [infos_fic_ini] WHERE [nom_batch] = '" & nomdubatch & "';"
Debug.Print select_chemin
Set rs = CurrentDb.OpenRecordset(select_chemin, DB_OPEN_DYNASET)
Do While Not rs.EOF
Debug.Print rs![Chemin_complet];
'importer dans table ventil
'DoCmd.TransferText acImportDelim, "ventil_import", "Ventil", rs![Chemin_complet]
rs.MoveNext
Loop
rs.Close
End Function

Merci d'avance

[jean-paul lepetit]

Salut,

Je viens de tester, et ton code fonctionne.
Si dans la fenêtre d'exécution je lance

Code :

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

get_chemin_file_ini("toto.bat")

j'ai comme retour

Code :

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

1
2
SELECT [chemin_complet] FROM [infos_fic_ini] WHERE [nom_batch] = 'toto.bat';
c:\users

quel est le message d'erreur que tu as ?

[fabiolous]

Justement aucun message d'erreur mais je ne récupere pas la valeur souhaitée.

moi j'obtiens :

Code :

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

1
2
 
get_chemin_file_ini(generation_etats)

Code :

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

SELECT [chemin_complet] FROM [infos_fic_ini] WHERE [nom_batch] = '';

et donc la valeur entre cote n'est pas lues j'ai l'impression car rien ne s'affiche en debug.print

Hors c'est le resultat du select que je veux exploiter mais la clause where ne s'effectue par car la chaine est vide apparement.

Je pense que le problème viens du paramètre que je passe dans la fonction il s'agit d'une donnée contenu dans une table

[jean-paul lepetit]

Code :

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

1
2
 
get_chemin_file_ini(generation_etats)

generation_etats est un champ d'une table ?

si tu fais un debug.print de generation_etats ça te donne quoi ?

[fabiolous]

Ce n'est pas un champs mais plutot la valeur que peut prendre un champ.

Je veux donc recuperer cette valeur dans la condition where de mon select.

Lorsque je lance:

Code :

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

get_chemin_file_ini (generation_etats)

le resultat est:

Code :

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

SELECT [chemin_complet] FROM [infos_fic_ini] WHERE [nom_batch] = '';

dans le where j'ai rien pour etre bref.

[jean-paul lepetit]

as tu déclaré ta variable generation_etats comme variable globale dans un module ?

[fabiolous]

Non mais pourquoi puisque la valeur vient d'une table ?

[jean-paul lepetit]

Précises un peu comment tu récupères generation_etats

[fabiolous]

Tu dois soulever la le coeur du problème car j'avoue ne pas faire de traitements pour récuperer cette valeur.

Il doit falloir que j'effectue un traitement pour récuperer ce champ, mais lequel?

[jean-paul lepetit]

tu appelles ta fonction depuis un formulaire ?
Comment sélectionnes tu cette fameuse variable (ou champ) car si tu fais une recherche pour trouver le chemin c'est que tu as un choix possible au départ.

De plus , il serait plus simple de faire

Code :

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

select_chemin = Dlookup("[chemin_complet]","[infos_fic_ini]","[nom_batch] ='" & nomdubatch & "'")

[fabiolous]

oui j'appelle la fonction depuis un formulaire. La fonction est liée à un bouton de controle qui la déclenche.

Il n'y a pas de choix mais des états différents et donc un traitements différent.

j'ai remplacer :

Code :

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

select_chemin = "SELECT [chemin_complet] FROM [infos_fic_ini] WHERE [nom_batch] = '" & nomdubatch & "';"

par

Code :

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

 select_chemin = DLookup("[chemin_complet]", "[infos_fic_ini]", "[nom_batch] ='" & nomdubatch & "'")

Mais à l'execution il me renvoie l'erreur :

Code :

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

(erreur d'execution 94 --> utilisation incorrecte de null)

[jean-paul lepetit]

Je pense que ça vient du fait que nomdubatch est null

Si avant ton dlookup, tu mets

Code :

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

 nomdubatch="toto.bat"

est ce que ça marche ?

[fabiolous]

non c'est la même erreur le paramêtre qui est dans la fonction est null puisque j'ai aussi l'impression qu'il n'est pas récupéré...

Maintenant la question que je me pose c'est comment récupéré ce parametre correctement sachant qu'il s'agit d'une valeur d'un de mes champs d'une de mes tables.

Merci

[jean-paul lepetit]

qu'est ce qui fait que tu choisi tel batch, plutôt qu'un autre ?

[fabiolous]

La fonction me permet de recupere le chemin d'un fichier en fonction de son nom de batch.

Avec le chemin complet je pourrai ensuite importer le fichier dans la table qui correspond à son état et son modele tout simplement.

[jean-paul lepetit]

C'était pas ma question....

c'est dans un formulaire que tu fait un choix en fonction de tel ou tel critère ?

[fabiolous]

Non il n'y a pas de choix tout les etats seront traité quoi qu'il arrive. La fonction est déclenchée autant de fois qu'il y a d'états mais elle fait un traitement différent selon le nom de l'état passé en parametre.

[jean-paul lepetit]

Il faut donc que tu parcours ta table infos_fic_ini du début à la fin, que tu récupères ton info nomdubatch et que tu exécutes ton code ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim MaBd as Database
Dim Rst as Recordset
Dim Var_Chemin as String
Set Ma Bd=CurrentDb
Set Rst=MaBd.openRecordset("infos_fic_ini",DbOpendynaset)
Rst.MoveFirst
Do While Not Rst.EOF
  Var_Chemin=Rst!nomdubatch 'nomdubatch est bien le nom de ton champ ?
  select_chemin = Dlookup("[chemin_complet]","[infos_fic_ini]","[nom_batch] ='" & Var_Chemin & "'")
  Rst.MoveNext
Loop

[fabiolous]

il y a une erreur il me dit incompatibilité de type sur la ligne :

Code :

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

Set Rst = CurrentDb.OpenRecordset("infos_fic_ini", dbOpenDynaset)

[jean-paul lepetit]

dans vba, Menu Outils/Réferences, ajoutes Microsoft DAO 3.5 ou 3.6 Object Library