Si votre email correspond à un compte, vous recevrez un lien de réinitialisation.
bonjour à tous,Mon Numéros d'avoir se compose de la manière suivante CAVnnn les nnn sontdes Valeurs Numérique exemple CAV007Pour fact et commande j'utilise la Numérotation automatique par +1 mais jen'ai que du numériquePrivate Sub Form_BeforeInsert(Cancel As Integer)' Mettre au niveau du formulaire sur avant ouverture procedure evémentiel' Me![N° Fact] = DMax("[N° Fact]", "[Rq Clients Fact Entete]") + 1End SubComment faire simplement l'extraction du plus grand N° et de faire + 1--Amicalement et merci
bonjour à tous, Mon Numéros d'avoir se compose de la manière suivante CAVnnn les nnn sont des Valeurs Numérique exemple CAV007 Pour fact et commande j'utilise la Numérotation automatique par +1 mais je n'ai que du numérique Private Sub Form_BeforeInsert(Cancel As Integer) ' Mettre au niveau du formulaire sur avant ouverture procedure evémentiel ' Me![N° Fact] = DMax("[N° Fact]", "[Rq Clients Fact Entete]") + 1 End Sub Comment faire simplement l'extraction du plus grand N° et de faire + 1 -- Amicalement et merci
Bonjour,Une proposition pour une partie numérique sur 3 chiffresDebug.Print DMax("Numero", "Table1") 'La valeur MaxDebug.Print Right(DMax("Numero", "Table1"), 3) 'La partie numériqueDebug.Print Right(DMax("Numero", "Table1"), 3) + 1 'La partie numérique +1Debug.Print Right("000" & Right(DMax("Numero", "Table1"), 3) + 1, 3) 'Lapartie numérique +1 avec des zéros devantDebug.Print "CAV" & Right("000" & Right(DMax("Numero", "Table1"), 3) + 1, 3)'Le résultat finalPas très élégant mais ça fonctionne.Gilbert"Guy BRUSSON" <BGUY> a écrit dans le message denews:bonjour à tous,Mon Numéros d'avoir se compose de la manière suivante CAVnnn les nnn sontdes Valeurs Numérique exemple CAV007Pour fact et commande j'utilise la Numérotation automatique par +1 mais jen'ai que du numériquePrivate Sub Form_BeforeInsert(Cancel As Integer)' Mettre au niveau du formulaire sur avant ouverture procedure evémentiel' Me![N° Fact] = DMax("[N° Fact]", "[Rq Clients Fact Entete]") + 1End SubComment faire simplement l'extraction du plus grand N° et de faire + 1--Amicalement et merci
Bonjour, Une proposition pour une partie numérique sur 3 chiffres Debug.Print DMax("Numero", "Table1") 'La valeur Max Debug.Print Right(DMax("Numero", "Table1"), 3) 'La partie numérique Debug.Print Right(DMax("Numero", "Table1"), 3) + 1 'La partie numérique +1 Debug.Print Right("000" & Right(DMax("Numero", "Table1"), 3) + 1, 3) 'La partie numérique +1 avec des zéros devant Debug.Print "CAV" & Right("000" & Right(DMax("Numero", "Table1"), 3) + 1, 3) 'Le résultat final Pas très élégant mais ça fonctionne. Gilbert "Guy BRUSSON" <BGUY> a écrit dans le message de news:34654CE1-2287-4E06-B4A1-E5D443B3B4E0@microsoft.com... bonjour à tous, Mon Numéros d'avoir se compose de la manière suivante CAVnnn les nnn sont des Valeurs Numérique exemple CAV007 Pour fact et commande j'utilise la Numérotation automatique par +1 mais je n'ai que du numérique Private Sub Form_BeforeInsert(Cancel As Integer) ' Mettre au niveau du formulaire sur avant ouverture procedure evémentiel ' Me![N° Fact] = DMax("[N° Fact]", "[Rq Clients Fact Entete]") + 1 End Sub Comment faire simplement l'extraction du plus grand N° et de faire + 1 -- Amicalement et merci
