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 :

code VBA pour rechercher un dossier


Sujet :

VBA Access

  1. #1
    Futur Membre du Club
    Homme Profil pro
    Ingenieur
    Inscrit en
    Octobre 2023
    Messages
    6
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Maroc

    Informations professionnelles :
    Activité : Ingenieur

    Informations forums :
    Inscription : Octobre 2023
    Messages : 6
    Par défaut code VBA pour rechercher un dossier
    *Bonjour,*

    Nom : Capture d’écran 2023-10-24 065730.png
Affichages : 269
Taille : 36,6 Ko
    j'ai cree une base de donnees dont les relations entre tables se presentent comme expliquees dans l'image.
    j'ai ecrit un code :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
     
    Option Compare Database
    'BOUTON CHERCHER
    Private Sub Chercher_Click()
        Dim ID_DOSSIER As Integer
        ID_DOSSIER = InputBox("Veuillez saisir ID_Dossier", "Recherche par ID_Dossier")
        If (IsNull(DLookup("ID_Dossier", "Dossiers", "cint(ID_Dossier)= '" & ID_DOSSIER & "'"))) Then
            MsgBox "le N Dossier ne figure pas", vbCritical, "Erreur"
        Else
            Me.Recordset.FindFirst "ID_Dossier = " & ID_DOSSIER
        End If
    End Sub
    pour rechercher u dossier a partir de son ID , mais je ne trouve que les dossiers pour lesquels tous les enregistrements ont et saisis. les autres dossiers, meme s'ils sont presents dans la tables Dossiers ils sont plus trouves.

    merci de m'aider sur ce probleme.

  2. #2
    Modérateur

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

    Informations forums :
    Inscription : Octobre 2005
    Messages : 15 410
    Par défaut
    Bonjour.

    Quelle est la requête qui alimente ton formulaire ?

    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
    Futur Membre du Club
    Homme Profil pro
    Ingenieur
    Inscrit en
    Octobre 2023
    Messages
    6
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Maroc

    Informations professionnelles :
    Activité : Ingenieur

    Informations forums :
    Inscription : Octobre 2023
    Messages : 6
    Par défaut code VBA pour rechercher un dossier
    bonsoir,

    merci pour votre soutien.

    premierement, mon formulaire est un formulaire (partie superieure issue de la TABLE DOSSIER) avec sous formulaire (TABLE Avancement)Nom : Formulaire.png
Affichages : 221
Taille : 29,7 Ko.
    Aussi, ma BD comprend deux autres formulaires:
    1- recherche petitionnaire qui se base sur la requete suivante:Nom : requete 1.png
Affichages : 226
Taille : 12,4 Ko.
    2- affichage de l'avancement des dossiers en se basant sur la requete ci après Nom : Requete avancement.png
Affichages : 221
Taille : 14,7 Ko.

    aussi, il faut noter que lorsque la table avancement etait vide, le code VBA que j'ai edite marche a merveille. Une fois les champs de la table avancement sont saisies, le code ne m'affiche que les dossiers dont les enregistrements dans la table avanceemnt sont disponibles.

    merci

  4. #4
    Modérateur

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

    Informations forums :
    Inscription : Octobre 2005
    Messages : 15 410
    Par défaut
    Bizarre.

    Fait un essai. Copie ton formulaire sous un autre nom et enlève le sous-formulaire Avancement.
    Est-ce que le problème continu ?
    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
    Futur Membre du Club
    Homme Profil pro
    Ingenieur
    Inscrit en
    Octobre 2023
    Messages
    6
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Maroc

    Informations professionnelles :
    Activité : Ingenieur

    Informations forums :
    Inscription : Octobre 2023
    Messages : 6
    Par défaut
    le probleme persiste tjrs

  6. #6
    Modérateur

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

    Informations forums :
    Inscription : Octobre 2005
    Messages : 15 410
    Par défaut
    Bonjour.

    Ça doit venir de la source de données de ton formulaire principale.

    Il faudrait que tu postes une copie d'écran complète en mode conception, pas seulement les champs, pour qu'on puisse voir les tables et les jointures que tu as faites.
    Tu as probablement une jointure stricte entre Dossier et Avancement mais tant qu'on ne voit pas on ne sait pas :-).

    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.

  7. #7
    Futur Membre du Club
    Homme Profil pro
    Ingenieur
    Inscrit en
    Octobre 2023
    Messages
    6
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Maroc

    Informations professionnelles :
    Activité : Ingenieur

    Informations forums :
    Inscription : Octobre 2023
    Messages : 6
    Par défaut
    Nom : F-avancement dossier .png
