Bienvenue! Identification Créer un nouveau profil

Recherche avancée

Numérotation personnalisée

06/07/17 15:53
Bonjour à tous!

je suis tombé sous le charme de ce forum qui m'aide énormément dans mes recherches et développements. J'aimerais aussi apporter mes modestes contributions.

J'ai lu ce sujet concernant la numérotation personnalisée et j'aimerais si ce code peut s'appliquer sur un formulaire INDEPENDANT[color=#FF0000][/color]
Langage: Visual Basic
Private Sub Form_BeforeUpdate(Cancel As Integer) Dim strCode As String Dim strPrefixe As String   ' Vérifier que le nom et le prénom ' sont renseignés, puisqu'ils servent ' dans le préfixe de numérotation If IsNull(Me.Nom) Or IsNull(Me.Prénom) Then MsgBox "Le nom et le prénom doivent être renseignés !", vbExclamation Cancel = True Exit Sub End If   ' Préfixe à utiliser pour la numérotation strPrefixe = UCase(Left(Me.Nom, 3) & Left(Me.Prénom, 3))   ' Numérotation If IsNull(Me.Id) Then Me.Id = AutoNumber("tbl Personnes", "Id", strPrefixe, 3) End If End Sub

Merci pour vos différentes contributions
SujetAuteurEnvoyé le

Numérotation personnalisée

kinguepat06/07/17 15:53

Seuls les utilisateurs enregistrés peuvent poster des messages dans ce forum.

Cliquez ici pour vous connecter