[TUTO ]Numérotation personnalisée

**Rifton007** · 27/02/2013, 22h59

Bonjour et merci d'avance pour votre aide.

J'essaie de suivre le tuto disponible ici
http://warin.developpez.com/tutoriel...s/numauto2010/

Mais je ne parviens pas à m y retrouver sur Access.

J'ajoute un champ numérot "indice"
J'ajoute un champ calculé NumeroFacture avec l'expression donné dans le tuto
Par contre je ne sais pas où se trouve ValidateChange ou encore LookUpRecord
Aussi, dois-je crée une requête qryNouvelIndice ou cela doit se trouver dans un code ?

Merci pour votre aide.

**f-leb** · 28/02/2013, 10h19

bonjour Rifton007,

Envoyé par Christophe Warin

A la date de publication de ce tutoriel, la fonction Format n'est pas disponible dans les évènements de table. Impossible de savoir ce qu'il en sera dans la version finale prévue au printemps 2010.

le tutoriel a été rédigé sur une préversion non francisée d'Access 2010, il est donc normal d'y trouver quelques écarts.

Je suppose que pour l'évènement ValidateChange, il faut maintenant chercher du côté de la macro de données Avant modification (version française).

pour LookUpRecord, ce sera maintenant RechercherEnregistrement, pour SetLocalVar, DéfinirValLocale, etc.

Aussi, dois-je crée une requête qryNouvelIndice ou cela doit se trouver dans un code ?

qryNouvelIndice est une simple requête enregistrée.

**Rifton007** · 01/03/2013, 00h23

Merci f-leb,

C'était nullement une critique et je ne met aucunement en doute la valeur de ce tuto qui est au passage excellent. Et j'avais bien lu que ce tuto date d'avant la sortie officiel. Mais j'avais beau chercher sur le net, je ne trouvais pas l'équivalent en français.

Au passage, c'est vraiment pas pratique cette idée de Microsoft de traduire le code en français.

Enfin, grâce à ton aide précieuse, j'y suis parvenu.
Chaque mois, l'indice commence bien par 1.
Mais je n'ai pas l’incrémentation de l'indice pour les factures du même mois.

Voici mon macro

Par contre je n'ai pas reussi à mettre

Code :

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

if [isInsert]

L'équivalent sur MSDN, c'est EstInserer, mais Access ne le reconnais pas.

Encore merci,

**rjamin** · 01/03/2013, 10h46

Bonjour,
Une proposition par un exemple de la composition du n° de facture

**f-leb** · 01/03/2013, 11h26

Bonjour,

Envoyé par Rifton007

Au passage, c'est vraiment pas pratique cette idée de Microsoft de traduire le code en français.

entièrement d'accord avec toi

La traduction en français de If [IsInsert] = True Then est :

Code :

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

Si [Insertion]=Vrai Alors

Apparemment dans ton code, à l'intérieur de Rechercher un enregistrement, il manque un :

Code :

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

DéfinirVarLocale(vIndice ; Nz(NouvelIndice,1))

**Rifton007** · 01/03/2013, 13h14

Magnifique, ça fonctionne

Merci pour ta contribution rjamin, c'est justement ce dontj'ai besoin pour mieux comprendre les rouages d'Access.

Merci à vous deux encore, je vous souhaite une agréable journée ;-)

**Rifton007** · 03/03/2013, 19h58

Rebonjour,

Je me suis permis de relancer le sujet, car j'ai un petit problème pour le formulaire.
Tout fonctionne, aucun message d'erreur.

Par contre quand j'introduit un nouvelle enregistrement.
J'obtient F001, jusque là tout va bien.
Mais quand j'introduit la date, l'indice reste à 1.
C'est en finalisant l'enregistrement que j'obtient toujours le message:
"Une autre saisie a été traitée avant la vôtre, le numéro de votre facture ..."
Et tout rentre dans l'ordre, les numéro de factures sont bien incrémenter dans la bases de données.

Pour vérifier, j'ai crée un nouvelle enregistrement dans la bases de donnée en mode feuille dans Access. Et la l’incrémentation fonctionne bien, pas de soucis.

Sans erreur je ne parviens pas à déterminer le source du problème.

txtNumFacture

Code :

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

1
2
3
4
 
=VraiFaux([NewRecord];"FA" & Format(Nz([stratProject]);"aamm") &
Format(Nz(MaxDom("indice";"invoice";"Format([stratProject],""aamm"")=" 
& Car(34) & Format(Nz([txt_beginDate]);"aamm") & Car(34))+1;1);"000");[id_reference])

VBA

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
Option Compare Database
Option Explicit
 
Dim vNumFacture As String
 
 
 
Private Sub Form_BeforeUpdate(Cancel As Integer)
  'Stocke le numéro de facture avant enregistrement
  vNumFacture = Me.txt_beginDate
