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

Commentaire de comme le 02/06/2008 14:05:39

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

Commentaire de comme le 06/06/2008 18:46:30

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