BASE DE DONNÉES AVEC UN FICHIER À ACCÉS DIRECT

cs_comme Messages postés 122 Date d'inscription dimanche 19 mars 2006 Statut Membre Dernière intervention 18 juillet 2009 - 2 juin 2008 à 14:05
khedidija Messages postés 33 Date d'inscription samedi 16 février 2008 Statut Membre Dernière intervention 11 mai 2011 - 9 juin 2008 à 20:39

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/46817-base-de-donnees-avec-un-fichier-a-acces-direct

khedidija Messages postés 33 Date d'inscription samedi 16 février 2008 Statut Membre Dernière intervention 11 mai 2011 2
9 juin 2008 à 20:39

merci beaucoup

cs_comme Messages postés 122 Date d'inscription dimanche 19 mars 2006 Statut Membre Dernière intervention 18 juillet 2009
6 juin 2008 à 18:46

j'ai oublié de te dire qu'il faut désigner les autres forms comme filles de Mdiform pour celà mettre pour chaque form la proprieté Mdichild sur true et à la rigueur pour cacher les boutons (fermer ,restaurer et réduire) de chaque form, mettre la proprieté controlbox de chaque form (fille) sur false et comme ça le code suivant aura un sens;;;;
Private Sub parcode_Click(Index As Integer)
if activeform is Recherchestg then
exit sub
else
unload me
Recherchestg.Show
end if
End Sub

khedidija Messages postés 33 Date d'inscription samedi 16 février 2008 Statut Membre Dernière intervention 11 mai 2011 2
6 juin 2008 à 15:06

merci pour ces informations vraiment je savais pas ça avant donc merci beaucoup!:)

cs_comme Messages postés 122 Date d'inscription dimanche 19 mars 2006 Statut Membre Dernière intervention 18 juillet 2009
2 juin 2008 à 14:05

D'abord mettre la propriete windowstate de Mdiform sur 2 (maximized) celà est mieux pour la présentation....
en suite il faut décharger la feuille existante pour charger l'autre celà pour economiser la mémoire .
cet evenement :
Private Sub parcode_Click(Index As Integer)
Recherchestg.Show
End Sub

sera remplacé par celui là:

Private Sub parcode_Click(Index As Integer)
if activeform is Recherchestg then
exit sub
else
unload me
Recherchestg.Show
end if
End Sub
ici tu décharge la feuille existante avant de charger la form:Recherchestg

Discussions similaires

Prob de Restauration base de données

conception base de données e-commerce

Scores foot direct

Base de données voitures Marques et Modeles

Extraire une donnée d'une cellule excel avec python

Votre réponse

Discussions similaires