Discussion :

[morobaboumar]

Salut membres du forum!
Je suis intéressé par le tutoriel de Christophe WARIN: https://warin.developpez.com/tutorie...s/numauto2010/
"Numérotation personnalisée des enregistrements dans Access 2010".
Je souhaiterais savoir plus de détails concernant la réalisation des formulaires "TblClient" et "TblFacture",
ensuite connaître les différents Evénements d'où doit on placer les codes.
Franchement, je ne comprends pas bien les explications du tutoriel en question.

Cordialement.

[marot_r]

Bonjour.

Franchement, je ne comprends pas bien les explications du tutoriel en question.

Peux-tu indiquer les points en particulier qui te posent un probleme ?

A+

[morobaboumar]

Bonsoir Membres du forum!
1°) Doit on créer des formulaires "TblClient" et "TblFacture" chacun,
ou un formulaire indépendant dans lequel les deux tables sont représentées ?
Voir image:
2°) l'évènement ValidateChange correspond à quel événement de quel formulaire ?
3°) le champ txtNumFacture doit etre placé où ?
4°) les codes suivants:

Code :

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

1
2
3
4
"FA" &
Right$(Year([DateFacture]);2) &
String$(2-Len(Month([DateFacture]));"0") & Month([DateFacture]) & String$(3-Len([Indice]);"0") &
[Indice]

Code :

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

1
2
3
SELECT Max(Indice)+1 AS NOUVELINDICE, Year(DateFacture) AS ANNEE, Month(DateFacture) AS MOIS
FROM TblFacture
GROUP BY Year(DateFacture), Month(DateFacture);

Code :

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

1
2
3
4
5
6
SetLocalVar (VIndice;1)
LookUp A Record In qryNouvelIndice
WHERE [ANNEE]=Year([tblFacture].[DateFacture]) AND [MOIS]=Month([tblFacture].[DateFacture])
ALIAS record
SetLocalVar(vIndice;Nz(NouvelIndice,1))
SetField ([Indice];[vIndice]

Code :

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

1
2
3
4
5
6
7
8
9
If [IsInsert] Then
SetLocalVar (VIndice;1)
LookUp A Record In qryNouvelIndice
WHERE [ANNEE]=Year([tblFacture].[DateFacture]) AND
[MOIS]=Month([tblFacture].[DateFacture])
ALIAS record
SetLocalVar(vIndice;Nz(NouvelIndice,1))
SetField ([Indice];[vIndice])
End If

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
=IIf(
[NewRecord];
"FA" &
Format(Nz([DateFacture]);"yymm") &
Format(
Nz
(
DMax(
"Indice";
"tblFacture";
"Format([DateFacture],""yymm"")=" & Chr(34) & Format(Nz([txtDateFacture]);"yymm") & Chr(34)
)+1;
1
);
"000"
);
[NumeroFacture])

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
If [IsInsert] Then
SetLocalVar (VIndice;1)
LookUp A Record In tblIndiceFacture
WHERE [ANNEE]=Year([tblFacture].[DateFacture]) AND
[MOIS]=Month([tblFacture].[DateFacture])
ALIAS record
If (IsNUll([Indice]) Then
SetLocalVar([vIndice];1)
Else
SetLocalVar([vIndice];[Indice]+1)
End If
SetField ([Indice];[vIndice])
End If

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
Look Up A Record In tblIndiceFacture
Where [ANNE]=Year([tblFacture].[DateFacture])
AND [Mois]=Month([tblFacture].[DateFacture])
Alias record
If IsNull([Indice]) Then
Create a Record In tblIndiceFacture
Alias rec_NouvelIndice
SetField(Annee;Year([tblFacture].[DateFacture]))
SetField(Mois;Month([tblFacture].[DateFacture]))
SetField(Indice;1)
Else
Edit Record
Alias record
SetField(Indice;Indice+1)
End If

sont placés dans quels événements ?
Mon objectif est de comprendre le fonctionnement des leçons publiées à partir de www.developpez.net
et être capable de les appliquer.
- Pièce jointe
Merci infiniment pour tout.
Cordialement

[hyperion13]

Salut,
Le tuto auquel vous faites référence évoque les DataMacro.
Pour en savoir un peu plus ici ou là

[marot_r]

Bonsoir Membres du forum!
1°) Doit on créer des formulaires "TblClient" et "TblFacture" chacun,
ou un formulaire indépendant dans lequel les deux tables sont représentées ?
Voir image:

Je pense que c'est un formulaire base sur la table des factures qui affiche (par jointure probablement) les informations du client en function du numero choisi.

2°) l'évènement ValidateChange correspond à quel événement de quel formulaire ?

