[Toutes versions] Affichage du dernier enregistrement dans un formulaire [Résolu]

[btks59]

Bonjour,

Une partie de ma base est composée de 3 tables :
- Commandes
- Envois
- Produits

Commandes 1-----oo Envois 1-----oo Produits

J'ai créé un formulaire très simple basé sur "Commande" qui contient un sous formulaire (datasheet) "Envois" qui lui même contient un sous formulaire (datasheet) "Produits". Ce qui nous donne :
- Commande : formulaire
- Envois : sous-formulaire
- Produits : sous sous-formulaire

Certains enregistrements sont assez rébarbatifs, j'aimerai simplifier la saisie des utilisateurs.
Par exemple dans "Envois", les utilisateurs doivent sélectionner le nom du responsable.
Il arrive très souvent que pour une commande, on ait 20 envois dont les 15ers sont gérés par une personne et les 5 derniers par une autre.
Ce qui fait que les utilisateurs doivent à chaque envois, sélectionner le même nom à chaque fois.

J'aimerai en fait que la valeur par défaut de ce champ soit égale à la dernière qui a été saisie. Comme ça, dans notre exemple, les utilisateurs ne devront sélectionner la personne qu'une fois, et pour les 14 envois suivant, le nom de cette personne apparaîtra automatiquement dans la cellule.

Je pense qu'il y a quelque chose à faire avec les ID mais là où ça devient plus compliqué est que ma base est "splitée" (une partie pour les données et une partie pour la saisie/consultation). Plusieurs personnes peuvent donc mettre des infos à jour à même temps. En jouant sur les ID je pense que ça pourrait poser problème, si 2 personnes ajoutent des infos en même temps, peut être que la valeur par défaut d'un utilisateur ne sera pas la dernière qu'il a saisie mais la dernière saisie par l'autre utilisateur ...

Bon déjà si j'arrive à faire apparaître la dernière valeur saisie sans prendre en compte ma dernière remarque ça sera pas mal

Merci à tous !

[fbtsra]

Bonjour,

Un simple code en propriété Mise à jour du champ Responsable :

Code :

Responsable.DefaultValue = "'" & Me.Responsable & "'"

doit faire l'affaire et surtout ne pas impacter les autres utilisateurs.

Bcdt

[btks59]

Bonjour,

Merci pour la réponse rapide.

Je ne suis pas le spécialiste en code. Si jai bien compris, pour mettre cette propriété, je vais dans mon sous formulaire "Envois".
Je clique ensuite sur "Responsable" et dans "Default Value" je mets : = "'" & Me.Responsable & "'" ?

Je préfère demander car en faisant ça, j'ai "#Name?" dans ma cellule.

[fbtsra]

Non, comme précisé

Un simple code en propriété Mise à jour du champ Responsable

il faut insérer le code :

Code :

Responsable.DefaultValue = "'" & Me.Responsable & "'"

dans la propriété "Après Mise à jour" du champ Responsable, c'est à dire clic droit sur champ "Responsable", clic sur "Propriétés", puis insérer le code dans la propriété "Après MAJ" via le générateur de code ou clic sur la liste qui apparaît sur [Procédure évènementielle].

Bcdt

[btks59]

Ok, merci pour les précisions, j'essaierai ça demain.

Bonne soirée !

EDIT : Merci beaucoup, ça fonctionne très bien !

Envoyé par fbtsra

Code :

Responsable.DefaultValue = "'" & Me.Responsable & "'"

Sans vouloir abuser, pourrais-tu m'expliquer rapidement la structure de ce code ? Sur Access je ne sais que faire du SQL quasiment ... et j'ai du mal à déchiffrer, je pense que je devrais me mettre un peu au code, les possibilités ont l'air d'être très intéressantes. Si tu as des conseils, n'hésites pas

[fbtsra]

Bonjour,

Code :

Responsable.DefaultValue =

permet de définir la propriété "Valeur par Défaut" de ton champ [Responsable],

Code :

"'" & Me.Responsable & "'"

lui attribue la valeur actuelle du champ Responsable du formulaire actif (Me.)

le caractère & sert pour concaténer les chaines (texte) et les "'" permettent de rajouter un guillement avant et après la valeur du champ pour correspondre à la syntaxe attendue de cette propriété.

Je suis inscrit depuis peu sur ce forum mais je pense que tu trouveras ton bonheur sur le code dans les tutoriels du site.

Bonne continuation,
Bcdt

[btks59]

Merci pour toutes ces explications, ça m'a beaucoup aidé.

A bientôt !