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 17215 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 26 décembre 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:

Alimentation auto de texbox
Telecharger auto refresh - Télécharger - Divers Web & Internet
Ventilateur alimentation pc ne tourne pas ✓ - Forum Refroidissement
Auto mouse click - Télécharger - Divers Utilitaires
Aucune option d'alimentation n'est actuellement disponible - Guide
Calculateur alimentation pc - Guide

2 réponses

Réponse 1 / 2

f894009 Messages postés 17215 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 26 décembre 2024 1 711
18 avril 2017 à 07:24

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 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

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")

f894009 Messages postés 17215 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 26 décembre 2024 1 711
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

Discussions similaires

court circuit LNB " apparaît.

Connaitre la puissance de son Alim ?

Voyant d'alimentation pc clignote (blanc)

Langue dans Android auto

Court circuit LNB