Discussion :

[cslbcg]

Bonjour !

Je ne suis pas sûre d'être très claire dans mon titre

Dans mon formulaire de facturation, je sélectionne les codes des articles à facturer au moyen d'une zone de liste. La ligne renseigne le champ "code_article".

Certains des articles sont consignés et à chaque code article concerné correspond un code consigne.

Je voudrais que, lorsqu'un article est consigné, son code consigne associé vienne automatiquement se placer dans le contrôle "code_article" de l'enregistrement suivant, pour que la facturation des consignes ne soit pas oubliée !

A noter : la table "articles" contient aussi bien les articles eux-mêmes que les consignes ; il faudrait peut-être créer 2 tables distinctes ?

Je ne sais vraiment pas comment faire

Merci d'avance de votre aide
Catherine

[loufab]

Bonjour,

Sur Après mise à jour de la zone de liste tu peux toujours utiliser ce code.

Code :

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

1
2
3
4
5
dim CodeConsigne ...
 
CodeConsigne = me.zoneliste.column(x) ' ou x représente la colonne contenant le code consigne
me.recordset.addnew ' on passe à l'enregistrement Newrec
me.zoneliste = CodeConsigne

Ceci est une piste pour résoudre ton problème. On capture le code consigne on ajoute un record et on y copie le code capturer.

Bien entendu il faut que la liste contienne à la fois les code article et les codes consignes correspondant (ce que tout logiciel de facturation bien fait doit contenir)

Cordialement,

[cslbcg]

Bonjour,

Sur Après mise à jour de la zone de liste tu peux toujours utiliser ce code.

Code :

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

1
2
3
4
5
dim CodeConsigne ...
 
CodeConsigne = me.zoneliste.column(x) ' ou x représente la colonne contenant le code consigne
me.recordset.addnew ' on passe à l'enregistrement Newrec
me.zoneliste = CodeConsigne

Ceci est une piste pour résoudre ton problème. On capture le code consigne on ajoute un record et on y copie le code capturer.

Bien entendu il faut que la liste contienne à la fois les code article et les codes consignes correspondant (ce que tout logiciel de facturation bien fait doit contenir)

Cordialement,

Sur la base de ce que tu m'avais indiqué, j'ai adapté le code à mon problème, en ajoutant des conditions pour balayer les différentes situations.

Voilà ce que ça donne :

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
 
Private Sub Modifiable17_AfterUpdate()
    If Me.Consignation = 0 Then
    Exit Sub
    End If
        If Me.Consignation = -1 Then               
        Dim CodeConsigne
            CodeConsigne = Me.Modifiable17.Column(2)
        End If
                If Me.Consignes = 0 Then
                Me.Recordset.MoveLast
                End If
 
                If Me.Consignes = -1 Then              
                Me.Recordset.AddNew
                Me.Modifiable17 = CodeConsigne
                End If
End Sub

Et ça marche très bien !

Merci beaucoup pour ton aide

Catherine