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 :

Valeur par défaut textBox


Sujet :

VBA Access

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre du Club
    Homme Profil pro
    Étudiant
    Inscrit en
    Juin 2011
    Messages
    8
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Juin 2011
    Messages : 8
    Par défaut Valeur par défaut textBox
    Bonjour,

    Je suis stagiaire dans en entreprise et dans mon projet je dois créer un formulaire pour créer un nouvel enregistrement. Dans ce formulaire j'ai deux tables : objet et calendrier. Elles sont reliées par la clé NumDate, c'est un numéro auto qui fait référence à un date pour un objet. Et dans mon formulaire j'ai tous les champs pour objet : NumObjet, NomObjet, NomInstallation, Objet.Numdate. Et j'ai aussi les champs de la table Calendrier : NumDate, DateEntretien, DateProchainEntretien, DateArlete, Temps.
    Je voudrais savoir si dans ce formulaire, dès la saisie du Calendrier.NumDate ou Objet.NumDate, il est possible que l'autre champ complémentaire se remplisse automatiquement ?

    Merci

  2. #2
    Membre éclairé
    Homme Profil pro
    Chef de projet MOA
    Inscrit en
    Juin 2012
    Messages
    53
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Chef de projet MOA
    Secteur : Service public

    Informations forums :
    Inscription : Juin 2012
    Messages : 53
    Par défaut
    Sous Access 2007, tu peux utiliser la procédure "After_Update()" qui exécute une macro suite à la modification d'un champ.

    Sur ton formulaire, passe en mode création, clique sur la zone de texte désirée (là où tu renseignes Calendrier.NumDate ou Objet.NumDate) et dans les propriétés, va sur l'onglet "évènements" puis sur "Après MAJ" et clique sur "..." pour choisir quel type d'action tu veux lancer après la mise à jour du champ.

  3. #3
    Membre du Club
    Homme Profil pro
    Étudiant
    Inscrit en
    Juin 2011
    Messages
    8
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Juin 2011
    Messages : 8
    Par défaut
    Super merci ça marche niquel !

    Maintenant j'ai une question. Je voulais savoir si Access limitait le nombre de jointure ? Puisque j'ai une requête très grande qui ne marche pas, les champs ne sont pas remplis.
    La seule qui marche c'est
    SELECT *
    FROM Calendrier
    WHERE DateProchainEntretien < #19/06/2012#

    Seulement il faut que j'obtienne le nom de mes installations avec les détails aussi. Ma requête devrait être la suivante :

    SELECT *
    FROM Installation,Calendrier, PontRoulant, ChariotElevateur, Climatisation, Exutoire, VanneGaz, HTBT, Onduleur,GrosseChaudiere, Disconnecteur, PoteauIncendie, PetiteChaudiere, Autre
    WHERE Installation.NumInstal = ChariotElevateur.NumInstal
    And Installation.NumInstal = Climatisation.NumInstal
    And Installation.NumInstal = Exutoire.NumInstal
    And Installation.NumInstal = VanneGaz.NumInstal
    And Installation.NumInstal = HTBT.NumInstal
    And Installation.NumInstal = Onduleur.NumInstal
    And Installation.NumInstal = GrosseChaudiere.NumInstal
    And Installation.NumInstal = Disconnecteur.NumInstal
    And Installation.NumInstal = PoteauIncendie.NumInstal
    And Installation.NumInstal = PetiteChaudiere.NumInstal
    And Installation.NumInstal = Autre.NumInstal
    And Calendrier.NumDate = ChariotElevateur.NumDate
    And Calendrier.NumDate = Climatisation.NumDate
    And Calendrier.NumDate = Exutoire.NumDate
    And Calendrier.NumDate = VanneGaz.NumDate
    And Calendrier.NumDate = HTBT.NumDate
    And Calendrier.NumDate = Onduleur.NumDate
    And Calendrier.NumDate = GrosseChaudiere.NumDate
    And Calendrier.NumDate = Disconnecteur.NumDate
    And Calendrier.NumDate = PoteauIncendie.NumDate
    And Calendrier.NumDate = PetiteChaudiere.NumDate
    And Calendrier.NumDate = Autre.NumDate
    And Installation.NumInstal = PontRoulant.NumInstal
    And Calendrier.NumDate = PontRoulant.NumDate
    And DateProchainEntretien < #19/06/2012#

    Et là je bloque. J'ai pensé à creer une vue qui ne me donne que les dates et une autre vue qui me donne les installations en fonction de la vue précédente ?

  4. #4
    Membre éclairé
    Homme Profil pro
    Chef de projet MOA
    Inscrit en
    Juin 2012
    Messages
    53
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Chef de projet MOA
    Secteur : Service public

    Informations forums :
    Inscription : Juin 2012
    Messages : 53
    Par défaut
    Ta requête n'est pas bonne, un résultat ne peut pas être égal à un champ ET à un autre champ.

    Un résultat est égal à un champ OU à un autre.

    Utilise donc du OR au lieu de AND dans ta requête.

  5. #5
    Membre du Club
    Homme Profil pro
    Étudiant
    Inscrit en
    Juin 2011
    Messages
    8
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Juin 2011
    Messages : 8
    Par défaut
    Mais il s'agit de mes jointures entre mes tables d'installation (PontRoulant,ChariotElevateur, etc.) avec mes deux tables Installation (en rapport avec le NumInstal) et Calendrier (en rapport avec DateNum).

    J'ai essayé avec Or et rien n'y fait non plus :/

  6. #6
    Membre Expert

    Homme Profil pro
    Ingénieur retraité
    Inscrit en
    Novembre 2007
    Messages
    904
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Côtes d'Armor (Bretagne)

    Informations professionnelles :
    Activité : Ingénieur retraité

    Informations forums :
    Inscription : Novembre 2007
    Messages : 904
    Par défaut
    Bonjour

    Au vu de ton code, je pense que tu as un problème de fond sur l'écriture de ta requête.
    Je te conseille de construire ta requête en mode création classique (avec des lignes et des colonnes).

    1) affiche les tables dont tu as besoin (2 si j'ai bien compris)
    2) crée LA relation entre ces 2 tables par l'intermédiaire des 2 champs qui représentent la même donnée dans chacune d'entre elles
    3) ajoute les critères de sélection sur la ligne "Critères" et dans la colonne du champ concerné
    Nota : les critères présents sur une même sont liés par un ET. Si tu veux avoir un OU, il faut renseigner une autre ligne de critères (les lignes sont liées par des OU)

    titi95

Discussions similaires

  1. [Débutant] valeur par défaut de textbox lié
    Par alassanediakite dans le forum VB.NET
    Réponses: 2
    Dernier message: 04/06/2012, 17h10
  2. [XL-2003] Modifier durablement la valeur par défaut d'un TextBox
    Par Nospam54 dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 24/05/2012, 15h30
  3. Valeur par défaut dans un textbox ?
    Par charif591 dans le forum VB 6 et antérieur
    Réponses: 16
    Dernier message: 14/11/2010, 18h25
  4. Valeur par défaut dans les textbox d'un formulaire
    Par OtObOx dans le forum Général VBA
    Réponses: 14
    Dernier message: 13/04/2010, 19h00
  5. userform --> textbox valeur par défaut changeante
    Par damsmut dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 10/03/2008, 09h21

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