Sujet Précédent Sujet Suivant

Alimentation auto de texbox

Fermé
amram.a Messages postés 56 Date d'inscription dimanche 19 mars 2017 Statut Membre Dernière intervention 19 avril 2017 - 17 avril 2017 à 16:41
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 20 avril 2017 à 09:40
bonjour le forum

SVP,
J'ai un USF qui me permet d'alimenter un tableau. Je souhaiterais qu'à chaque utilisation une référence automatique soit attribuée dans TextBox27 mais avec un format spécifique.


Exemple: (01CIV0001) ainsi de suite

merci à touts
A voir également:

2 réponses

Réponse 1 / 2
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
18 avril 2017 à 07:24
Bonjour,

une référence automatique soit attribuée dans TextBox27
Certes, mais en partant de quoi?
0
amram.a Messages postés 56 Date d'inscription dimanche 19 mars 2017 Statut Membre Dernière intervention 19 avril 2017
18 avril 2017 à 12:47
merci f894009 de te penché sur mon sujet


je veux qu'a chaque identification, le numéro change avec la suite de la dernière identification.

voilà le code que j'ai inscris 

Private sub UserForm_Activate()
 'Date et heure
Label75.Caption = "Le : " & Format(Now(), "dd mmmm yyyy") & "  il est : " & Format(Now(), "hh : mm: ss")

TextBox1.Value = Format(Now, "dd/mm/yyyy")
TextBox27.Value = Format(Val(Max + 1), "01CIV000")

End Sub



soit (01CIV001-2017) ; (01CIV002-2017) ; (01CIV003-2017) ainsi de suite

merci de m'aidé

voir pièce jointe]

https://www.cjoint.com/c/GDskSzBMiNr
0
Réponse 2 / 2
amram.a Messages postés 56 Date d'inscription dimanche 19 mars 2017 Statut Membre Dernière intervention 19 avril 2017
19 avril 2017 à 18:45 
TextBox27 = "01CIV-" & Format(Val(Max + 1), "0000") & Format(Now(), "-yy")
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
Modifié le 20 avril 2017 à 09:44
Bonjour, 

TextBox27 = "01CIV-" & Format(Val(Max + 1), "0000") & Format(Now(), "-yy")

A supposer que Max existe, pour l'annee sur 4 chiffres: 
 Format(Now(), "-yyyy")

De toute facon il faudra lire le contenu de le colonne N° MATRICULE pour trouver le dernier enregistrement
0

Discussions similaires

Connaitre la puissance de son Alim ?
vds6t -
epango -

14 réponses
Court circuit LNB
adeline -
Lechatauxgrosyeux -

9 réponses
court circuit LNB " apparaît.
Yasmine -
Anonyme -

2 réponses
ventilateur de l'alimentation ne tourne pas
vin110 -
Titi -

6 réponses
Problème logitech g29
Ulfurinn -
Ulfurinn -

3 réponses