Discussion :

[conics]

Bonjour. J'ai un problème avec la fonction date sous access. Quand j'exécute cette ligne de code :

Code :

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

txtBox1.Value = "01" & Right(date,2)"

, j'ai le message:
"impossible de trouver le champs date auquel il est fait référence dans votre expression".
J'ai aussi essayé :

Code :

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

1
2
 
txtBox1.Value = "01" & right(Cstr(Date),2)

mais j'ai toujours le même message. Je comprend pas d'où ça vient, surtout que j'ai le même code dans un autre formulaire, et la il s'exécute sans problème. Merci à ceux qui pourront m'aider.

[cavo789]

Que veux-tu récupérer ? L'année sur deux positions ?

Code :

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

txtBox1.Value = "01" & Right(date,2)

devrait convenir. La différence avec ton code, c'est que je n'ai pas mis de guillemets après la parenthèse fermée.

Christophe

[lvr]

Tu mélanges les types de données. Je sais que VBA est très laxiste là-dessus, mais évite ! Surtout que ta solution n'est pas portable ! Que se passerait-il si Date retournait la date sous la forme "20072007" ??????

Deux pistes:

Code :

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

txtBox1.Value = "01" & Format(Date, "yy")

Je formate la date du jour pour n'avoir que son année sur 2 positions.

Code :

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

txtBox1.Value = "01" & Cstr(Year(Date))

Je récupère en numérique l'année de la date du jour et je convertis ce numérique en chaîne de caractère.

[cavo789]

Houlà; tu as raison; il est préférable de faire un Format auparavant

J'ai essayé la solution que j'ai proposé et elle fonctionne correctement (mais pas propre; je l'admets)

>Que se passerait-il si Date retournait la date sous la forme "20072007"

Mauvais exemple : cela retournerait aussi 07

[random]

Code :

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

1
2
 
format(year(madate)-2000,"00"))

[conics]

Merci à tous de m'avoir répondu. En fait, en référençant la bibliothèque de la fonction, ça marche:

Code :

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

txtNumero.Value = "01" & Right(DateTime.Date, 2)

Le code s'exécute correctement bien que mes paramètres ne sont pas du bon type (j'avais pas fait attention à ça). A+