Discussion :

[Nicolas_54]

Bonjour à tous,

Je deviens accro à votre site (il faut dire que je patauge pas mal avec Access ).

Mon souci : afin de pouvoir réaliser des virements dans notre application comptable, je réalise une requête qui, pour chaque paiement que je saisis dans ma base, me génère une ligne crédit (code 31) et une ligne débit (code 40).
Ces virements sont réalisés chaque semaine et regroupent donc plusieurs paiements à chaque fois.
Pour se faire, j'ai créé une table regroupant chaque paiement et une table avec 2 lignes : 31 et 40. Ce qui me permet de générer mes 2 lignes pour chaque paiement (je n'ai pas trouvé d'autres solution plus simple ^^).

Ca, ça marche.

Maintenant, ce que je souhaite, c'est que chacun de mes paiements se voit attribuer un N° propre au sein d'un même virement (on peut retrouver le même N° pour le virement de la semaine suivante, ça ne pose pas de problème).
Un N° qui doit être le même pour la ligne débit et crédit.

Par exemple :
1 - 31 - Mac donald - 30 € - clé RIB client
1 - 40 - Mac donald - 30 € - clé RIB moi
2 - 31 - FNAC - 25€ - clé RIB client
2 - 40 - FNAC - 25€ - clé RIB moi
3 - 31 - KINEPOLIS - 50 € - clé RIB client
3 - 40 - KINEPOLIS - 50 € - clé RIB moi

Existe-t-il une formule (si possible VBA) pour cela ??

Merci d'avance pour votre aide.

[marot_r]

Pour numéroté dans une requête, la seule solution que je connaisse c'est de compter ceux qui te précédes.

ex :

Code sql :

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

DCount("ChampClef"; "TaSource"; "[DateEnr]<=" & [DateEnr])

Compte le nombre d'enregistrement dont la date est inféreiure ou égagle à la date de l'enregistrement courant. En triant par [DateEnr] tu vas obtenir une numérotation séquentielle croissante.

Attention DCount() est très "lent" si tu as beaucoup de données ta requête va mettre pas mal de temps à s'éxécuter.

Si tu ne veux pas faire une requête, tu peux passer par une table temporaire et faire le calcul en VBA.

A+

[Lilou51]

Bonjour,

J'ai eu à faire qq ch de similaire, je l'ai géré entièrement par VBA, et plutôt qu'un n° unique pour les 2 pièces, j'ai fait une colonne qui renvoie le n° de la contrepartie.

Ce qui donnerait pour toi :
n° auto - cpte - libellé - montt - clé RIB - N° contrepartie
1 - 31 - Mac donald - 30 € - clé RIB client - 2
2 - 40 - Mac donald - 30 € - clé RIB moi - 1
3 - 31 - FNAC - 25€ - clé RIB client - 4
4 - 40 - FNAC - 25€ - clé RIB moi - 3
5 - 31 - KINEPOLIS - 50 € - clé RIB client - 6
6 - 40 - KINEPOLIS - 50 € - clé RIB moi - 5

Je ne suis pas au top en Access et il y a donc peut-être + simple... mais en tout cas, cela fonctionne très bien.

A l'enregistrement d'une transaction, je récupère mon n° de pièce, et je contrepasse l'écriture.
Et inversement, si on se focusse sur l'écriture contrepassée, on peut retrouver la pièce d'origine.

Code VBA sous l'évenement bouton sauvegarde

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
 
'memo n° de pièce
Dim memo As Long   
memo = Me.Num
 
'Sauvegarde de la pièce
DoCmd.RunCommand acCmdSaveRecord
 
Dim SQL As String
'Rechercher si la contrepartie de cet enregistrement existe déjà
Dim MaTable As Recordset
Set MaTable = CurrentDb.OpenRecordset("TRANSACTIONS", dbOpenDynaset)
 
rstCriterion = "RefLiee =" & memo
MaTable.FindFirst rstCriterion
MaRef1 = MaTable!Num '=> Récup de l'info
MaTable.FindLast rstCriterion
MaRef2 = MaTable!Num '=> Récup de l'info
 
if me.compte = 31 then cpte = 40
if me.compte = 40 then cpte = 31
 
'Vérif si nouvel ou modif de l'enregistrement
If MaRef1 = MaRef2 Then
    'Met à jour l'enregistrement de la contrepartie
    SQL = "UPDATE TRANSACTIONS " & _
        " SET Compte ='" & cpte & "',Montant ='" & -me.Montant & "',Libelle='" & me.Libelle & "',RefContrepartie =" & memo & _
        " WHERE Num = " & MaRef1
Else
 
    'Ajoute l'enregistremennt de la contrepartie en fonction des éléments enregistrés
    SQL = "INSERT INTO TRANSACTIONS (Compte, Montant , Libelle, RefContrepartie) " & _
        "VALUES ('" & Cpte & "','" & -Montant & "','" & Me.libelle & "'," & memo & ")"
 
End If

Espérant que cela puisse t'aider.
Elise

[Nicolas_54]

Bonjour à tous et merci pour vos réponses.

