Discussion :

[escobar]

bonjour,
je cherche a faire un numero special

a vrai dire j ai un champs personneid qui est un zone de liste qui par une requette recupere le nom et prenom d'une personne
j 'ai un champ date.

je voudrais que sur ce champ il apparaise donc le numerospecial : 1ere lettre du prenom_année/mois_puis un numero qui s'incremente(lorsquel'on change de mois, le numero revient a zero.
je sais pas si cela est tres possible car en ce moment j'ai une zone de texte avec un masque >C\_00/00\_00;0;_ et pour s'y retrouver au numero c'est pas la joie pour les utilisateurs, bien que j ai mis au dessus une zone de liste avec tout les numero speciaux rentrer..

bref tout ceci pour automatiser c numero...
merci si qq a une idée

[LedZeppII]

Bonjour,

J'ai bien une petite idée à l'aide d'une fonction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Public Function IncrNum(LeftPart As String)
Dim Num As Variant

Num = DMax("numerospecial", "LaTable", "numerospecial like '" & LeftPart & "*'")
If IsNull(Num) Then
   Num = LeftPart & "01"
Else
   Num = LeftPart & Format(Mid(Num, Len(LeftPart) + 1, 2) + 1, "00")
End If
IncrNum = Num
End Function

Tu appelles la fonction comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
=IncrNum(Left([Prenom],1) & "_" & Format(Now(), "yy\/mm") & "_")

Par contre ça ne marche pas si deux personnes ont un prénom commençant par la même lettre.

Bon courage

[escobar]

une question ta fonction tu l'appelle ou sur ton source de controle???
et numerospecial que tu indique, cela est le nom de champ n'est ce pas

sinon en essayant de mettre =IncrNum(Left([Vorname],1) & "_" & Format(Now(), "yy\/mm") & "_") sur le source de controle, impossible, meme si je met uniquement = IncrNum()

donc je me demande ou tu appelle la fonction ds le champs

[LedZeppII]

Bonjour,

Oui, numerospecial est bien le nom du champ.
La fonction recherche la dernière valeur de numerospecial dans la table LaTable.

Désolé si je t'ai induit en erreur.
Je voulais surtout montrer le fait qu'on appelle la fonction avec une chaîne de la forme "X_00/00_".

Le contrôle étant lié à un champ d'une table (je pense), il n'est pas souhaitable de mettre la fonction dans la source du contrôle.
Je crois que le plus simple est de mettre ça dans le code d'un évènement Formulaire, bouton, ou autre ....

Bon courage.