AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

  • Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2009 07 06 14:56:37
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

GESTION DE PRÊT DE RÉTROPROJECTEUR


Information sur la source

Catégorie :VBA Classé sous : gestion, pret, materiel, retroprojecteur Niveau : Débutant Date de création : 27/09/2005 Date de mise à jour : 14/04/2006 00:01:19 Vu / téléchargé: 9 674 / 2 069
Auteur : eren Site perso
Ecrire un message privé
Note :
8,67 / 10 - par 3 personnes
8,67 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Commentaire sur cette source (12)
Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale
Ce programme utilise ADO et un MSFlexgrid avec cases à cocher (opérationnelles).
L'affichage des plages horaires de réservation pour un jour donné, permet à l'utilisateur
d'avoir une vue rapide des disponibilités pour un nouveau prêt.
Mot de passe de la base Access :
Le mot de passe est inscrit dans le code VB

 

Conclusion

Ce programme vient d'être mis en service dans mon entreprise.
Peut-être quelques bugs apparaitront à l'usage.
Merci de me le faire savoir.
 

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip

Historique

29 septembre 2005 00:07:17 :
MAJ du 28/9/05 - Modifications mineures suite à remarques des visiteurs du site VBFrance. - Améliorations Validation impossible si un nouveau prêt est dans une plage horaire ayant déjà une réservation.
30 septembre 2005 10:07:55 :
30/9/05 La version déposée précedemment n'était pas la bonne. Quelques ajouts avec notamment un menu pour effectuer des tris.
14 avril 2006 00:01:19 :
A la demande de personnes intéressées, le code d'accès de la base est inscrit dans le code VB (metaframe)

Commentaires et avis

signaler à un administrateur
Commentaire de drissou le 28/09/2005 09:20:14

Bonjour eren

ton programme est bien.
j'aurai juste une petite remarque qui concerne la mise à jour du caractère 'rendu' sur ton msflexgrid
je trouve dommage que lorsqu'on double clique sur la case à cocher on aie une une recharge complète du msflexgrid avec un effet visuel assez long, puisque tu recharge à chaque fois les données à partir de ta base..
Moi je ferai, au moment du double clique qu'un changement d'état sur la ligne concernée de la case à cocher et un enregistrement pour cette ligne dans la base..
tu n'as pas besoin alors de recharger ton mxflexgrid.
et en plus tu n'as que quelques lignes..
si tu avais un centaines de lignes, je ne t'explique pas le temps passé pour mettre à jour une case à cocher..
j'ai essayé de mettre avant ton chargement le propriété redraw de ton msflexgrid = faux (ce qui évite déjà un rafraichissement entre chaque action de remplissage et de coloration).

mais bon je pense qu'il  faut faire comme je t'ai proposé. enfin c'est comme cela que je fais lorsque j'ai besoin de résultats en temps réel..

Driss

signaler à un administrateur
Commentaire de drissou le 28/09/2005 09:27:38

allez j'en rajoute..

Pas besoin de refixer à chaque fois l'alignement dans tes colonnes (dans la procédure 'réaffiche') fixe tout cela au chargement de ta feuille..
cela ne bouge plus, même quand tu re remplis ton flexgrid.

autre point:
en plus du double click sur la colonne avec la case, tu pourrais par exemple gérer l'appuie de la barre d'espace sur la ligne qui permettrait de cocher / décocher cet case et bien mise à jour de ta base..

enfin voilà

Driss

signaler à un administrateur
Commentaire de econs le 28/09/2005 12:13:00 administrateur CS

Le Select Case suivant est un peu long. Il peut être remplacé par les quelques lignes en bas du message :


    MyNombre = Me.HScroll1.Value
    Select Case MyNombre
    Case 1
        MyHeure = 7
        AfficheHeure = MyHeure & ":00"
    Case 2
        MyHeure = 7
        AfficheHeure = MyHeure & ":30"
    Case 3
        MyHeure = 8
        AfficheHeure = MyHeure & ":00"
    Case 4
        MyHeure = 8
        AfficheHeure = MyHeure & ":30"
    Case 5
        MyHeure = 9
        AfficheHeure = MyHeure & ":00"
    Case 6
        MyHeure = 9
        AfficheHeure = MyHeure & ":30"
    Case 7
        MyHeure = 10
        AfficheHeure = MyHeure & ":00"
    Case 8
        MyHeure = 10
        AfficheHeure = MyHeure & ":30"
    Case 9
        MyHeure = 11
        AfficheHeure = MyHeure & ":00"
    Case 10
        MyHeure = 11
        AfficheHeure = MyHeure & ":30"
    Case 11
        MyHeure = 12
        AfficheHeure = MyHeure & ":00"
    Case 12
        MyHeure = 12
        AfficheHeure = MyHeure & ":30"
    Case 13
        MyHeure = 13
        AfficheHeure = MyHeure & ":00"
    Case 14
        MyHeure = 13
        AfficheHeure = MyHeure & ":30"
    Case 15
        MyHeure = 14
        AfficheHeure = MyHeure & ":00"
    Case 16
        MyHeure = 14
        AfficheHeure = MyHeure & ":30"
    Case 17
        MyHeure = 15
        AfficheHeure = MyHeure & ":00"
    Case 18
        MyHeure = 15
        AfficheHeure = MyHeure & ":30"
    Case 19
        MyHeure = 16
        AfficheHeure = MyHeure & ":00"
    Case 20
        MyHeure = 16
        AfficheHeure = MyHeure & ":30"
    Case 21
        MyHeure = 17
        AfficheHeure = MyHeure & ":00"
    Case 22
        MyHeure = 17
        AfficheHeure = MyHeure & ":30"
    Case 23
        MyHeure = 18
        AfficheHeure = MyHeure & ":00"
    Case 24
        MyHeure = 18
        AfficheHeure = MyHeure & ":30"
    Case 25
        MyHeure = 19
        AfficheHeure = MyHeure & ":00"
    Case 26
        MyHeure = 19
        AfficheHeure = MyHeure & ":30"
    End Select









