Discussion :

[gwenagan]

Bonjour à tous. Peux t'on passer un nom de champs en variable dans un Dlookup ? Si oui, je ne trouve pas la syntaxe. Mes champs se nomme J1, J2, J3 etc... jusqu'à J90.

Code :

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

1
2
3
4
5
6
7
8
9
 
 
MonNuméro = 1
 
MaVariable = "J"
MaVariable = MaVariable + "" & MonNuméro & ""
 
 
[MaVariable] = Dlookup("DATE_JOUR","T_DATE_JOUR","NO_JOUR = " & MonNuméro & "")

Voilà, j'aimerais que cela corresponde à (avec un Do Loop):

Code :

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

1
2
3
4
5
6
7
 
 
J1 = Dlookup("DATE_JOUR","T_DATE_JOUR","NO_JOUR = "1")
J2 = Dlookup("DATE_JOUR","T_DATE_JOUR","NO_JOUR = "2")
J3 = Dlookup("DATE_JOUR","T_DATE_JOUR","NO_JOUR = "3")
 
etc......................

Merci de votre aide et bonne journée à tout le monde.

[hyperion13]

Salut
A tester

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub looping()
Dim MaVariable As String
Dim MonNuméro As Integer
 
MaVariable = "J"
MonNuméro = 1
 
Do While MonNuméro <= 31
    MaVariable = MaVariable & MonNuméro
    MaVariable = DLookup("DATE_JOUR", "T_DATE_JOUR", "NO_JOUR = " & MonNuméro)
    MonNuméro = MonNuméro + 1
Loop
 
End Sub

[gwenagan]

Merci beaucoup de votre aide. Je teste dans 5 minutes.
Jusqu'à présent, ma variable prenait la valeur du Dlookup puis qu'on lui dit MaVariable =Dlookup.
J'essaie et vous tiens informé.

[hyperion13]

re
Mais vous cherchez à faire quoi exactement avec votre boucle ou DLookup() ?

[gwenagan]

Voilà, j'ai testé. La procédure ne renvoie pas d'erreur, en revanche, mes champs n'affichent rien.Quand j’exécute la procédure en pas à pas, ma variable me renvoie
MaVariable = "J1"

[img]

[/img]

Je me retrouve avec :

"J1" = Dlookup

Le problème semble être les doubles cotes "".

Il faudrait obtenir :

J1 = Dlookup

Merci de votre aide.

[gwenagan]

re
Mais vous cherchez à faire quoi exactement avec votre boucle ou DLookup() ?

Je cherche à afficher au dessus de la première colonne dans mon formulaire (qui est un planning de réservation) le 25 du mois de juin, la deuxième le 26, la troisième le 27 etc....
comme ici :
[img]

[/img]

Sur ce PC je le fait avec une autre méthode : MaPremièreDate = MaPremièreDate
J1 = MaPremièreDate
MaPremièreDate = MaPremièreDate +1
J2 = MaPremièreDate
et ainsi de suite....
Ce PC à un processeur i3 3.6 Ghz
Sur un second PC, le processeur i3 1.6 Ghz est trop faible et plante régulièrement avant d'afficher le formulaire. Je cherche donc une méthode moins lourde sur ouverture du formulaire.

[hyperion13]

re
Si vos objets sont nommés J1 à J31, un truc comme ça

Code :

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

1
2
3
4
For i = 1 To 31
    Forms!nomdufrm!("J" & i) = i ' si objet est textbox
    Forms!nomdufrm!("J" & i).Caption = i ' si objet est étiquette
Next i

[gwenagan]

Merci beaucoup.
Je ne comprend pas trop quoi faire de cela mais je vais faire des tests.
Mes champs sont des objets Textbox indépendants.
Je ne cherche pas à nommer mes champs mais à leur donner une valeur sur ouverture du formulaire.
Merci encore.

[gwenagan]

Merci énormément pour votre aide.
La dernière solution fonctionne très bien.
A bientôt et très bonne soirée à tout le monde.