[AC-2010] affichage dans des champs indépendants [Résolu]

[Ovr19]

Bonjour,

je cherche à afficher les champs d'une table, en fonction d'un numéro auto, dans un formulaire sans lien direct de manière à pouvoir modifier les valeurs dans le formulaire et les enregistrer dans la table après validation.

mon code actuel est le suivant:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
    With Form_FrmFrnWrite
 
        .NomFrnWrt = DLookup("[NomFrn]", "tbaFrn", "[NumFrn]=" & .NumFrnWrt)
        .TelFrnWrt = DLookup("[TelFrn]", "tbaFrn", "[NumFrn]=" & .NumFrnWrt)
        .FaxFrnWrt = DLookup("[FaxFrn]", "tbaFrn", "[NumFrn]=" & .NumFrnWrt)
        .AdressFrnWrt = DLookup("[AdressFrn]", "tbaFrn", "[NumFrn]=" & .NumFrnWrt)
        .CdPostalFrnWrt = DLookup("[CdPostalFrn]", "tbaFrn", "[NumFrn]=" & .NumFrnWrt)
        .VilFrnWrt = DLookup("[VilFrn]", "tbaFrn", "[NumFrn]=" & .NumFrnWrt)
        .MailFrnWrt = DLookup("[MailFrn]", "tbaFrn", "[NumFrn]=" & .NumFrnWrt)
        .CategoriFrnWrt = DLookup("[CategoriFrn]", "tbaFrn", "[NumFrn]=" & .NumFrnWrt)
        .CndtReglementWrt = DLookup("[CndtReglement]", "tbaFrn", "[NumFrn]=" & .NumFrnWrt)
        .CndtLivrWrt = DLookup("[CndtLivr]", "tbaFrn", "[NumFrn]=" & .NumFrnWrt)
        .CdeMiniWrt = DLookup("[CdeMini]", "tbaFrn", "[NumFrn]=" & .NumFrnWrt)
        .CommentFrnWrt = DLookup("[CommentFrn]", "tbaFrn", "[NumFrn]=" & .NumFrnWrt)
 
    End With

donc ma question est il y a t-il un moyen plus simple que d'attribuer les valeurs une par une à leurs champs

Merci

[Ovr19]

Finalement j'ai trouvé et tout simplement dans mon cas:

Code :

1
2
3
4
5
6
7
8
9
10
11
 
    Dim ctrl As control
 
    With Form_FrmFrnWrite
        For Each ctrl In .Controls
            If TypeOf ctrl Is TextBox Or TypeOf ctrl Is ListBox Then
                NomCmp = Left(ctrl.Name, Len(ctrl.Name) - 3)
                ctrl = DLookup("[" & NomCmp & "]", "tbaFrn", "[NumFrn]=" & .NumFrnWrt)
            End If
        Next
    End With