Discussion :

[DevilTom]

Bonjour,
J'aurai besoin d'un peu d'aide pour un problème de champ.
Je vous explique :
J'ai 3 Champs ; Code, Réf1 et Réf2.
Dans le premier champ (Code), on saisie un code (exemple : AA).
Dans le second champ (Réf1), j'aimerai que l'on puisse récupérer la valeur du premier champ et ajouter un chiffre derrière.
Pour le troisième champ (Réf2), il faudrait faire la même chose mais avec le deuxième champ.

En plus explicatif :
Si Code = AA, alors Réf1 = AA001 (avec le '01' insérer manuellement) et Réf2 = AA001_1 (avec le dernier '1' insérer manuellement).

J'ai essayé de le coder en VBA avec :
Réf1 = [Code] + "0" + " " mais je peux pas faire d'insertion manuelle.
Réf2 = [Réf1] + "_" + " " idem que avec le champ Réf1

Alors j'aurai aimé savoir si il exister un moyen de définir un champ et d'ajouter manuellement un chiffre ou un caractère.
Ça fait 2 jour que je cherche (j'ai même essayer en faisant des récupération de référence sur les tables, ou alors avec un indice qui s'incrémente en comparant les références, j'y arrive pas ..) et j'aimerai pouvoir m'en sortir..

Cordialement,

[Flyoss]

Bonjour,

Si tu passe par une requête il me semble que tu peux faire comme ceci

Code SQL :

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

Réf1 = [c0de] + "0" + [Quelle Ref1 ?]

[DevilTom]

Merci pour la réponse si rapide !
EN fait, j'ai pas de requête car je fait tout avec le même formulaire et j'enregistre toutes ces données sur la même table. Donc je pensais que c'était pas utile ..
Pour le code, on le récupère de par une table d'enregistrement.
Cet évènement est déclenché sur le clic du champ et du coup, les caractères sont surligné et je peux pas écrire à la suite ... Si j'écris, cela supprime tout ..
Et par [Quelle Réf11 ?], tu peux écrire derrière à la place de cette chaîne?

[Flyoss]

Pardon j'avais pas vu le

J'ai essayé de le coder en VBA avec :

Et je me suis même dit dans ma tête:

Il passerait par du VBA ce serait bien mieu

Du coup je te propose de passer par un input box

Code :

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

Réf1.value = [c0de].value & "0" & InputBox("Message pour l'utilisateur")

Je te conseille tout de même de concaténer tes chaines avec des esperluettes et d'éviter les accents sur les noms de tes variables et champs.

[DevilTom]

Ahah j'aime tes citations

La Input box (si je suis pas trop nul ...) c'est bien une fenêtre qui va s'ouvrir en plus ? Car je cherche l'ergonomie et la rapidité (c'est un système que l'on va utiliser sur terrain et il faut que ça soit rapide et fluide). Donc je pense que ouvrir une box en plus va nous faire perdre un peu de temps. Certes quelques secondes mais on aura une centaine de référence, donc au bout, c'est des minutes.

Pour les références de champs, j'ai pris des noms explicites pour moi mais au final très complexe, je l'avoue ..

Sinon, j'ai réfléchi à une autre solution : créer un autre champ (Numéro) que l'on remplis en format numérique à 2 caractères et pour Réf1, faire :
[Réf1].value = [code].value + "0" + [Numéro]
Faire la même chose pour Réf2.
Ca semble être une bonne solution d'après vous?

[Flyoss]

Ca fait 2 mois que j'utilise access et pourtant je peux déja dire :
"(presque) TOUT est possible, (presque) TOUT est réalisable"
Tout dépend de l'ergonomie, de la présentation que tu veux avoir

Tu peux

- Avoir 3 champs [c0de] [ref1] [ref2] avec des inputbox sur évenement choisis (boutons, getfocus, lostfocus) A savoir que l'input box prend le focus donc du coup, pas besoin de la souris, ça reste relativement ergonomique)

- Avoir 5 champs [c0de] [supplement1] [ref1] [supplement2] [ref2] : tu remplis le code et les suppléments et ça te remplit les refs

- Avoir 3 champs [c0de] [supplement1] [supplement2] : bien collés côte-à-côte et ça affiche (a peu pres) tes références.

- ...


En fait je pense qu'il faut surtout savoir ce que tu veux avoir a l'écran, et ensuite, VB est la pour le faire

PS: Concatène avec des Esperluettes (str1 + str2 => str1 & str2)

[DevilTom]

ça fait une semaine que j'utilise (vraiment) access et j'ai appris avec des forums comme celui ci. Et j'y suis pas encore au top niveau

Pour la ref1 (ouais on va simplifié), la inputbox a fait son succès pour les techniciens de chantier.
Par contre pour la ref2, on a décider de compliquer beaucoup plus au final ... Et comme tu a l'air doué, j'aimerai bien avoir tes conseils, sans trop profiter

Le champs ref2 est dans un sous formulaire (sur le même form). La saisie d'un nombre se fera uniquement si on clique sur le champ.

En gros, ref1 affiche AA001. Ref2 affiche donc AA001_ si on ne clique pas sur le champ (avoir une valeur par défaut en affichage). Et si on clique, sur l'évènement Click, j'envoie la input box.

Donc, j'ai essayé d'appliquer un AfterUpdate sur le champ ref1 en indiquant que ref2 aurait la valeur de défaut.

En gros :
Forms.New.NewSF.Form.[Ref2].Value = [Ref1].Value & "_" & InputBox("Numéro :")
New étant le formulaire de base et NewSF, son sous formulaire.
Mais ... le champ ref2 se remplit pas !

Donc si tu voit ce que je veux dire, tu aurait une soluce?

Ps : j'ai pas compris ton ps ... tu voulais dire ref1 & ref2 => str1 & str2, non?

[Flyoss]

Hum...
Peut-être que "afterUpdate" n'est pas vraiment le bon évènement.
Tu pourrais peut^-être essayer un OnChange ou un OnDirty.
J'ai encore un peu de mal a bien comprendre la subtiité de chaque évènement, je tatonne
Le LostFocus peut aussi être une solution dans certains formulaires....