Alimentation auto de texbox

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

Afficher la suite

A voir également:

Alimentation auto de texbox
Ciel auto entrepreneur - Télécharger - Comptabilité & Facturation
Hp voyant alimentation clignote blanc - Forum Matériel & Système
Connaitre son alimentation pc ✓ - Forum Alimentation PC
Comment connaitre la puissance de mon alim ? - Forum Matériel & Système
Auto nettoyage ps4 slim - Forum PS4

2 réponses

Réponse 1 / 2

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

Bonjour,

une référence automatique soit attribuée dans TextBox27
Certes, mais en partant de quoi?

amram.a Messages postés 56 Date d'inscription Statut Membre Dernière intervention

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

Réponse 2 / 2

amram.a Messages postés 56 Date d'inscription Statut Membre Dernière intervention

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

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

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

Discussions similaires

court circuit LNB " apparaît.

Connaitre la puissance de son Alim ?

savoir son Alim sans ouvrir son PC?

surcharge du circuit LNB

ventilateur de l'alimentation ne tourne pas

Votre réponse

Discussions similaires