Alimentation auto de texbox

amram.a Messages postés 58 Statut Membre -  
f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   -
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

2 réponses

Réponse 1 / 2
f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 715
 
Bonjour,

une référence automatique soit attribuée dans TextBox27
Certes, mais en partant de quoi?
0
amram.a Messages postés 58 Statut Membre
 
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 58 Statut Membre
  
TextBox27 = "01CIV-" & Format(Val(Max + 1), "0000") & Format(Now(), "-yy")
0
f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 715
 
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

court circuit LNB " apparaît.
Yasmine -
Anonyme -

2 réponses
Connaitre la puissance de son Alim ?
vds6t -
epango -

14 réponses
savoir son Alim sans ouvrir son PC?
Bout -
nadellen -

1 réponse
surcharge du circuit LNB
alain -
Andy31200 -

1 réponse
Court circuit LNB
adeline -
Lechatauxgrosyeux -

9 réponses