Discussion :

[Williamm]

Bonjour à tous,

J'ai un état dans lequel j'ai un champ indépendant qui se nomme "An1" dont j'aimerais qu'il prenne pour valeur une donnée dans une table.

Cette table contient deux champs: Année et Semaine
Cette table contient toujours que 5 lignes.

La table se présente comme suit avec des exmple de données

Code :

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

1
2
3
4
5
6
Année   Semaine
11      50
11      51
11      52
12      01
12      02

Dans mon code se sera donc Me!An1 = ...

Comment faire en vba pour recuperer la valeur de la première ligne du champ Semaine (ici je veux donc récuperer le "50")

Merci pour votre aide

[Invité]

Bonjour
Il y a plusieurs solutions.
Si tu es sûr de toujours récupérer sur la première ligne, tu peux éventuellement adopter celle là.

Code :

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

1
2
3
Dim IntSemaine as Integer
    StrSemaine = Nz(DLookup("Semaine", "NonTable"),"")
Me.An1.Value = IntSemaine

Je suis parti du principe que le champ semaine avait une valeur numérique.