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 :

Ouverture formulaire et affichage données


Sujet :

IHM

  1. #1
    Membre régulier
    Homme Profil pro
    Administrateur de base de données
    Inscrit en
    Décembre 2011
    Messages
    257
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Administrateur de base de données
    Secteur : Santé

    Informations forums :
    Inscription : Décembre 2011
    Messages : 257
    Points : 76
    Points
    76
    Par défaut Ouverture formulaire et affichage données
    Bonjour,

    j'essaie de "coder" l'ouverture d'un formulaire 2 (FRM_ETU) après sélection dans une liste déroulante (ETU_NOM) d'un formulaire 1 (FRM_MENU)
    mon formulaire 2 est constitué de champs indépendants que j'alimente à l'aide d'une requête sur une table TBL_ETU

    je lance donc l'ouverture du formulaire 2 à la mise à jour de la liste déroulante ETU_NOM
    j'effectue une requête (qui fonctionne car je l'ai testé) mais rien ne s'affiche dans mon formulaire 2

    mon algo est bon ?
    d'avance merci pour voter aide

    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
    18
    19
    20
    21
    22
    23
     
    Private Sub ETU_NOM_AfterUpdate()
     
        Dim rs As DAO.Recordset
        Dim sql As String
        Set db = CurrentDb
     
        DoCmd.OpenForm "FRM_ETU"
        ETU_NOM.SetFocus
        sql = "select * from TBL_ETU where ETU_NOM=" & Chr(39) & Forms![FRM_MENU]![ETU_NOM] & Chr(39)
        Set rs = db.OpenRecordset(sql, dbOpenDynaset)
        ETU_CLE = rs.Fields("ETU_CLE")
        ETU_NOM = rs.Fields("ETU_NOM")
        ETU_PRO = rs.Fields("ETU_PRO")
        ETU_NUM = rs.Fields("ETU_NUM")
        ETU_STA = rs.Fields("ETU_STA")
        ETU_NBR = rs.Fields("ETU_NBR")
        ETU_INV_NRD = rs.Fields("ETU_INV_NRD")
        ETU_INV_SUD = rs.Fields("ETU_INV_SUD")
        ETU_BDD = rs.Fields("ETU_BDD")
        ETU_COM = rs.Fields("ETU_COM")
     
    End Sub

  2. #2
    Modérateur

    Homme Profil pro
    Inscrit en
    Octobre 2005
    Messages
    15 323
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Canada

    Informations forums :
    Inscription : Octobre 2005
    Messages : 15 323
    Points : 23 758
    Points
    23 758
    Par défaut
    Bonjour.

    La question que je me pose est pourquoi utiliser un formulaire indépendant.
    Utiliser un formulaire lié et un filtre à l'ouverture te sauverait pas mal de travail.

    Sinon je pense que ton problème vient de là (sauf si j'ai mal compris ton enchaînement).

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
        DoCmd.OpenForm "FRM_ETU" 'Ouvre ton second formulaire
        'S'en fout totalement et continue à travailler sur le formulaire courant !
     
        ETU_NOM.SetFocus
        'ici le reste de ton code.
    La solution que je vois :

    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
    18
        DoCmd.OpenForm "FRM_ETU"
        dim f as form_FRM_ETU:set f=forms("FRM_ETU") 'Premet de bénéficier de intellisens
     
        f.ETU_NOM.SetFocus
        sql = "select * from TBL_ETU where ETU_NOM=" & Chr(39) & me.[ETU_NOM] & Chr(39)
        f.Set rs = db.OpenRecordset(sql, dbOpenSnapshot) 'Comme on fait juste de l'affichgae inutile de l'ouvrir pour modif.
        f.ETU_CLE = rs.Fields("ETU_CLE")
        f.ETU_NOM = rs.Fields("ETU_NOM")
        f.ETU_PRO = rs.Fields("ETU_PRO")
        f.ETU_NUM = rs.Fields("ETU_NUM")
        f.ETU_STA = rs.Fields("ETU_STA")
        f.ETU_NBR = rs.Fields("ETU_NBR")
        f.ETU_INV_NRD = rs.Fields("ETU_INV_NRD")
        f.ETU_INV_SUD = rs.Fields("ETU_INV_SUD")
        f.ETU_BDD = rs.Fields("ETU_BDD")
        f.ETU_COM = rs.Fields("ETU_COM")
     
        set f=nothing
    représente le formulaire courant.

    A+
    Vous voulez une réponse rapide et efficace à vos questions téchniques ?
    Ne les posez pas en message privé mais dans le forum, vous bénéficiez ainsi de la compétence et de la disponibilité de tous les contributeurs.
    Et aussi regardez dans la FAQ Access et les Tutoriaux Access. C'est plein de bonnes choses.

  3. #3
    Membre régulier
    Homme Profil pro
    Administrateur de base de données
    Inscrit en
    Décembre 2011
    Messages
    257
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Administrateur de base de données
    Secteur : Santé

    Informations forums :
    Inscription : Décembre 2011
    Messages : 257
    Points : 76
    Points
    76
    Par défaut
    merci pour ta réponse
    il me mais une incompatibilité de type sur le rs

  4. #4
    Modérateur

    Homme Profil pro
    Inscrit en
    Octobre 2005
    Messages
    15 323
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Canada

    Informations forums :
    Inscription : Octobre 2005
    Messages : 15 323
    Points : 23 758
    Points
    23 758
    Par défaut
    Oops. j'ai mis un peu trop de f.

    Voici le code corrigé.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Set rs = db.OpenRecordset(sql, dbOpenSnapshot) 'Comme on fait juste de l'affichgae inutile de l'ouvrir pour modif.
    A+
    Vous voulez une réponse rapide et efficace à vos questions téchniques ?
    Ne les posez pas en message privé mais dans le forum, vous bénéficiez ainsi de la compétence et de la disponibilité de tous les contributeurs.
    Et aussi regardez dans la FAQ Access et les Tutoriaux Access. C'est plein de bonnes choses.

  5. #5
    Membre régulier
    Homme Profil pro
    Administrateur de base de données
    Inscrit en
    Décembre 2011
    Messages
    257
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Administrateur de base de données
    Secteur : Santé

    Informations forums :
    Inscription : Décembre 2011
    Messages : 257
    Points : 76
    Points
    76
    Par défaut
    Thanks !
    çà marche nickel

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

Discussions similaires

  1. Réponses: 12
    Dernier message: 13/06/2007, 17h06
  2. Affichage données sous-formulaire
    Par frevale dans le forum IHM
    Réponses: 7
    Dernier message: 26/02/2007, 00h42
  3. pbl ouverture formulaire de création données
    Par lucie31 dans le forum Access
    Réponses: 19
    Dernier message: 20/07/2006, 11h12
  4. Newbie | affichage donnée d'un formulaire
    Par steve o'steen dans le forum Langage
    Réponses: 5
    Dernier message: 17/03/2006, 11h48
  5. pb d affichage d un champs sur ouverture formulaire
    Par student007 dans le forum Access
    Réponses: 3
    Dernier message: 16/11/2005, 23h55

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