[AC-2007] Text box width/bring to front

[SorenIX]

Bonjour,

Je travail toujours sur le même projet et maintenant j'aimerais faire la chose suivante :

Lorsque j'ouvre le formulaire "TodayForm",

1- Si la text box "episode_at" a sa valeur par défaut, il faudrait que son width devient 5cm.

ou

2- Si la text box "episode_at" a sa valeur par défaut, il faudrait la ramener au premier plan.

Est-ce possible?

Merci d'avance!

[GAYOT]

Envoyé par SorenIX

Je travail toujours sur le même projet et maintenant j'aimerais faire la chose suivante :

Toutle monde ne sait pas forcémént de quoi il s'agit. Il vaut donc mieux préciser le sujet.

[SorenIX]

J'ai été déplacé, j'étais dans une autre section avant et j'ai posté d'autre questions...

De toute façon je vois pas en quoi dire sur ce que je travail aiderait... La question est pourtant claire

Je cherche une façon de le faire avec VBA...

[Philippe JOCHMANS]

Bonjour

Je ne comprends pas ton problème :

Pour récupérer la valeur par défaut il faut utiliser la propriété DefaultValue
, il suffit donc de faire un test avec la valeur saisie, non ?

Philippe

[SorenIX]

Je n'y connais rien, je suis entrain d'apprendre en posant la question.
Je veux savoir le code qui ferait en sorte qu'à l'ouverture du formulaire ''TodayForm'', si la boite ''episode_at'' a sa valeur par défaut, elle se ferait ramener au premier plan.

[Philippe JOCHMANS]

Re

Je n'ai pas testé, mais lorsque tu ouvres ton formulaire, ta zone de texte a automatiquement sa valeur par défaut, non ?

Quel est le but de la manoeuvre, pourquoi veux-tu faire cela ?

Philippe

[SorenIX]

http://imageshack.us/photo/my-images/695/unled2lv.jpg/

Je veux cacher les boutons à côté de la nouvelle entrée...

[Philippe JOCHMANS]

Re

Tu t'embêtes bien avec la taille, il faut jouer sur la propriété Visible de tes boutons.

Par contre tu n'as pas répondu à la question :

mais lorsque tu ouvres ton formulaire, ta zone de texte a automatiquement sa valeur par défaut, non ?

Philippe

[SorenIX]

EDIT : http://imageshack.us/photo/my-images/695/unled2lv.jpg/

La valeur par défaut est "Sorry! :)", mais se n'est que la nouvelle entrée qui aura la valeur par défaut.

Ce formulaire est une requête qui sort tout les titres qui ont leur streaming pour chaque jours. Donc la requête ressemble à ceci :

Code :

1
2
3
4
5
SELECT AnimeTab.title, AnimeTab.episode_at
FROM AnimeTab
WHERE (((AnimeTab.[streaming_date])=(SELECT Date
                                              FROM DateTab
                                              WHERE weekday_number = Weekday(DATE()))));

Sunday weekday_number= 1, Monday weekday_number= 2 ... Saturday weekday_number= 7

J'ai eu comme réponse sur un autre forum que se code si marcherait :

Code :

1
2
3
4
5
Private Sub Form_Load()
If Me.episode_at = Me.episode_at.DefaultValue Then
   Me.episode_at.Width = 5 * 567
End If
End Sub

Aucune erreur, mais rien se passe.