Discussion :

[leglod]

Bonjour à tous,

Dans le cadre de sasie de données, j'ai créé un formulaire dans lequel ce trouve un sous-fomulaire.

Je souhaiterai lorsque j'ajoute un nouvel enregistrement, que les données de l'enregistrement précèdent s'affiche par défaut dans ce nouvel enregistrement.

Merci d'avance pour votre aide.

[francishop]

Bonsoir et Bienvenue,

Que de pistes et de façon pour y arriver :
http://www.developpez.net/forums/sho...71#post2499571

Et puis :
Si le formulaire est en mode "continu",
mettre 'Recopier' dans la propriété Remarque (Tag) des champs à recopier
puis dans l'événement "sur après mise à jour" du formulaire :

Code :

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

1
2
3
4
5
6
7
8
Private Sub Form_AfterUpdate()
   Dim Ctl As Control
   For Each Ctl In Screen.ActiveForm.Controls
      If Ctl.Tag = "Recopier" Then
         Ctl.DefaultValue = """" & Ctl.Value & """"
      End If
   Next
End Sub

******************************
Ma préférence à ce qui semble plus "souple" :

Sur mon formulaire j'ai un champ "DateCommande"

Code :

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

1
2
3
4
Private Sub DateCommande_AfterUpdate()
   Me.DateCommande.DefaultValue = """" & Me.DateCommande & """"  'pour alpha et Date
   'Me.MonChamp.DefaultValue = Me.MonChamp          ' Si c'était du numérique
End Sub

Sur mon formulaire j'ai un champ "Produit"

Code :

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

1
2
3
Private Sub Produit_AfterUpdate()
Me.Produit.DefaultValue = """" & Me.Produit & """"
End Sub

Cordialement.

[leglod]

Bonjour,

Merci de n'avoir répondu, mais j'ai essayé de suivre des conseils, mais ça ne fonctionne pas, je pense que je dois m'y prendre mal. Par contre mon sous formulaire et un formulaire unique car il y trop de champs , une seul ligne n'est pas suffisant. Peut être est ce à cause de cela?

Bonne Fêtes de fin d'année.

Cordialement

[francishop]

Bonjour,

Soit il faut faire une requête suivant le lien fourni (De mémoire : Baptisée grosse cavalerie)

Soit il suffit de comprendre la dernière solution et à partir de là : C'est gagné!

En mode création d'un formulaire on peut indiquer une valeur par défaut à un champ. Lors de la création d'un nouvel enregistrement s'affiche cette valeur par défaut.

Avec VBA c'est ce que nous faisons. Il suffit de choisir les champs nécessaires à notre bonheur. Nous pouvons regrouper l'ensemble de ces champs, sur activation du formulaire par exemple.

Cordialement.