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

IHM Discussion :

Formulaire navigation : Comment sélectionner l'enregistrement actif quand revient sur la page [AC-2010]


Sujet :

IHM

  1. #1
    Membre éprouvé

    Profil pro
    Inscrit en
    Janvier 2010
    Messages
    983
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Janvier 2010
    Messages : 983
    Points : 1 030
    Points
    1 030
    Billets dans le blog
    36
    Par défaut Formulaire navigation : Comment sélectionner l'enregistrement actif quand revient sur la page
    Bonjour à tous,

    Quand je reviens sur la page1 de mon formulaire de navigation depuis la page2, l'enregistrement actif est toujours le 1er même si avant d'appeler la page2, l'enregistrement courant de la page1 était par exemple le 10ème.

    Comment procéder pour sélectionner l'enregistrement dans la page1 correspondant à celui d'avant l'appel à une autre page quand je reviens dessus?


    Merci pour votre aide!

  2. #2
    Membre éprouvé

    Profil pro
    Inscrit en
    Janvier 2010
    Messages
    983
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Janvier 2010
    Messages : 983
    Points : 1 030
    Points
    1 030
    Billets dans le blog
    36
    Par défaut
    Voilà la solution :

    Déclarer dans un module une variable come suit : Public lngRecordID As Long

    Puis dans le formulaire appelant ecrire le code suivant:

    Code VBA : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    Private Sub Form_Load()
     
          If IsNumeric(gIdFacture) And gIdFacture > 0 Then
              Set rst = Me.RecordsetClone
              rst.FindFirst "idFacture = " & lngRecordID 
              Me.Bookmark = rst.Bookmark
              Set rst = nothing
          End If
     
      End Sub
     
      Private Sub Form_Current()
          lngRecordID = Me.idFacture
      End Sub

    Et voilà

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 3
    Dernier message: 14/12/2010, 19h35
  2. Filtre : comment tester si un filtre est activé sur une page
    Par Godzestla dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 13/11/2008, 19h04
  3. IE 7 - Comment retrouver un fichier lu ou téléchargé sur une page web ?
    Par mbellemax dans le forum Général Conception Web
    Réponses: 0
    Dernier message: 21/09/2008, 02h02
  4. Réponses: 4
    Dernier message: 24/06/2007, 19h27
  5. Réponses: 3
    Dernier message: 24/08/2006, 23h24

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