End Sub
Private Sub form_AfterUpdate()
  'Compare le numéro actuel avec celui sauvegardé avant l'update
  If vNumFacture <> Me.txtNumFacture Then
    MsgBox "Une autre saisie a été traitée avant la vôtre, le numéro de votre facture a été modifié : " & _
      Me.txtNumFacture
 
 
  End If
End Sub
 
Private Sub cmdValider_Click()
Me.Refresh
End Sub

Merci à vous.

**f-leb** · 04/03/2013, 22h24

Rebonsoir,

ligne 11:

Code :

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

vNumFacture = Me.txt_beginDate

ce ne serait pas plutôt :

Code :

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

 vNumFacture = Me.txtNumFacture

??

**Rifton007** · 04/03/2013, 23h39

Effectivement c'était une erreur de ma part.
Mais le problème persiste.

J'ai mis cela juste avant la ligne 11

Code :

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

1
2
 
 MsgBox (Me.txtNumFacture & "/" & vNumFacture)

Et chaque tentative: FA130300X/FA1303001
X étant toujours le dernières indice.

Et dans la ligne 15 on a

Code :

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

1
2
3
4
 
 If vNumFacture <> Me.txtNumFacture Then
    MsgBox "Une autre saisie a été traitée avant la vôtre, le numéro de votre facture a été modifié : " & _
      Me.txtNumFacture

Hors cette condition est toujours vrai, ça serait pas plus tot "if not" ???

**rjamin** · 05/03/2013, 14h38

Bonjour,

Vous écrivez

Hors cette condition est toujours vrai, ça serait pas plus tot "if not" ???

Je crois que vNumFacture est une valeur numérique et que Me.txtNumFacture est une valeur String donc le test logique donne toujours Vrai. Essayez en mettant

Code :

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

1
2
 
If vNumFacture <> Val(txtNumFacture) then

pour voir.

**Rifton007** · 05/03/2013, 16h52

Comme déclaré dans le tutorial, vNumFacture est un string.

Code :

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

1
2
 
Dim vNumFacture As String

**f-leb** · 05/03/2013, 18h15

à la lecture du message :

Envoyé par Rifton007

C'est en finalisant l'enregistrement que j'obtiens toujours le message:
"Une autre saisie a été traitée avant la vôtre, le numéro de votre facture ..."

je dirais qu'il doit y avoir un problème dans l'évaluation de txtNumFacture même si je ne l'ai pas identifié :

Code :

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

1
2
3
=VraiFaux([NewRecord];"FA" & Format(Nz([stratProject]);"aamm") &
Format(Nz(MaxDom("indice";"invoice";"Format([stratProject],""aamm"")=" 
& Car(34) & Format(Nz([txt_beginDate]);"aamm") & Car(34))+1;1);"000");[id_reference])

Essaie d'évaluer les termes de l'expression séparément:

Code :

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

 =Format(Nz([stratProject]);"aamm")

Code :

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

=Format(Nz([txt_beginDate]);"aamm")

puis voir ce que donne:

Code :

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

1
2
=Format(Nz(MaxDom("indice";"invoice";"Format([stratProject],""aamm"")=" 
& Car(34) & Format(Nz([txt_beginDate]);"aamm") & Car(34))+1;1);"000")

**Rifton007** · 05/03/2013, 18h48

Code :

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

1
2
=Format(Nz(MaxDom("indice";"invoice";"Format([stratProject],""aamm"")=" 
& Car(34) & Format(Nz([txt_beginDate]);"aamm") & Car(34))+1;1);"000")

j'obient: 001

Code :

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

=Format(Nz([txt_beginDate]);"aamm")

et

Code :

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

 =Format(Nz([stratProject]);"aamm")

j'obient: 1303[

**f-leb** · 05/03/2013, 19h00

Envoyé par Rifton007

j'obient: 001

et donc ? Cela te semble-t-il normal ?? (je n'ai ni le formulaire ni le contenu de la table sous les yeux)

Apparemment il n'y a pas encore d'enregistrements pour 1303. Que se passe-t-il si tu crées quelques factures directement dans les tables. Tu as bien 002, 003 etc ensuite dans le formulaire ?

Il faudrait au moins essayer de trouver l'endroit où ça cloche.

**Rifton007** · 05/03/2013, 19h51

Normal, je sais pas.

Je dirais "non", car à mon sens il devrais affecté l'indice le plus haut
Oui, car comme expliqué dans le tuto, il commence par "001" et puis affecté le bon indice.

Dans ma table pas de problème.

http://www.innovadesign.be/privat/Database1.rar
Le formulaire en question est frm_invoice.
Merci à toi.

[TUTO ]Numérotation personnalisée

Access

Discussions similaires

Partager

Partager