[Résolu][Base] Ouverture et fermeture de formulaire

[jeanmi2403]

Bonsoir,
J'ai récupéré l'exemple de Dude (ouvreform31.odb) donné dans la section Techniques pour débuter avec le module Base, et il y a un problème avec la macro OpenForm.
La procédure lancée par le clic sur les boutons produit l'erreur suivante :

OouvreForm31-err.JPG (22.07 Kio) Consulté 1419 fois

Il suffit de remplacer

Code : Tout sélectionner   AgrandirRéduire

aProp(1).Value = strMode

par

Code : Tout sélectionner   AgrandirRéduire

aProp(1).Value = openMode

De plus, autre souci, que j'ai la flemme d'essayer de résoudre, le bouton "Quitter" de chaque formulaire, fait appel à une macro ExitForm qui n'existe pas...

Ajout : Finalement, j'ai pris le temps de le faire

Rajouté Module1 dans la librairie standard du document, et créé la procédure :

Code : Tout sélectionner   AgrandirRéduire

Sub ExitForm
thiscomponent.currentcontroller.frame.close(true)
End Sub

Mais bien que les noms soient les mêmes, il a quand même fallu réaffecter cette procédure à tous les boutons "Quitter".

OuvreForm34.odb

La base corrigée

(62.48 Kio) Téléchargé 115 fois

Ajout : En lisant plus loin, je vois que la macro OpenForm peut être avantageusement remplacée par ThisDatabaseDocument.FormDocuments.getByName( "NomFormulaire" ).open

OuvreForm34-simple.odb

La base et les macros simplifiées

(62.34 Kio) Téléchargé 198 fois

Il faut vraiment lire beaucoup pour arriver à ce résultat
Cordialement

[jjcordelette]

Bonjour,
Après bien des recherches et une mise en place fastidieuse de ma question, la réponse est là. Sans vous j'étais prés à tout balancer.
Donc un très grand MERCI
Bonne journée

PS me reste à essayer de baliser correctement ma question