Utilisation des bookmarks dans access VBA
Bonjour à tous,
Je voudrais soliciter votre aide pour un problème lié à l'utilisation des bookmarks, sur lequel je m'acharne depuis quelques heures.
J'ai crée un formulaire access comportant des onglets. Dans chaque onglet il y a des sous-formulaires qui sont liés les uns avec les autres, le premier étant le sous-formulaire maître (les requêtes qui alimentent les autres ont comme critère une information affichée dans le premier.
J'ai utilisé la méthode "requery" sur l'évènement "changement d'onglet" pour actualiser les sous-formulaires. Le problème c'est que quand je reviens sur le 1er sous-formulaire il se remet systématiquement sur le premier enregistrement. Alors j'ai décidé d'utiliser les bookmarks (cf. code ci-dessous):
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
| Private Sub onglets_Change()
Dim rs As DAO.Recordset
Dim bmk As Variant
If Form_frmINTEGRE.onglets.Value = 1 Then
Form_tbl_Engagements_sous_formulaire.Requery
ElseIf Form_frmINTEGRE.onglets.Value = 2 Then
Form_tbl_garanties_sous_formulaire.Requery
ElseIf Form_frmINTEGRE.onglets.Value = 3 Then
Form_qryAnalyses_sous_formulaire.Requery
Else
Set rs = Form_Sous_formulaire_client.RecordsetClone
rs.FindFirst "id_client = " & Form_Sous_formulaire_client.id_client.Value
bmk = rs.Bookmark
Form_Sous_formulaire_client.Requery
rs.Bookmark = bmk
End If
End Sub |
Or, je ne sais pas pourquoi j'ai systématiquement un message d'erreur "Signet invalide"
Merci d'avance
