[VBA-A] Ouverture d'un formulaire

Version imprimable

07/03/2006, 15h02
amaurysipa

[VBA-A] Ouverture d'un formulaire

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
07/03/2006, 15h15
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?
07/03/2006, 15h18
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

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

Code:

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