Affichages : 198
Taille : 13,2 Ko
    Nom : F-recherche petitionnaire.png
Affichages : 185
Taille : 11,4 Ko
    Nom : Requete F-rechercher petitionnaire.png
Affichages : 195
Taille : 20,2 Ko
    Nom : Requete F-avancemet dossier.png
Affichages : 191
Taille : 17,2 Ko
    bonsoir, ci joint tous les formulaire et les requetes dans ma base de donnees.

    a+

  8. #8
    Modérateur

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

    Informations forums :
    Inscription : Octobre 2005
    Messages : 15 410
    Par défaut
    Désolé on ne voit toujours pas la partie vraiment utile.
    C'est quelque chose qui ressemble à la partie haute de cela :
    Nom : Capture 2023-10-31.JPG
Affichages : 174
Taille : 269,9 Ko
    Là où on voit les jointures entre les tables.
    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.

  9. #9
    Futur Membre du Club
    Homme Profil pro
    Ingenieur
    Inscrit en
    Octobre 2023
    Messages
    6
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Maroc

    Informations professionnelles :
    Activité : Ingenieur

    Informations forums :
    Inscription : Octobre 2023
    Messages : 6
    Par défaut
    Nom : Capture d’écran 2023-11-01 220657.png
Affichages : 257
Taille : 43,1 KoNom : Capture d’écran 2023-11-01 220657.png
Affichages : 257
Taille : 43,1 Ko

  10. #10
    Modérateur

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

    Informations forums :
    Inscription : Octobre 2005
    Messages : 15 410
    Par défaut
    Ok, c'est ce que je pensais.

    Tu as fait des jointures strictes entre Dossier et Avancement donc Access n'affiche que les dossiers qui ont au moins un avancement.
    Il faut changer cela pour une jointure à gauche (ou à droite). Comme cela Access va afficher les dossiers et éventuellement les informations sur les avancements.
    Pour faire cela il faut que tu sélectionnes le trait de la jointure puis tu cliques droit.
    Access va t'afficher un choix du genre :
    1. Tous les enregistrements présents dans la table A et la table B.
    2. Tous les enregistrements dans la table A et ceux dans la table B
    3. Tous les enregistrements dans la table B et ceux dans la table A


    Habituellement c'est le choix numéro 2. Fait un essai et si cela ne marche pas prend le 3.
    Tu devrais voir toutes les données qui t'intéressent ensuite.

    Attention, il est possible que tu te retrouves avec plusieurs fois la même ligne pour tes dossiers (autant de fois que tu as d'avancement) et si c'est le cas il faudra revoir ta requête mais on en parlera si cela se produit.

    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.

  11. #11
    Futur Membre du Club
    Homme Profil pro
    Ingenieur
    Inscrit en
    Octobre 2023
    Messages
    6
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Maroc

    Informations professionnelles :
    Activité : Ingenieur

    Informations forums :
    Inscription : Octobre 2023
    Messages : 6
    Par défaut
    je vous remercie pour votre soutien,

    mais on essayons tous les choix le probleme persiste toujours.

    est ce que je dois refaire la BD?

Discussions similaires

  1. Réponses: 0
    Dernier message: 20/10/2019, 11h06
  2. Réponses: 6
    Dernier message: 06/07/2016, 16h09
  3. Réponses: 2
    Dernier message: 12/11/2015, 20h42
  4. [AC-97] Code VBA pour ecrire Rdv Dossier Public
    Par laurent.mario dans le forum VBA Access
    Réponses: 0
    Dernier message: 28/04/2009, 08h15
  5. [XL-2003] Code VBA pour fusion des Dossiers
    Par em_bengue dans le forum Macros et VBA Excel
    Réponses: 0
    Dernier message: 07/04/2009, 00h03

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