ValidateChange n'est pas un evenment, c'est probablement une sub ou une function ecrite par l'auteur.

3°) le champ txtNumFacture doit etre placé où ?

Sur le formulaire facture.

4°) les codes suivants:

Code :

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

1
2
3
4
"FA" &
Right$(Year([DateFacture]);2) &
String$(2-Len(Month([DateFacture]));"0") & Month([DateFacture]) & String$(3-Len([Indice]);"0") &
[Indice]

Calcule le numero personalise compose de l'annee sur 2 chiffres, du mois sur 2 chiffres et d'un indice sur 3 chiffres.
On aurait pu faire plus simple en utilisant Format("yyyy\-mm", [DateFacture]) & Format("000", [Indice]).

Code :

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

1
2
3
SELECT Max(Indice)+1 AS NOUVELINDICE, Year(DateFacture) AS ANNEE, Month(DateFacture) AS MOIS
FROM TblFacture
GROUP BY Year(DateFacture), Month(DateFacture);

Trouve le prochain numero du mois et de l'annee.

Je te reviens pour la suite.

A+

[marot_r]

Code :

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

1
2
3
4
5
6
SetLocalVar (VIndice;1)
LookUp A Record In qryNouvelIndice
WHERE [ANNEE]=Year([tblFacture].[DateFacture]) AND [MOIS]=Month([tblFacture].[DateFacture])
ALIAS record
SetLocalVar(vIndice;Nz(NouvelIndice,1))
SetField ([Indice];[vIndice]

Ce doit etre une macro de donnees.
Cela assigne le nouvel indice dans le champ de la table.
Probablement appele au moment de l'insertion.

Code :

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

1
2
3
4
5
6
7
8
9
If [IsInsert] Then
SetLocalVar (VIndice;1)
LookUp A Record In qryNouvelIndice
WHERE [ANNEE]=Year([tblFacture].[DateFacture]) AND
[MOIS]=Month([tblFacture].[DateFacture])
ALIAS record
SetLocalVar(vIndice;Nz(NouvelIndice,1))
SetField ([Indice];[vIndice])
End If

Ce doit etre une macro de donnees.
C'est un "enrobage" du code precedent associe a l'insertion.

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
=IIf(
[NewRecord];
"FA" &
Format(Nz([DateFacture]);"yymm") &
Format(
Nz
(
DMax(
"Indice";
"tblFacture";
"Format([DateFacture],""yymm"")=" & Chr(34) & Format(Nz([txtDateFacture]);"yymm") & Chr(34)
)+1;
1
);
"000"
);
[NumeroFacture])

Calcule un numero "probale" de facture si on est sur un nouvel enregistrement ou affiche le numero courant.

A+

[marot_r]

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
Look Up A Record In tblIndiceFacture
Where [ANNE]=Year([tblFacture].[DateFacture])
AND [Mois]=Month([tblFacture].[DateFacture])
Alias record
If IsNull([Indice]) Then
Create a Record In tblIndiceFacture
Alias rec_NouvelIndice
SetField(Annee;Year([tblFacture].[DateFacture]))
SetField(Mois;Month([tblFacture].[DateFacture]))
SetField(Indice;1)
Else
Edit Record
Alias record
SetField(Indice;Indice+1)
End If

Encore une macro de donnees

Calcule l'indice mensuel et cree un enregistrement si il n'existe pas d'indice pour le mois et l'annee.


Les macros de donnees se font au niveau des tables elles-meme.

A+

[morobaboumar]

Bonjour membres du forum !
J'aimerais savoir si:
- le cadre Client entouré en bleu est il un contrôle groupe d'options ?
- le contrôle entouré en rouge est il une zone de liste déroulante ?
Voir image:

Pourriez vous m'aider en expliquant pas à pas la création des différentes macros (avec images) à l'appui se trouvant dans le tutoriel ?

enfin je vous signale que j'ai pris connaissance de la création des macros à partir des liens que m'a indiqué hyperion13:
https://support.office.com/fr-fr/art...d-f296ef834200 et https://support.office.com/fr-fr/art...8-9ff5f81eb7ff.

Franchement, je sollicite votre aide encore une fois pour me permettre à bien comprendre et les appliquer.

Cordialement.

[marot_r]

Bonjour.

Bonjour membres du forum !
J'aimerais savoir si:
- le cadre Client entouré en bleu est il un contrôle groupe d'options ?
- le contrôle entouré en rouge est il une zone de liste déroulante ?
Voir image:

C'est problement un rectangle avec une etiquette pour afficher "Client".
Les groupes de donnees affichent habituellement des cases a cocher, des boutons radio ou des boutons bascule.

Pour l'autre controle entoure en rouge, comme il y a un triangle vers le bas a droite, c'est probablement une liste deroulante, basee sur la table des clients.
Et cela parait logique puisque pour la creation d'une facture il faut choisir un client.

Pour la partie "Macro de donnees", desole mais je ne peux pas aider.

A+

[morobaboumar]

Salut !
Merci infiniment, je continue la recherche de solution à mon problème.
Toutes mes reconnaissances pourr les coups de mains que vous m'apportez.
Cordialement

[hyperion13]

A priori ValidateChange correspond à l'évènement AvantModification dans les macros de données.
L'image en attache correspond au code dans de III-A. DataMacro // L'appel à la propriété IsInsert avant ...

EDI : 22:22 - III-C. Intérêt d'une table supplémentaire // Le code de l'évènement ValidateChange devient alors : ... ET Enfin, l'évènement de table AfterInsert se ...

[morobaboumar]

Salut membres du forum!
Voici ce que j'ai réussi à réaliser à partir de vos suggestions écrites et images;
voir la pièce jointe: - NumAuto2010 (je vous rappelle que je travaille avec la version 2013 d'Access)
Frm:"TblFacture"
Voir les images d'erreurs:: l'indicateur "Indice" est introuvable.

Cordialement.

[morobaboumar]

Salut !

L'interface de saisie d'une nouvelle facture sera identique à celle décrite pour Access 2007. Nous vous proposons de
nous attarder à la définition d'une stratégie permettant à l'utilisateur de visualiser le numéro du document en cours de
création. En effet, la tâche est plus complexe qu'il n'y parait. L'évènement de table étant déclenché après la validation
des données dans le formulaire, il est impossible d'afficher en temps réel l'indice calculé dans la DataMacro vue plus
haut. La mission va donc consister à présenter un numéro de facture probable et de le comparer en fin de traitement
avec celui effectivement inscrit dans la base de données.
Dans cette optique, un champ nommé txtNumFacture possédant l'expression suivante comme source peut suffire :

Pourriez vous, s'il vous plait m'indiquer où introduire le code suivant ?

Code :

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

=VraiFaux([NewRecord];"FA" & Format(Nz([DateFacture]);"""yy""mm") & Format([Nz](MaxDom("Indice";"tblFacture";"Format([DateFacture],""yymm"")=" & Car(34) & Format(Nz([txtDateFacture]);"""yy""mm") & Car(34))+1;1);"000");[NumeroFacture])

Cordialement.

[hyperion13]

Attention ! Dans le tuto de Warin vous avez un mix entre ce que l'on pourrait faire en vba et ce que l'on peut faire avec les macros de données.
Vous utilisez les 2 tout à la fois, donc forcément ça coince un peu.
Une solution imagée en version simplifiée. Recopiez l'image2 dans votre tblFacture. Supprimez la tblIndicefacture et la req qryNouvelIndice, elles ne servent plus à rien.
Dans votre form Facture :
- ne garder que la procédure sur click de votre bouton. Les autres à supprimer.
- supprimez les zones de texte txtnumfacture et indice, elles ne servent à rien.
- quel intérêt d'avoir 2 listes déroulantes client ?

[morobaboumar]

Bonsoir membres du forum!
J'ai opéré les changements tels que vous me les avez conseillés.
Voici les messagers d'erreur qui surviennent (voir images):




= pièce jointe à l'appui.

Cordialement!

[hyperion13]

Pourtant cela fonctionne parfaitement.
Votre erreur provient très certainement du code source de votre zone de texte txtNumfacture de votre post#13 (identificateur introuvable [NewRecord])
En pj, le fichier xml de la macro de données et la Sub pour l'importer dans votre tbl.

Code :

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

1
2
3
Sub ImportXml()
LoadFromText acTableDataMacro, "tblFacture", "C:\Users\......\tblFacture.xml"
End Sub

[morobaboumar]

Bonsoir membres du forum!

Attention ! Dans le tuto de Warin vous avez un mix entre ce que l'on pourrait faire en vba et ce que l'on peut faire avec les macros de données.
Vous utilisez les 2 tout à la fois, donc forcément ça coince un peu.
Une solution imagée en version simplifiée. Recopiez l'image2 dans votre tblFacture. Supprimez la tblIndicefacture et la req qryNouvelIndice, elles ne servent plus à rien.
Dans votre form Facture :
- ne garder que la procédure sur click de votre bouton. Les autres à supprimer.
- supprimez les zones de texte txtnumfacture et indice, elles ne servent à rien.
- quel intérêt d'avoir 2 listes déroulantes client ?

J'avais confondu les deux catégories de codage: VBA et Macro de données. Surtout j'ignorais comment faire le code
avec les macros de données.
Vos conseils et leçons je les ai bien comprises. J'espère mieux en connaître plus.
Code 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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Option Compare Database
Option Explicit
Dim vNumFacture As String
 
Private Sub CmdAjout_Nouveau_Client_Click()
On Error GoTo OUMAR
    Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = "Tbl_Client"
    DoCmd.OpenForm stDocName ', , , stLinkCriteria
Exit Sub
OUMAR:
    MsgBox Err.Description
 
End Sub
 
Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim oRst As DAO.Recordset
If Me.NewRecord Then
Set oRst = CurrentDb.OpenRecordset( _
"SELECT Max(Indice) FROM tblFacture WHERE Format(DateFacture,""yymm"")=" & _
Chr(34) & Format(Me.DateFacture, "yymm") & Chr(34))
With oRst
If Not .EOF Then
Me.Indice.Value = Nz(.Fields(0).Value, 0) + 1
'Essai d'Oumar pour voir si la ligne suivante de code marche:
Me.NumeroFacture = "FA" & Right$(Year([DateFacture]), 2) & String$(2 - Len(Month([DateFacture])), "0") & Month([DateFacture]) & String$(3 - Len([Indice]), "0") & [Indice]
Else
Me.Indice.Value = 1
'Essai d'Oumar pour voir si la ligne suivante de code marche:
Me.NumeroFacture = "AUCUNE FACTURE DISPONIBLE POUR LE MOMENT !"
End If
.Close
End With
End If
End Sub
 
 
Private Sub cmdValider_Click()
Me.Refresh
End Sub

et
Image Macro de Données:
- pièces jointes
Je sollicite vos remarques et suggestions quant à ma conclusion.
Merci infiniment

[hyperion13]

Si vous me demandez un avis tranché quant à savoir laquelle des 2 méthodes est la plus efficace, je n'en ai pas.
Les 2 méthodes requièrent malgré tout des connaissances, même basiques.

Par contre :
- vous pouvez remplacer :

Code :

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

Me.NumeroFacture = "FA" & Right$(Year([DateFacture]), 2) & String$(2 - Len(Month([DateFacture])), "0") & Month([DateFacture]) & String$(3 - Len([Indice]), "0") & [Indice]

par :

Code :

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

Me.NumeroFacture = "FA" & Format([DateFacture];"yymm") & Format([Indice];"000")

puisque vous êtes sous Ac2013

- le code produit est formaté de la même façon, a priori, que le NumeroFacture. Vous pourriez vous amuser à générer le code, au choix VBA ou macros de données.

- dans le formFacture, la liste déroulante NumClient dans le cadre Client n'est pas correctement paramétrée puisqu'elle ne permet pas en l'état de sélectionner une valeur. Sa Source contrôle doit être tblFacture.IDClient et son Contenu (SELECT IDclient FROM Tbl_Client). Dans ce cas, vous devez supprimer la zone de texte IDClient dans le cadre Facture.

[morobaboumar]

Salut membres du forum !
C'est avec beaucoup de bonheur que je vous adresse tous mes reconnaissances,
particulièrement à

marot_r et
hyperion13



A bientôt pour une nouvelle discussion.

Mon problème résolu.