Discussion :

[olabourel]

Bonjour,
J'ai une table intitulé commande avec 3 champs (Date, Nom, Numéro)
Un formulaire nomé Form_Commande avec les champs de la table commande les champs du formulaire portent le même nom que ceux de la table.

Je souhaiterai pour le champs "Nom" du formulaire qu'à chaque fois qu'on veut créer un nouvel enregistrement que le programme mette par défaut celui précédement renseigné.
Seulement je n'y arrive pas, j'ai cherché sur un internet et je n'arrive vraiment pas à faire ce qu'il faut, quelqu'un pourrait il m'aider svp?

Je vous remercie par avance.

[marot_r]

Sans programmation tu peux appuyer sur la combinaison de touches :

[Ctrl][shift][,]

est-ce que cela te suffit ?

A+

[olabourel]

Bonjour,
Merci pour la réponse
Cela ne suffit pas car l'utilisateur a beaucoup de commandes à renseigner et il le fait par utilisateur, il va donc rentrer 10 fois le même utilisateur. Cette manipulation lui fera perdre trop de temps.
Si quelqu'un connait ce qu'il faut mettre dans la valeur par défaut du champs du formulaire ou dans le VB du formulaire, je suis preneur.
Merci encore

[Macc]

Dans l'évènement before_insert de ton formulaire en vba tu peut renseigner ton champ "Nom".

Code :

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

1
2
3
Private Sub Form_BeforeInsert(Cancel As Integer)
[NOM] = "blabla"
End Sub

[olabourel]

Que dois je mettre à la place de blabla pour récupérer la dernière valeur renseignée?

Il ne s'agit pas d'une valeur fixe (elle est répétée mais change)

Merci pour votre aide

[Macc]

il faut que tu passe par une variable globale à ton formulaire que tu renseignera dans l'évènement after_update de ton formulaire:

Code de ton formulaire:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Option Compare Database
 
Dim DernierNom As Variant
Private Sub Form_AfterUpdate()
DernierNom = [NOM]
End Sub
 
 
Private Sub Form_BeforeInsert(Cancel As Integer)
[NOM] = DernierNom
End Sub

[olabourel]

Merci pour le code.
Cependant, lorsque je le rajoute dans le VB du formulaire et que je créer deux enregistrement d'affilé, la valeur n'est pas reprise (aucun message d'erreur)

Avez vous une petite idée?

[Macc]

il ne faut pas que le nom soit la 1ere valeur saisie de la nouvelle ligne, commence toujours à saisir la date en 1er et ça devrait fonctionner.

[olabourel]

la date est déjà en premier

Une autre idée?

Merci pour l'aide

[Macc]

met un point d'arrêt dans ton code pour voir si tu passe bien dans les évènements (si tu as juste fait un copié/collé du code, les évènements ne sont peut être pas liés au formulaire, tu peux voir ça si tu n'a pas "procédure évnementielle" en face des évènements "avant insertion" et "aprés mise à jour" dans les propriétés de ton formulaire, à part ça je vois pas...

[olabourel]

Ca y est !!!

En faite j'avais bien le champs date en premier mais je ne rentrais pas dedans
du coup ca ne fonctionnait pas.

J'ai ajouté le code sur l'insertion du champs (renomé en NomTEst) :

Code :

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

1
2
3
4
 
Private Sub NomTEST_Enter()
[NomTEST] = DernierNom
End Sub

Dans ce cas là ca marche parfaitement.

Merci pour votre aide précieuse

[olabourel]

Bonjour,

Il me reste cependant un petit soucis, lorsque je vais sur d'autre enregistrements, le programme modifie le nom.
Est possible de faire quelque chose pour que ca ne le fasse qu'en ajout d'enregistrement et non en modification/consultation?

Merci pour votre aide

[Macc]

Teste la propriété NewRecord de ton formulaire:

Code :

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

1
2
3
Private Sub Form_AfterUpdate()
if Me.NewRecord then DernierNom = [NOM]
End Sub

[olabourel]

Encore une fois merci ca marche correctement maintenant.