Discussion :

[Papillon00]

Bonjour,

Je souhaite sur la base d'un form reporter la valeur d'un champ dans un autre champ dudit form et reporter la valeur en question dans ma table.

Ma table se présente comme suit:
- Dénomination de l'article
- Code d'article
- Code d'article structuré

Je souhaite par conséquent en mode form pouvoir dès la saisie d'un code d'article dans le champ "Code d'article" dupliquer ce dernier dans le champ "Code d'article structuré" et le structurer en fonction de diverses règles structurelles qui restent à développer. Cette procédure terminée, j'aurais donc pour chaque article un code d'article d'origine, le nouveau code d'article structuré - cette dernière information étant enregistrée dans ma table dans un champ correspondant que j'aurais créé à cet effet auparavant.

Bonne journée et merci d'avance pour toute aide...

Papillon00

[pgz]

Bonjour.

Dans le principe :
- tu crées un champ CodeArticleStructuré dans la table
- tu crées un contrôle CodeArticleStructured dans le form, contrôle ayant pour source le champ.
- tu crées une procédure évènementielle sur mise à jour du CodeArticle, du genre

Code :

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

1
2
3
sub CodeArticle_AfterUpdate
Me.CodeArticleStructured = ...
End sub

Bon courage,

PGZ

[Papillon00]

Bonjour pgz,

D'avance merci pour ton aide.

Je me permets de te poser une question de compréhension: ta proposition n'est-elle pas par définition limitée à une représentation de la nouvelle valeur dans un deuxième champ de mon form... or je recherche une solution pour MAJ ma table en arrière plan.

Je viens de développer le code que voici. Ce dernier fait l'affaire en boucle pour tous les enregistrements de ma table. Comment dois-je procéder pour que les modifications ne s'appliquent qu'à l'enregistrement affiché à l'écran par le form ?

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
 
 
Sub Test()
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim strFile As String
Dim Ref As Integer
 
' Ouvrir la table
Set cnn = CurrentProject.Connection
Set rst = New ADODB.Recordset
rst.Open "[tblArticles]", cnn, adOpenDynamic, adLockOptimistic, adCmdTable
 
While Not rst.EOF
 
    Debug.Print rst("N°")
    Ref = rst("N°")
    Debug.Print rst("CodeArticle")
    strFile = rst("CodeArticle")
 
    rst!CodeArticleStructuré = strFile
 
    rst.Update
 
rst.MoveNext
Wend
 
rst.Close
Set rst = Nothing
cnn.Close
Set cnn = Nothing
 
End Sub

Pour la suite utile...

Amicalement

Papillon00

[FreeAccess]

Bonjour,

Je me permets de répondre à la place de pgz.....

ta proposition n'est-elle pas par définition limitée à une représentation de la nouvelle valeur dans un deuxième champ de mon form... or je recherche une solution pour MAJ ma table en arrière plan.

Si ton formulaire est basé sur ta table, ton champ "Code Article Structure" sera automatiquement mis à jour lors de tous changements....manuellement ou par code....

Exemple:
- Tu souhaite "mettre en forme" ton champ "Code Article Structure" en fonction du champ "Code Article" de façon à ajouter en début "ART-" et finir par "-2007"

- Sur ton formulaire basé sur table, tu dispose l'ensemble de tes champs.
- Tu mets la propriété "Activé" = NON et "Verrouillé" = OUI du champ "Code Article Structure" (cela évitera des saisies indésirables..)
- PUis comme te le disait pgz sur l'événement "Après MAJ" du champ "Code Article" tu tape le code suivant:

Code :

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

1
2
3
4
Private Sub Code_Article_AfterUpdate()
'Mise en forme du champ [Code Article Structure]
Me.Code_Article_Structure.Value = "ART-" & Me.Code_Article.Value & "-2007"
End Sub

Voilà, c'est aussi simple.....

[Papillon00]

@ pgz,
@ FreeAccess,

...Désolé, mais je souhaitais rebondir et vous adresser une question subsidiaire. Je vous présente mes plus plates excuses et vous remercie pour votre précieuse aide.

Amicalement

un Papillon00 en toute liberté...