Bonjour.

Dans un formulairre, je désire récupèrer et afficher les valeurs par défaut du dernier enregistrement de la table.

Voici le VBA

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Private Sub Form_BeforeInsert(Cancel As Integer)
 
Dim lngCurrVersion As Long
lngCurrVersion = DMax("[PRK_idnBuild]", "tblsysVersion")
 
Me!txtVerMin.DefaultValue = DLookup("intVerMin", "tblsysVersion", "[PRK_idnBuild]=" & lngCurrVersion)
Me!txtVerMaj.DefaultValue = DLookup("intVerMaj", "tblsysVersion", "[PRK_idnBuild]=" & lngCurrVersion)
Me!txtStatut.DefaultValue = Chr(34) & DLookup("strStatut", "tblsysVersion", "[PRK_idnBuild]=" & lngCurrVersion) & Chr(34)
Me!cboDeveloppeur.DefaultValue = lngLoggedUserID
 
End Sub
Le problème est quand j'insère un nouvel enregistrement, les champs ne sont mis à jour qu'après avoir modifié un champ éditable. Je voudrais bien évidemment que les valeurs soient affichés dès l'insertion de l'enregistrement vierge. Il ya a-t-il un évènement refresh ou update quelque part ?

Merci de l'aide possible