Access02-VBA Formulaire/ màj sous plusieurs filtres
Access02-VBA Formulaire/ màj sous plusieurs filtres - VB/VBA/VBS - Programmation
MarshPosté le 02-06-2010 à 20:05:59
Bonjour, Je travaille sur un formulaire dont l'objectif est de fournir des données sur des clients par rapport à deux années. Les données se trouvent sur une seule base à deux clés (ID+ Année) J'ai déjà une liste déroulante permettant de filtrer les données par client et une autre permettant de filtrer par année
Ce que je voudrai avoir c'est deux colonnes juxtaposées pour chaque client relatives à deux années différentes (pour pouvoir comparer l'évolution) le code de la liste déroulante tel qu'il est généré automatiquement est:
Private Sub Modifiable197_AfterUpdate() Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[Année] = '" & Me![Modifiable197] & "'" If Not rs.EOF Then Me.Bookmark = rs.Bookmark End Sub
D'après ce que j'ai compris rs = Me.Recordset.Clone sert à copier les données du formulaire, il y aurait pas moyen de ne copier que la liste de champs qui doit être mise à jour après modif de la liste? ou bien de remplacer: Me.Bookmark = rs.Bookmark par une fonction qui permettrait de ne mettre à jour que quelques champs
Marsh Posté le 02-06-2010 à 20:05:59
Bonjour,
Je travaille sur un formulaire dont l'objectif est de fournir des données sur des clients par rapport à deux années.
Les données se trouvent sur une seule base à deux clés (ID+ Année)
J'ai déjà une liste déroulante permettant de filtrer les données par client
et une autre permettant de filtrer par année
Ce que je voudrai avoir c'est deux colonnes juxtaposées pour chaque client relatives à deux années différentes (pour pouvoir comparer l'évolution)
le code de la liste déroulante tel qu'il est généré automatiquement est:
Private Sub Modifiable197_AfterUpdate()
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[Année] = '" & Me![Modifiable197] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
D'après ce que j'ai compris
rs = Me.Recordset.Clone sert à copier les données du formulaire, il y aurait pas moyen de ne copier que la liste de champs qui doit être mise à jour après modif de la liste?
ou bien de remplacer:
Me.Bookmark = rs.Bookmark par une fonction qui permettrait de ne mettre à jour que quelques champs
merci d'avance pour vos conseils