A remplacer par :


    MyNombre = Me.HScroll1.Value
    MyHeure = (Int((MyNombre-1)/2)+7)
    AfficheHeure = MyHeure
    If MyHeure Mod 2 Then
     AfficheHeure = AfficheHeure & ":30"
    Else
     AfficheHeure = AfficheHeure & ":00"
    End If


Quand un select fait des choses aussi "similaires", il est presque toujours automatisable.

signaler à un administrateur
Commentaire de strawally le 05/10/2005 18:46:48

j'aimerais avoire des nouveaux codes concernant ce projet

signaler à un administrateur
Commentaire de brunohampert le 23/12/2005 15:33:57

Bonjour, j'aimerais voir comment il fonctionne mais il faut un mot e passe !!!
y a t'il possibilité de l'obtenir ?

Merci.

signaler à un administrateur
Commentaire de ray_60 le 13/04/2006 10:38:46

Bonjour, il faut un mot de passe !!!
y a t'il possibilité de l'obtenir ?

signaler à un administrateur
Commentaire de claudiustl le 14/08/2006 16:52:05

Bonjour,
A voir je ne suis pas le premier! est-il possible d'avoir le mot de passe de votre base de données! Pas de mot de passe, pas d'accès au code!

Salutations

signaler à un administrateur
Commentaire de asg2007 le 24/03/2007 10:45:27

Private Sub Form_Load()
    Set Fg = MSFlexGrid1
    'Instanciation des variables
    Set Cnx = New ADODB.Connection
    Set rst = New ADODB.Recordset
    Me.MSFlexGrid1.Clear #je trouve un probleme impossible de continuer#
    Format_Grille
    'Me.txtdatepret.Text = Date
    Me.MonthView1.Visible = False

signaler à un administrateur
Commentaire de migue2a le 03/05/2007 10:54:19

Bonjour,
Je n'ai pas accès à la page proposée en capture.
je n'ai que les tables.
Ne manque t il pas des éléments dans la version du zip ?
Merci. @+

signaler à un administrateur
Commentaire de eren le 03/05/2007 12:39:44

Je viens de télécharger le ZIP et tout fonctionne correctement.

signaler à un administrateur
Commentaire de trackercheese le 22/08/2008 20:23:03

j'ai voulu zieuter un peu la base de donnée pour comprendre un peu mieux....Mot de passe demandé :-(
Dommage, a quoi ca sert de mettre du code limité par l'utilisation de mot de passe? erreur ou oubli? sniff

signaler à un administrateur
Commentaire de hakben1 le 17/01/2009 00:33:15

Bonjour, je suis a la rechercher gestionnaire de pret de materiel (laptop desktop...materiels info) sur lequel je peus suivre les date de pret retour, retard(forward par mail) et si il y a possibiliter d'imprimer une feuille relatant le descriptif du pret.

Merci
hakben  

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

gestion parc informatique [ par amal86 ] bonjour,s il  vous plait, si vous pouvez m aider , j ai un petit soucie au niveau de mon application "gestion de stock "qui a pour but gerer les diffe gestion stock + code barre [ par fofodan ] Bonjour à toutes et à tousJe suis nouveau sur le forum et après plusieurs mois de recherche, je viens chercher de l'ai adodc et base de données de sage gestion commerciale [ par ndaseraphin ] slt,Je souhaiterais de l'aide pour ma connexion de vb6 à la table F_DOCLIGNE de Sage gestion commerciale par Adodc. je n'arrive pas à afficher ces don DataGridView : gestion des Header [ par jpgvisual ] Bonjour,Dans un DatagridView, je voudrais avoir les headers visibles (pour avoir l'intitulé des colonnes), mais que l'on ne puisse pas cliquer dessus, sage gestion commerciale et connexion adodc sous vb [ par ndaseraphin ] sltMa version de sage est la 14 et j'utilise adodc sur vb 6.0 pour le lié à la table de sage gestion commerciale F_DOCLIGNE. Je ne fais pas de requête bd GESTION DES INCCIDENTS [ par mimosasai ] aprés avoir télécharger l'applicatif BD gestion des incidents fait avec Ms Access je n'arrive pas a accéder il est sécurisé avec un mot de passe si qu comment faire un projet de gestion de carnet de santé [ par iltit11 ] svp je veux un projet de gestion de carnet de santé (nom ,prenom, les differentes, dates de consultation ,les medecins, les medicaments ,la maladie ob creation et gestion d'une base de donnees sous sql server [ par oumzo525 ] slt tout quelqu'un peut me donner une idée sur les etapes qu'il faut faire pour creer une application ki va permettre une gestion automatisée d'une bo MCD POUR la gestion de micro crédit [ par moniba85 ] j'ai envie d'un MCD pour la gestion du micro crédit, pour mes etudes ,merci d'avance


Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Comparez les prix Nouvelle version


Console Sony Playstation 3 80GB
Entre 398€ et 425€


Visiter le guide achat

Photothèque Nouveau !

Photo friends at the beach.Photo alphabet langue des sourds
Photo femme, plage, bien être, soleil, vacances, été, détente, reposPhoto french manucure action !

Visiter la 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
Temps d'éxécution de la page : 0,733 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.