IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA Access Discussion :

Utilisation des bookmarks dans access VBA


Sujet :

VBA Access

  1. #1
    Candidat au Club
    Profil pro
    Inscrit en
    Avril 2004
    Messages
    5
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Avril 2004
    Messages : 5
    Points : 2
    Points
    2
    Par défaut 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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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

  2. #2
    Responsable Access

    Avatar de Arkham46
    Profil pro
    Inscrit en
    Septembre 2003
    Messages
    5 865
    Détails du profil
    Informations personnelles :
    Localisation : France, Loiret (Centre)

    Informations forums :
    Inscription : Septembre 2003
    Messages : 5 865
    Points : 14 526
    Points
    14 526
    Par défaut
    Bjr,

    As-tu regardé les sources ici :
    http://access.developpez.com/sources...ms#RequeryFrom

Discussions similaires

  1. Insérer des Heures dans Access via Excel vba
    Par gdiamond dans le forum Excel
    Réponses: 1
    Dernier message: 21/08/2013, 06h38
  2. [AC-2007] Utilisation des tempvar dans une procédure VBA
    Par dumas.blr dans le forum VBA Access
    Réponses: 4
    Dernier message: 14/02/2011, 13h22
  3. utiliser des espaces dans requêtes SQL, dans du VBA
    Par willy-78milles dans le forum VBA Access
    Réponses: 13
    Dernier message: 26/03/2009, 10h31
  4. Utiliser des "SI" dans une requête access ?
    Par shaenwe dans le forum Requêtes et SQL.
    Réponses: 3
    Dernier message: 14/03/2007, 12h25

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo