Masque De Saisie Tres Special

[jo001]

Bonjour a tous,

Je réalise en ce moment une application de gestion finaciere sous access pour profession libérale.

Le probleme est que pour continuer la comptabilité qui à été faite avant je doit créer un masque de saisie pour mon numéro de facture qui correspond au modèle suivant :
(YY-MM-Num)
Explications: YY correspond aux 2 derniers chiffres de l'année (ex:07)
MM correspond au nombre du mois
Num est un nombre automatique qui commencera a partir de la valeur 200

Si quelqu'un a une solution a m'offrir il est le bienvenu !
MERCI D'AVANCE

[Dolphy35]

Salut

pour ce qui est du masque de saisie tu dois avoir quelque dans ce style :

00-00-000

ensuite pour ce qui est de l'année-mois-numéro, c'est à l'utilisateur de renseigné celà ou c'est l'appli qui génère.

Dolphy

[jo001]

C'est justement ce que je voudrais:
l'application doit générer le numéro de facture de façon automatique en respectant le masque de saisie...

J'arrive pas a trouver on m'a parler de faire un 'GET' ou je sais pas quoi???

En plus Microsoft aime bien faire ses trucs a sa façon donc je sais meme pas quelle synthaxe utiliser ?

[Herman]

- Pour l'année en cours : Year(now)
- Pour le nombre de mois, c'est bien le NOMBRE de mois ? ou le numéro du mois en cours ? Si c'est le numéro du mois en cours, c'est : Month(now)
- pour le 200, tu peux récupérer les 3 derniers chiffres de droite de l'enregistrement précédent, et les incrémenter de 1 à chaque fois.

[jo001]

nan ca marche pas !

[javelot69]

Bonjour,

Ce ne serait peut-être pas un inconvénient de scinder ton n° de facture en 2 parties et d'accoler tes zones de texte de telle manière que cela ne se voit pas.

Bonne journée.

[Dolphy35]

Salut,

Envoyé par javelot69

Bonjour,

Ce ne serait peut-être pas un inconvénient de scinder ton n° de facture en 2 parties et d'accoler tes zones de texte de telle manière que cela ne se voit pas.

Bonne journée.

je ne pense que cela soit la meilleure solution, car ensuite si il veut faire des recherches par N° Facture.

@ jo001 Petite question :
Le numéro commence à 200 et s'incrémente à chaque nouvelle fecture ou il se réinitialise à chaque nouveau mois ?

Dolphy

[javelot69]

Dolphy a écrit :
je ne pense que cela soit la meilleure solution, car ensuite si il veut faire des recherches par N° Facture.

Exact Dolphy, je n'y ai pas pensé

La recherche serait faisable mais plus complexe. Pas de meilleure idée à suggérer pour le moment.

[mout1234]

Bonjour,

Je pense que le plus simple est de créer une fonction en VBA pour générer tes nouveaux codes, comme ci-dessous (non testé)

Code VBA :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Function ap_NewNum() As String
On Error Resume Next
 
    Dim sRacine As String
    Dim lngNum As String
 
    Const cstInit As Long = 199
 
    sRacine = Format$(Date, "YY-MM")
    lngNum = Nz(DMax("CLng(Mid(NumFacture,7))", "tblFactures", "Left(NumFacture,5)='" & sRacine & "'"), cstInit)
 
    ap_NewNum = sRacine & "-" & CStr(lngNum + 1)
 
 
End Function

[jo001]

A chaque nouvelle facture on augmente d'1
Il n'y a pas de retour a 0 chaque mois

[jo001]

Pour le code en VB ca ne marche pas

[jo001]

Bon rien de s'arrange

1. J'ai créer un module 'ModuleNumFactures' avec la fonction suivante :
   
   Code :

   1
   2
   3
   4
   5
   6
   7
   8
   9
   10
   11
   12
   13
   14
   Function ap_NewNum() As String
   On Error Resume Next
    
       Dim sRacine As String
       Dim lngNum As String
    
       Const cstInit As Long = 199
    
       sRacine = Format$(Date, "YY-MM")
       lngNum = cstInit
    
       ap_NewNum = sRacine & "-" & CStr(lngNum + 1)
    
   End Function

2. Ensuite je voudrait attribuer au champ 'NumFact' de mon formulaire la valeur de la fonction crée dans le module
3. J'ai testé la fonction elle marche !
4. SVP COMMENT ATTRIBUER LA VALEUR DE LA FONCTION A MON CHAMP ?????

______________________________________________________________
j'deviens débile
______________________________________________________________

[mout1234]

Envoyé par jo001

J'ai testé la fonction elle marche !

En es-tu sur? tel quel, elle retourne toujours 200 comme numéro!

Envoyé par jo001

COMMENT ATTRIBUER LA VALEUR DE LA FONCTION A MON CHAMP ?????

Simplement par une affectation à ton champ, sur avant MAJ de ton form par exemple

Code :

1
2
3
If IsNull(Me!NumFacture) then
     Me!NumFacture=ap_NewNum()
end if