Bon, cette fonction me saoûle fortement car rien de marche correctement !!!
Comme je réalise une requête ajout, qui déverse les données dans une table, je ne peux pas réaliser de Dcount directement sur cette requête...
Et lorsque je fait un Dcount sur ma table d'origine, il me sort, pour chacune des lignes dans ma requête, le même chiffre, en fonction des critères que j'ai défini...

Je ne m'en sors pas

Concernant ma table d'origine, 1 ligne n'est pas égale à 1 paiement...
Comme il s'agit d'historisé des paiements fait chaque année aux même clients, j'ai, pour chaque client déjà référencé, créé un trio de colonnes montant / N° / Date de paiment n, montant / N° / Date de paiement n-1, montant / N° / Date de paiement n-2...

Il n'existe vraiment pas de fonction "simple" pour numéroter les lignes de ma requête ajout ??? ou de dire compter le nombre de ligne total de la requête - le nombre de lignes au dessus ou en dessous ???

Je sais que je en vous aide pas trop... Désolé et merci d'avance

[madefemere]

Bonjour,
Est-ce que tu peux donner le code (ou la façon) qui génère tes enregistrements de paiement stp.:

Pour se faire, j'ai créé une table regroupant chaque paiement et une table avec 2 lignes : 31 et 40. Ce qui me permet de générer mes 2 lignes pour chaque paiement (je n'ai pas trouvé d'autres solution plus simple ^^).

@+

[Nicolas_54]

Vous trouverez ci joint une extraction allégée de ma base Access.

J'espère que vous vous y retrouverez (pas trop tout de même c'est confidentiel ^^).

Ma requête déverse les données dans une table que j'exporte après au fromat .csv.

Merci pour votre aide.

[marot_r]

Il n'existe vraiment pas de fonction "simple" pour numéroter les lignes de ma requête ajout ??? ou de dire compter le nombre de ligne total de la requête - le nombre de lignes au dessus ou en dessous ???

Hélas non car les tables sont des ensembles mathématiques et en gros un ensemble au sens mathématique du terme c'est un gros tas de machins regroupés MAIS pas ordonné. Donc il faut "ajouter de l'ordre". Dans Excel cet ordre c'est les lignes dans le tableur, dans une table ou une requête cela nécessite une fonction de comparaison.

Une possibilité est d'utiliser une table temporaire et un champ "AutoNum" mais si tu dois le faire client par client ça va être compliqué d'où l'utilisation de DCount().

A+

[Nicolas_54]

Arf

[Lilou51]

En passant par VBA après avoir généré la table avec qq ch du genre :

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
compteur = 0
BlocLigne = 0
 
Dim rstRecords As DAO.Recordset
Set rstRecords = CurrentDb.OpenRecordset("LaTable")
 
Do While rstRecords.EOF = False
    if BlocLigne = 0 then
        Compteur = Compteur + 1
        BlocLigne = 1
    else
        BlocLigne = 0
    end if
 
    rstRecords.Fields("N°") = Compteur
 
    rstRecords.MoveNext
 
Loop
rstRecords.Close
Set rstRecords = Nothing

[madefemere]

Bonsoir,

