begin process at 2012 02 15 02:51:48
  Trouver un code source :
 
dans
 
Accueil > Forum > 

VB.NET et VB 2005

 > 

Base de données

 > 

Access

 > 

ACCESS : DoCmd.OpenForm comment mettre des conditions à mon sens un peu particulières. Aidez moi svp !


Derniers messages déposésPoser une question dans le forum ou lancer une discussion

ACCESS : DoCmd.OpenForm comment mettre des conditions à mon sens un peu particulières. Aidez moi svp !

mardi 24 avril 2007 à 20:44:40 | ACCESS : DoCmd.OpenForm comment mettre des conditions à mon sens un peu particulières. Aidez moi svp !

garoul

Code à améliorer :

Private Sub listeRésultats_DblClick(Cancel As Integer)
   DoCmd.OpenForm "info_livre_disponible", acNormal, , " [id] = " & listeRésultats
 End Sub

Structure :
J'ai conçu un moteur de recherche  SQL qui donne les résultats sous cette forme

[id]   [livre]  [quantité]
1        aze       10
2        zea        5
3        aaa        11
4        eza        0

Le principe de fonctionnement :
Le principe consiste, en cliquant sur un résultat, d'avoir une nouvelle fenetre (formulaire info_livre_disponible) qui reprend les meme donnés que ceux du moteur de recherche avec  quelques champ en plus comme le Résumé par exemple. Mais le formulaire doit être différent selon qu'on a le livre disponible en stock ou pas !!

Ce que je veux avoir :
S'il vous plait aider moi à résoudre mon problème le plus rapidement possible. Il s'agit en fait d'avoir une sorte de condition à intégrer dans mon code pr ouvrir DEUX formulaire selon le cas

>> Si la quantité est > à 0 je garde le code càd le formulaire "info_livre_disponible" s'ouvre et il aura un bouton pr passer la commande du livre

>> Si par contre la quantité est <= 0 un autre formulaire qui portera le nom cette fois ci de "info_livre_non_disponible" qui s'ouvrira dans lequel y aura pas de bouton pr commande.

J'espère que mes explications sont clairs. Aidez moi svp ! en tt cas je crois que la commande DoCmd.OpenForm admet les conditions mé le problème c'est comment vérifier sur la colonne : Quantité (quantité < ou > à 0 ) dans chaque ligne lorsqu'on y clique dessus.

Merci d'avance
mardi 24 avril 2007 à 22:14:31 | Re : ACCESS : DoCmd.OpenForm comment mettre des conditions à mon sens un peu particulières. Aidez moi svp !

tbbuim1

Réponse acceptée !
Avec une requête. une fois que tu as trouvé la requête qui te permet de connaitre ta quantité. Tu n'as plus qu'à faire un Dlookup dessus retournant le résultat de la requête sur l'évènement DblClick de listeRésultats. Comme ceci: Private Sub listeRésultats_DblClick(Cancel As Integer) dim res as integer res = Dlookup("quantité","Livres",id = " & Me.listeRésultats) ' champ résultat Table critère msgbox res select case res case > 0: DoCmd.OpenForm "info_livre_disponible", acNormal, , " [id] = " & listeRésultats case else: DoCmd.OpenForm "info_livre_non_disponible", acNormal, , " [id] = " & listeRésultats end select end sub
mercredi 25 avril 2007 à 14:32:34 | Re : ACCESS : DoCmd.OpenForm comment mettre des conditions à mon sens un peu particulières. Aidez moi svp !

garoul

Merci infiniment. T'as réponse marche à merveille  !

T'as ajouté tous ce qu'il me fallait.
la commande Dlookup pour retirer les variables qu'on désire, plus le select case pour gérer les conditions. Un travail d'expert. Bravo tbbuim1


Cette discussion est classée dans : docmd, livre, quantité, disponible, openform


Répondre à ce message

Sujets en rapport avec ce message

pb sur openForm (ACCESS-VBA) [ par alex6jub ] sur l'action openform le rafraîchissement de l'écran se fait automatiquement même si un docmd.echo false a été réalisé précédement. existe t'il un moy DoCmd.OpenForm , problème pour la condition where [ par Selverine ] Bonjour, J'aimerai ouvrir un formulaire, en spécifiant une condition. Il faut que mon champ web_id (situé dans la table COMPANIES) soit égale au cha probleme requete SQL [ par snakeon ] Bonjour les amis, j ai une table (Vente) qui contion plusieurs cellules(ID_prod,Date_achat,Produit,Quantité_total,Quantité_restée,Prix_achat,Prix_vent aide moi SVP [ par jadoud ] bj dans le cadre d'un mini projet gestion d'un bibliothèque,l'une des étape c de supprimer un livre de la base (Access) j'avais écrié le code suivant Evenement Click et Afterupdate d'un contrôle ds un formulaire [ par Pagodvd ] Bonjour à tous, j'ai un code qui me permet de sélectionner une valeur dans un champ liste... exemple du code: Private Sub Selection_Num_AfterUpdate( sauvegarde identifiant sur table [ par Chris15000 ] Bonjour, Actuellement ennn trin de terminer mon application sous access, je cherche a sauvegarder les identifiants d'un patient dans ma table Patient Automatiser la gestion d'une bibliothèque d'entreprise sur ACCESS [ par formatrice22 ] Bonjour, Je me présente. Je suis nouvelle. Mon prénom est Jeanne. J'ai démarré une activité de formatrice sous le statut d'auto-entrepreneur. Je form DoCmd.TransferSpreadsheet [ par sarouch ] bjr tt le monde, pouvez vous m'aider à trouver la solution de mon programme en vb.net qui permet d'importer des données qui existe sur une feuille EXC [Déplacé .Net --> VBA] comment récuperer une table ke j'ai supprimer? [ par sarouch ] slt tt le monde je veux une solution de ce probleme je connait comment supprimer une table dans une base de donnée access en vb.net en utilisant la m


Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,686 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales