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 :

form.recordsource fonctionne pas


Sujet :

VBA Access

  1. #1
    Membre habitué
    Inscrit en
    Mars 2007
    Messages
    258
    Détails du profil
    Informations personnelles :
    Âge : 44

    Informations forums :
    Inscription : Mars 2007
    Messages : 258
    Points : 127
    Points
    127
    Par défaut form.recordsource fonctionne pas
    Voici mon problème,

    J'ai un résultat dans une listview, lorsque je double-clique sur un élément de la listview voici le code qu'il exécuté

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    DoCmd.OpenForm "frm_sel_incident", acNormal, , "[ID] = " & Me.lstResults, acFormEdit, acDialog
    qui me permettait de lancer un formulaire qui avait un recordsource sur ma table tbl_incidents. Les données apparaissaient donc automatique dans les champs.

    J'ai du mettre en place un système d'archivage donc maintenant en fonction de celui sur je double-clique soit il doit aller filter dans les donnée de ma table tbl_archivage, soit il doit aller dans ma table tbl_incidents.

    Je ne sais pas comment mettre ceci en place, j'ai déjà essayé de mettre ceci au chargement de mon formulaire

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    If var2click < varclick Then
            Me.Form.RecordSource = tbl_archives
    Else
            Me.Form.RecordSource = tbl_incidents
    End If
    Mais malheureusement cela ne fonctionne pas.

    Auriez-vous un petite idée

    D'avance merci

    Benjisan

  2. #2
    Expert confirmé

    Homme Profil pro
    consultant développeur
    Inscrit en
    Mai 2005
    Messages
    2 889
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Val de Marne (Île de France)

    Informations professionnelles :
    Activité : consultant développeur
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Mai 2005
    Messages : 2 889
    Points : 4 771
    Points
    4 771
    Par défaut
    If var2click < varclick Then
    Me.Form.RecordSource = tbl_archives
    Else
    Me.Form.RecordSource = tbl_incidents
    End If
    Salut,
    il faut des " pour encadrer les valeurs texte !
    et le .form n'est pas nécessaire ...

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    If var2click < varclick Then
            Me.RecordSource = "tbl_archives"
    Else
            Me.RecordSource = "tbl_incidents"
    End If
    "Always look at the bright side of life." Monty Python.

  3. #3
    Membre habitué
    Inscrit en
    Mars 2007
    Messages
    258
    Détails du profil
    Informations personnelles :
    Âge : 44

    Informations forums :
    Inscription : Mars 2007
    Messages : 258
    Points : 127
    Points
    127
    Par défaut Merci beaucoup
    Hello micniv,

    Merci beaucoup pour l'info, cela fonctionne Nickel.

    A très bientôt

    Benjisan

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

Discussions similaires

  1. FreeAndnil(Form) ne fonctionne pas dans un create ?
    Par BuzzLeclaire dans le forum Langage
    Réponses: 2
    Dernier message: 13/11/2009, 16h34
  2. Changement mise en forme ne fonctionne pas
    Par choubak dans le forum IHM
    Réponses: 10
    Dernier message: 16/05/2007, 13h56
  3. Réponses: 4
    Dernier message: 30/11/2006, 14h33
  4. Réponses: 8
    Dernier message: 15/09/2006, 19h37
  5. Réponses: 7
    Dernier message: 24/01/2006, 11h03

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