EXEMPLE GESTION VB6 ACCESS
jrivet
Messages postés
7392
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
-
1 juin 2007 à 11:14
zakaboana Messages postés 1 Date d'inscription mercredi 8 octobre 2008 Statut Membre Dernière intervention 8 octobre 2008 - 8 oct. 2008 à 07:34
zakaboana Messages postés 1 Date d'inscription mercredi 8 octobre 2008 Statut Membre Dernière intervention 8 octobre 2008 - 8 oct. 2008 à 07:34
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/42929-exemple-gestion-vb6-access
https://codes-sources.commentcamarche.net/source/42929-exemple-gestion-vb6-access
8 oct. 2008 à 07:34
tay ho hanina daholo
24 avril 2008 à 20:19
bon courrage
24 avril 2008 à 17:34
juste une question : d'où tu as télécharger ces fichiers de format (SKN) parceque j'ai essayé d'utiliser des fichiers avec
avec la méme extension mais ca ne marche plus qu'avec les
fichiers que tu'as mis dans ton code comme (Green.skn).
31 juil. 2007 à 22:14
13 juin 2007 à 02:56
2 juin 2007 à 13:35
2 juin 2007 à 13:30
pour ce qui est du prog je ne peut pas le lancer il bloque au niveau du lancement de la form la premiere au niveau lancement du skin1
Skin1.LoadSkin App.Path & "\WINAQUA.SKN" => objet requis
domage cela a l air simpa si tu vois ce que c est je suis preneur
merci
1 juin 2007 à 18:54
merci jrivet pour le code .
bon en tout cas je voulais travaillé avec le data report pour imprimer les feuilles mé c'est mieux de travailler avec la bibliothèque Ms Access object library.
1 juin 2007 à 11:25
1 juin 2007 à 11:14
Lorsque je télécharge une source pour voir un peu , j'aime bien qu'il y ai tout. Ici déjà rien qu'en ouvrant il manque:
- DataEnvironment1.Dsr
- DataReport1.Dsr
- DataReport2.Dsr
- Module1.Bas
Puis on ne peux même pas executer puis que pas de Base (même si tu avais prévenu)
Pourquoi ne pas avoir attendu pour mettre tout en même temps...
De plus on ne peu même pas ouvrir les feuilles sans générer des fichiers Log parce qu'il manque les icone ou les OLEObject (les skins) correspondant...
Bref lorsque tu déposes une source tu pourrais t'assurer qu'elle soit le plus portable possible...
Donc en fait la seule chose que l'on puisse faire c'est regarder le code:
Select Case Index
Case 0
S(0).BackColor = vbWhite
Case 1
Case 2
Case 3
Case 4: Calcul_solde
Case 5
Case 6: Calcul_solde
Case 7
Case 8: Calcul_solde
Case 9
Case 10: Calcul_solde
Case 11
End Select
Peu etre simplifié en
Select Case Index
Case 0: S(0).BackColor = vbWhite
Case 4, 6, 8, 10: Calcul_solde
End Select
Bref. je n'irais pas plus loin. mais il serait mieux d'apporter avant toute choses les modification nécessaire pour tester un peu le code.
@+
Julien