GESTION DE PRÊT DE RÉTROPROJECTEUR

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

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.

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.

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

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. @+

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

Commentaire de facoprod le 18/12/2009 20:50:56

"A la demande de personnes intéressées, le code d'accès de la base est inscrit dans le code VB (metaframe)", dsl mais c'est où au juste? merci