Valider un champ par defautRésolu

Question

Bonjour &#224; tous, novice en la mati&#232;re, votre aide sera la bien venue.
Sur access j'essaye avec de grandes difficult&#233;s &#224; mettre par defaut un champ.
J'ai donc une table mois dans laquelle figure un champ Date_deb_mois.
D'autre part un formulaire presence dans lequel on retrouve un champ Date_deb_pre, que je voudrais qui affiche par d&#233;faut le champ de la table mois. Comment m'y prendre? Le mieux que j'ai obtenu est 29/12/1899 Merci de votre aide.

Tuning Max · Accepted Answer

Comprend pas. peut tu &#234;tre plus explicite?
Ta table [mois] contient d&#233;j&#224; les donn&#233;es que tu souhaite afficher ou doit elle les enregistrer depuis ton formulaire? Que doit afficher ton formulaire exactement?

bigdos1 · Answer

OK, je vois que tu as bien compris mon probl&#232;me, encore merci. Alors voici les explications. Je fais une base de donn&#233;es pour enregistrer les pr&#233;sences d'&#233;l&#232;ves. 
1) j'ai fais une table[ mois] contenant tous les mois avec un champ [date_deb_mois]2) une table[ presence] ou je rentre les dates de presence dans un champ [date_deb_pre], bien entendu d'autres renseignements doivent figur&#233;s faisant appel &#224; d'autres tables, d'ou la cr&#233;ation d'un formulaire de saisie.
Pour faciliter la saisie j'aimerai que le champ du formulaire [date_deb_pre] soit par defaut la valeur [date_deb_mois], &#233;tant entendu que dans le formulaire la selection du mois est faite &#224; partir de la table mois.
La table [mois] contient bien les donn&#233;es [date_deb_mois] &#224; afficher par d&#233;faut dans le formulaire dans le champ [date_deb_pre]
Est-ce plus clair pour toi,? merci de ton int&#233;ret .BD

Tuning Max · Answer

ok je vois. Pour ma part, je te conseillerais une attribution de la valeur du champ sur ton formulaire par code vba. Dans un premier temps ton champ doit être de type "Zone de liste déroulante". Dans les propriétés du champ, sur l'onglet "Données" :

A la ligne source, sélectionner le champ [date_deb_pre] de la table [presence]

A la ligne Origine source, sélectionner "Table/Requête"

La ligne Contenu est une requête SQL type SELECT [mois].[date_deb_pre] FROM [moi];

Dans les propriétés de ton formulaire ; Dans l'onglet Evénement, à la ligne "Sur chargement", sélectionner [Procédure événementielle] Tu clique alors sur le boutton pour accéder à la fenêtre de programmation VBA et tu y colle le code ci-dessous Private Sub Form_Load() Dim rcd As Recordset, db As Database, Month As Date ' ouverture de la table Mois pour selection du parametre Set db = CurrentDb Set rcd = db.OpenRecordset(" SELECT Month([Mois]![date_deb_mois]) AS Expr1, Mois.date_deb_mois " & _ " FROM Mois WHERE (((Month([Mois]![date_deb_mois]))=Month(Now())));", dbOpenDynaset) Month = rcd.Fields("date_deb_mois").Value ' Chargement de la variable avec la valeur du recordset Me.ModifMois = Month ' Affectation du contenu de la variable au champ du formulaire ' Fermeture et dechargement mémoire Set rcd = Nothing db.Close End Sub Attention tout de même a bien cocher "Microsoft DAO 3.6 Object Library" dans les références de VBA Voilà j'espère avoir été suffisamment clair et n'hésite pas à demander si tu as un Pb

Tuning Max · Answer

A oui, j'oubli&#233;, je suis parti du principe que tes champs [date_deb_pre] et [date_deb_mois] sont tous les deux au format Date

bigdos1 · Answer

D&#233;sol&#233; encore moi, pourtant tu n'as pas n&#233;glig&#233; tes efforts pour m'aider, mais petit probl&#232;me, le champ [date_deb_pre] de la table [presence ] est d&#233;fini au format date comme tu l'as bien suppos&#233; et de ce fait, il n'accepte pas d'&#234;tre de type "zone de liste d&#233;roulante". Ceci dit tes explications ne sont pas innutiles car peu &#224; peu je comprend la n&#233;cessit&#233; de programmation, moi qui pensait que ce n'&#233;tait qu'une histoire de champ p&#232;re et fils. Encore merci de ta patience, mais je suis un peu obstin&#233; et nous l'aurons cette solution. Salutations BD

Tuning Max · Answer

Tu ne peux pas modifier en effet le type comme ça. Pour cette opération un peut particulière, il faut créer manuellement ton champ grace à la boîte à outil du formulaire. Dans ton formulaire en mode création :

A l'aide de la boite a outil du formulaire, tu clique sur le bouton nommé "Zone de liste déroulante" et tu dessine un belle zone sur ton formulaire en mode création.

Normalement l'assistant zone de liste déroulante s'ouvre et tu coche "Je veux que la liste déroulante recherche les valeurs dans une table ou requête." puis le bouton "Suivant"

Tu sélectionne ensuite la table qui contient l'information, a savoir [mois] et le bouton "Suivant"

Tu sélectionne le champ qui contient l'information, à savoir [date_deb_mois] et le bouton "Suivant"

Tu peux alors effectuer un tri sur le ou les champs précédemment sélectionné (optionnel) et toujours le bouton "Suivant"

Tu visualise alors la liste déroulante que tu as créé que tu peux a ce moment modifier en largeur. Après quoi tu clique sur le bouton "Suivant"

Vient le moment le plus intéressant! Tu coche "Stocker la valeur dans ce champ :" et en face tu sélectionne le champ en question. Soit pour toi [date_deb_pre] et tu clique sur le bouton "Suivant"

Tu mets enfin un joli nom d'étiquette tu clique sur le bouton "Terminer"

Tu peux alors supprimer ton ancien champ [date_deb_pre] zone de texte qui ne te sert plus alors.

A oui, j'allais oublier ! Dans les propriétés de ta zone de liste déroulante, sur l'onglet "Autres" tu modifieras à la ligne "Nom.......", le nom du champ de formulaire qui par défaut doit s'appeler "Modifiable1" puisqu'il est référencé dans le code VBA sous le nom "ModifMois" Je crois que ce doit être a peut près tout. Tien moi au courant!

bigdos1 · Answer

Merci de ta perseverance, j'avais bien pens&#233; &#224; la zone de liste, effectivement, comme cela &#231;a fonctionne, mon d&#233;sir &#233;tait de ne pas obliger la secr&#233;taire &#224; renter de date, c'est pourquoi je souhaitais que celle-ci s'affiche d'embl&#233;e par d&#233;faut dans le formulaire, ainsi elle n'aurait entr&#233; de dates debut et fin qu'en cas d'absence de l'&#233;l&#232;ve, le choix par d&#233;faut se faisant &#224; l'ouverture du formulaire par le n&#176; du mois. Mais cette formule peut convenir encore merci pour ton aide pr&#233;cieuse.

Tuning Max · Answer

de rien

Valider un champ par defaut

8 réponses

Discussions similaires