Discussion :

[cysbn]

Bonjour à tous,

Ma question est la suivante:
A partir d’un formulaire produit contenant les informations de la table produit, je souhaite remplir le champ ReferenceProduit et ce dernier doit être rempli automatiquement par la donnée suivante: code de la gamme de la table Gamme concaténé par code de la localisation de la table Localisation concaténé de l’identifiant de l’enregistrement en cours.

L’idée c’est de récupérer les codes de la gamme et celui de la localisation et l’identifiant de l’enregistrement ensuite remplir dynamiquement ces codes par concaténation suivant cette nomenclature :
Code Gamme - Code Localisation – Identifiant de la ligne concernée de la table produit

Exemple : Si l’identifiant automatique de la ligne en cours d’enregistrement de la table produit est 30 et la Gamme choisi est Access (libellé de la gamme qui a comme code AC) et la Localisation choisi est Appartement (libellé de la localisation qui a comme code APT) alors le champ référence Produit sera : AC-APT-30.

Merci de votre compréhension et trouvez ci-joint un PDF avec des images.

[argyronet]

Bonjour,

Bah, il y a plein de pistes pour résoudre ta demande...
En imaginant que le formulaire soit réservé à la création, un exemple d'exécution comme celui-ci devrait suffire :

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
42
43
44
45
 
Option Compare Database
Option Explicit
 
Private Type Produit
    Code                                                   As String
    Gamme                                              As String
    Localisation                                       As String
End Type
 
Private Sub Form_Current()
    If Me.NewRecord Then
        Me.ReferenceProduit = ""
        Me.LibProduit.SetFocus
    Else
        CreerReferenceProduit
    End If
End Sub
 
Private Sub Form_Load()
    If Me.NewRecord = False Then
        Me.ReferenceProduit = ""
    End If
End Sub
 
Private Sub IdGamme_AfterUpdate()
    CreerReferenceProduit
End Sub
 
Private Sub IdLocalisation_AfterUpdate()
    CreerReferenceProduit
End Sub
 
Private Sub CreerReferenceProduit()
Dim strReferenceProduit                                As String
Dim strProduit                                         As Produit
 
    With strProduit
        .Localisation = Nz(Me.IdLocalisation, "")
        .Gamme = Nz(Me.IdGamme, "")
        .Code = Nz(Me.IdProduit, 0)
        strReferenceProduit = .Gamme & "-" & .Localisation & "-" & .Code
    End With
    Me.ReferenceProduit = strReferenceProduit
End Sub

Mais il t'appartient de stocker le référence du produit car là, elle est indépendante. Il te faut adapter.

C'est un bon départ je pense.

Argy

[cysbn]

Merci beaucoup, sinon je l'ai résolu différemment en deux lignes de codes.