GESTION DE PRÊT DE RÉTROPROJECTEUR
cs_drissou
Messages postés
160
Date d'inscription
dimanche 7 décembre 2003
Statut
Membre
Dernière intervention
14 janvier 2009
-
28 sept. 2005 à 09:20
cs_eren Messages postés 38 Date d'inscription vendredi 3 janvier 2003 Statut Membre Dernière intervention 27 novembre 2008 - 18 déc. 2009 à 23:28
cs_eren Messages postés 38 Date d'inscription vendredi 3 janvier 2003 Statut Membre Dernière intervention 27 novembre 2008 - 18 déc. 2009 à 23:28
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/33983-gestion-de-pret-de-retroprojecteur
https://codes-sources.commentcamarche.net/source/33983-gestion-de-pret-de-retroprojecteur
18 déc. 2009 à 23:28
Je ne comprends pas la demande.
Le mot de passe est dans le code VB pour l'ouverture de la base Access.
Comme le dit FACOPROD, c'est metaframe.
De plus je n'ai plus les sources car je suis en retraite depuis 4 mois.
Avec Edition/Rechercher, c'est simple de trouver le mot de passe et où il est est demandé.
A+
18 déc. 2009 à 20:50
17 janv. 2009 à 00:33
Merci
hakben
22 août 2008 à 20:23
Dommage, a quoi ca sert de mettre du code limité par l'utilisation de mot de passe? erreur ou oubli? sniff
3 mai 2007 à 12:39
3 mai 2007 à 10:54
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. @+
24 mars 2007 à 10:45
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
14 août 2006 à 16:52
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
13 avril 2006 à 10:38
y a t'il possibilité de l'obtenir ?
23 déc. 2005 à 15:33
y a t'il possibilité de l'obtenir ?
Merci.
5 oct. 2005 à 18:46
28 sept. 2005 à 12:13
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.
28 sept. 2005 à 09:27
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
28 sept. 2005 à 09:20
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