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
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 ?
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
Merci de l'aide possible
Partager