Discussion :

[amaurysipa]

Salut à tous, je viens encore chercher de l'aide parmi vous

J'ai crée un formulaire qui me permet de saisir 6 champs et un bouton qui me permet de créer un nouvel enregistrement.
Le probleme c'est que je voudrais que quand je clique sur ce bouton, il valide mon enregistrement et me mette dans 2 de mes 6 champs qui ont pour nom "matricule" et "code_op" la valeur du dernier enregistrement pour ne pas avoir à les retaper.


J'avais penser à créer un recordset dans la fonction du bouton mais cela ne fonctionne pas.

J'ai également penser à aller dans la propriété du champ et lui mette "dernier" dans valeur par defaut mais ce fut aussi un echec.

Si vous pouviez m'eclairer ca serait sympa

[Megaxel]

Bonjour.
Je ne suis pas sûr de bien comprendre la question, mais quand tu cliques sur le bouton qui enregistre ta saisie en base, est-ce que tu ne peux pas, juste après, effacer le contenu des 4 champs que tu ne veux pas conserver, et laisser le formulaire ouvert, prêt pour une nouvelle saisie?

[amaurysipa]

C'est justement l'inverse, je voudrais qu'au lieu de me vider tout mon formulaire et d'enregistrer, je voudrais qu'il enregistre et qu'il me remette dans certains champs les dernieres valeurs enregistrées

[amaurysipa]

C'est bon j'ai créer ce code dans la fonction du bouton

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
 
Private Sub Commande48_Click()
On Error GoTo Err_Commande48_Click
Dim matri, numop As String
 
    matri = Me.[Matricule]
    numop = Me.[code_type_op]
 
    DoCmd.GoToRecord , , acNewRec
    Me.[Matricule] = matri
    Me.[code_type_op] = numop
 
 
Exit_Commande48_Click:
    Exit Sub
 
Err_Commande48_Click:
    MsgBox Err.Description
    Resume Exit_Commande48_Click
 
End Sub