Je ne sais pas qui devrait car c'était pas évident avec les données que tu voulais récupérer.
Ci-joint la base avec la fonction VBA deverserR1 qui devrait faire ce que tu veux.
Un début (à améliorer c'est sûr).

Attention avec l'utilisation des textes car les ' pourront bloquer cette fonction. Prévenir en utilisant Replace (TexteVariable,"'","''") autant que possible. De plus les noms de tes champs ne sont pas très corrects avec des /, espaces ... Attention pour la suite.
Et des noms de champs comme Texte, que j'ai changé en ValTexte

@+

[Nicolas_54]

Merci pour vos réponses, je regarde tout ça ^^

MERCI ENCORE

[Tofalu]

Bonjour

A mon avis cela part d'un problème de conception à l'origine. Il ne vous faut pas voir un paiement comme deux ordres bancaires différents dans la modélisation mais comme une seule transaction entre un emmeteur et un destinataire.

Si au lieu d'avoir :

1 - 31 - Mac donald - 30 € - clé RIB client
1 - 40 - Mac donald - 30 € - clé RIB moi
2 - 31 - FNAC - 25€ - clé RIB client
2 - 40 - FNAC - 25€ - clé RIB moi
3 - 31 - KINEPOLIS - 50 € - clé RIB client
3 - 40 - KINEPOLIS - 50 € - clé RIB moi

Vous aviez

1 - Mac donald - 30 € - clé RIB client - clé rib moi
2 - - FNAC - 25€ - clé RIB client - clé rib moi
3 - - KINEPOLIS - 50 € - clé RIB client - clé rib moi

Au passage, on pourrait même avoir votre rib dans une autre table en tant que constante si c'est toujours la même qui est utilisée pour tous les paiements générés.

Il vous serez beaucoup plus simple de le transformer comme vous le souhaitez pour votre exportation :

Code :

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

1
2
3
SELECT ID, 31, CLIENT , MONTANT , RIBEM FROM MATABLE
UNION
SELECT ID, 40, CLIENT , MONTANT , RIBDEST FROM MATABLE

qui renvoit bien :

1 - 40 - Mac donald - 30 € - clé RIB moi
2 - 31 - FNAC - 25€ - clé RIB client
2 - 40 - FNAC - 25€ - clé RIB moi
3 - 31 - KINEPOLIS - 50 € - clé RIB client
3 - 40 - KINEPOLIS - 50 € - clé RIB moi

[Nicolas_54]

Bonjour à tous.

Bon, le module que vous m'avez bâti fonctionne parfaitement, hélàs c'est assez compliqué pour moi et, encore plus pour mes collègues ^^ S'il y a des modifications à apporter, c'est mort

Est-ce possible, comme je deverse le contenu de ma requête dans une table, de définir un champs de ma table en Numérotation automatique.
Ce type de champs existe mais il s'agit uniquement d'entier !! Si je pouvais appliquer une formule, je diviserai le N° auto par 2 et je l'arrondirai à l'entier supérieur.

Comme ça, j'aurai :
- ligne 1 : 1
- ligne 2 : 1
- ligne 3 : 2
- ligne 4 : 2
...

C'est possible ?

Désolé de vous ennuyer

Merci.

[marot_r]

Non, le numéro auto est un entier. Par contre tu peux faire cela facilement dans une requête. Tu charges tes données dans la table avec un champ auto num et dans la requête tu mets un calcul qui le auto num divise par 2.

Attenton, si tu utilises un autonum, il faut le remmetre à 1 avant chaque utilisation sinon il ne fait que croitre à partir du dernier numéro. Cela se fait uniquement avec une instruction SQL que j'ai malheureusement oubliée.

A+

[Tofalu]

Je persiste : la conception est surement l'origine de vos soucis. Vous stockés plusieurs fois la même donnée pour rien.

D'ailleurs, qui dit qu'un jour, il n'y aura pas :

1 - 31 - Mac donald - 30 € - clé RIB client
1 - ??- Mac do - 30 € - clé RIB moi

[Lilou51]

Effectivement, la structure ne doit pas être adaptée... mais comme tu n'as pas envie de la changer... as-tu jeter un œil sur ma proposition ?

[Nicolas_54]

Effectivement, la structure ne doit pas être adaptée... mais comme tu n'as pas envie de la changer... as-tu jeter un œil sur ma proposition ?

Hélas, c'est limite du chinois pour moi ^^
Il faut quoi, que je l'intègre dans un module ?

[Lilou51]

Oui, c'est à intégrer ds un module,

D'abord : modifie le nom de "laTable" et le champ "n°" en fonction de tes dénomination (qui apparaissent en rouge ds le texte sous balise de mon message du 18/9).
==> Remplace "LaTable" par "Export Tigre" ds mon code
==> Remplace "N°" par "ID Pièce" ds mon code *

* les accents et les espaces ne sont pas conseillés ds la dénominiation des champs. Si ça buggue, essaie de renommer en "ID" par ex.

Puis lance la macro.

Le champ "n°" de ta Table sera ainsi complété automatiquement.

[Nicolas_54]

rebonjour,

j'ai donc créé mon module en le nommant "Numérotation" :

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
compteur = 0
BlocLigne = 0
 
Dim rstRecords As DAO.Recordset
Set rstRecords = CurrentDb.OpenRecordset("Export TIGRE")
 
Do While rstRecords.EOF = False
    If BlocLigne = 0 Then
        compteur = compteur + 1
        BlocLigne = 1
    Else
        BlocLigne = 0
    End If
 
    rstRecords.Fields("iD Pièce") = compteur
 
    rstRecords.MoveNext
 
Loop
rstRecords.Close
Set rstRecords = Nothing

Puis je l'ai intégré dans ma série "d'éxécutions" :

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
Private Sub Commande582_Click()
On Error GoTo Err_Commande582_Click
 
    CurrentDb.Execute "DELETE * FROM [Export TIGRE];"
 
    DoCmd.SetWarnings False
    DoCmd.OpenQuery "Déversement RODP"
    DoCmd.OpenQuery "Déversement R1"
    DoCmd.OpenQuery "Déversement RODP - Date"
    DoCmd.OpenQuery "Déversement R1 - Date"
    DoCmd.OpenModule "Numérotation"
    DoCmd.TransferText acExportDelim, "Export TIGRE", "Export TIGRE", "K:\GRD\COLLOC\ECONOMIE CONCESSIONNAIRE\Redevances\Export TIGRE.csv", False
 
    DoCmd.SetWarnings True
 
Exit_Commande582_Click:
    Exit Sub
 
Err_Commande582_Click:
    MsgBox Err.Description
    Resume Exit_Commande582_Click
End Sub

Hélas, rien ne se passe, ça m'ouvre le module en m'indiquant une "erreur de compilation; instruction incorrecte à l'extérieure d'une procédure"

[Lilou51]

Bonjour,

Remplace

Code :

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

DoCmd.OpenModule "Numérotation"

Par

Code :

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

Call Numérotation

Et dis-moi...
(parce que l'ouverture du module ne lance pas automatiquement la macro que ledit module supporte)