Discussion :

[pepe29]

Bonjour,

A Partir du Tuto de Jean Damien Gayot (Import de données d'un serveur IBM AS/400 dans Access) J'ai modifier son code pour l'adapté à mon système AS 400.

Extrait du code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Explicit
Option Compare Database
 
Public Sub Maj_QryImport()
    On Error GoTo Error_Maj_QryImport
    Dim oDb As DAO.Database
    Dim StrDat As String
    Dim oQdf As DAO.QueryDef
    Dim StrSql As String
 
    'Attribue à la variable la valeur de la table Paramêtre
    StrDat = Parametres.[Magasins].Value
    StrDat = Right(StrDat, 4) & "-" & Mid(StrDat, 4, 2) & " " & Left(StrDat, 2)
   ...

Sur la ligne

Code :

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

StrDat = Parametres.[Magasins].Value

, j'ai une erreur de compilation, variable non définie, et si je remplace cette ligne par la date en elle même, cela fonctionne.

En se basant sur une date entrée dans un formulaire, j'ai la même réponse.

J'ai aussi essayé différente solution avec les [], ! pour encadrer le nom de la table mais sans résultat.

Je ne vois pas comment déclarer une table en variable, si vous avez une idée à me proposer pour solutionner le problème, merci d'avance.

[tee_grandbois]

Bonsoir,
tu peux, entre autres solutions, utiliser Dlookup. La syntaxe est très simple : Dlookup(expression, domaine, critère) :
expression : valeur à renvoyer (nom du champ)
domaine : nom de la table ou de la requête
critère : limitation des enregistrements par sélection (clause where, facultatif).
Voici comment procéder pour récupérer la valeur du champ Magasins de ta table Parametres :

Code :

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

StrDat = Dlookup("Magasins","Parametres")

Pour un champ nommé Magasins dans un formulaire, ce serait comme cela :

Code :

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

StrDat = Me.Magasins

Me désigne le formulaire en cours.