[Résolu][Base] Ouvrir les formulaires sur un nouvel enregistrement

[Dude]

Alors déjà, je trouve particulièrement désobligeant le fait que tu enlèves la mention de l'origine de la macro.
Il y a une question de respect pour l'auteur lorsque l'on pompe son travail.

Alors, ça fonctionne, mais ça reste limité à des tables "légères"... Si la table contient beaucoup d'enregistrements

Quel est intérêt de charger une table si c'est pour se positionner sur un nouvel enregistrement ?
Problème XY et on en revient à la solution de jeanmimi.

[gaelviller]

Alors, j'ai généré des données pour remplir la table et je vous joins le résultat :

DB_Test.odb

L'ouverture du formulaire ne se fait pas sur 'nouvel enregistrement'...

[gaelviller]

Bonjour,

Alors déjà, je trouve particulièrement désobligeant le fait que tu enlèves la mention de l'origine de la macro.
Il y a une question de respect pour l'auteur lorsque l'on pompe son travail.

Loin de moi l'idée de me montrer désobligeant. N'étant pas habitué au fonctionnement de ce forum, j'en découvre les habitudes. Je n'ai pas souhaité manquer de respect à l'auteur auquel j'ai "pompé" le travail (je pense avoir cité dans mes messages précédents mes sources d'inspiration). Si j'ai heurté, sans le vouloir, certains membres en allégeant le code de la macro, je vous prie de bien vouloir m'en excuser. J'ai pensé que ces informations étaient à mon attention afin de me permettre de retrouver les notions apportées. Ce que j'ai tenté de faire ce n'était qu'exposer les informations qui me semblaient utiles pour m'assurer que j'avais bien compris les éléments en place. S'il est nécessaire que certaines mentions soient remises pour le partage commun, n'hésite pas à me le signaler ou à repartager le code !

Problème XY

J'ai exposé dans le titre de ce fil une demande : ouvrir un formulaire "automatiquement" sur un nouvel enregistrement (besoin X exposé dans le titre et dans mes messages tout au long du fil). Etant donné que ma base est constituée de formulaires reliés entre eux par des boutons (et donc des macros), j'ai souhaité orienter ma demande dans ce sens (besoin Y exprimé dans les messages). Cependant, je ne veux pas brider la créativité de chacun (il y a sûrement plusieurs moyens d'atteindre un même objectif) ! Si tu as une solution pour que ça fonctionne simplement à l'ouverture de n'importe quel formulaire, merveilleux, je prends !

Merci pour le temps accordé.

[Dude]

en allégeant le code de la macro

Tu n'allèges rien en enlevant la référence à la source.

Si tu as une solution pour que ça fonctionne simplement à l'ouverture de n'importe quel formulaire

Bis repetitae :

on en revient à la solution de jeanmimi.

Car il n'y a aucun

intérêt de charger une table si c'est pour se positionner sur un nouvel enregistrement

Code : Tout sélectionner

Sub Ouvrir_Type
	const FormAOuvrir ="Form-Type"'[nomFormulaire-àouvrir]
	const FormAFermer ="MENU"'[nomFormulaire-àfermer]
	'issue du suprême https://forum.openoffice.org/fr/forum/viewtopic.php?p=178282#p178282
	'ne pas supprimer cette référence quand on pompe
	oForms = ThisDatabaseDocument.FormDocuments
	Lien = oForms.getbyname(FormAOuvrir).open
	oForm = Lien.DrawPage.Forms.getByName("MainForm")'[nom"sous"Formulaire]
	
	With oForm
		Do while .isLoaded = false
		Loop
		.last
		.moveToInsertRow
	End with
	
	bRet = oForms.getByName(FormAFermer).close
End Sub

[gaelviller]

Bis repetitae :

on en revient à la solution de jeanmimi.

J'entends bien, cependant, cette solution rend le formulaire inexploitable puisque le contrôle de table est alors rendu inopérant. Il n'est donc pas possible d'y voir les enregistrements déjà saisis, or cette base de données sera ensuite exploitée par différents utilisateurs. Ça complique grandement les choses de ne plus pouvoir utiliser les outils disponibles...

Car il n'y a aucun

intérêt de charger une table si c'est pour se positionner sur un nouvel enregistrement

Encore une fois, je comprends bien que, à tes yeux d'utilisateur averti, il n'y a aucun intérêt. Cependant, si j'ai initié ce post, c'est parce que d'autres avant moi avaient eu la même idée (depuis 2008...). Ils ont trouvé de l'aide ici grâce à des personne bienveillantes et sont arrivés au résultat souhaité (résultat que je n'arrive pas à adapter à ma base, j'en conviens !) Ceci-dit, même en relisant leurs échanges, il ne se trouve personne qui leur ait répondu ce genre d'affirmation !

Code : Tout sélectionner

'ne pas supprimer cette référence quand on pompe

Hmm... Je sens le message personnel !
PS : Merci pour le code, j'étais en train de le ré-écrire pour le republier. Tu es bien plus expert que moi, à n'en point douter !
D'ailleurs, le .last n'était pas présent à l'origine, je vais le tester...
[Edit] J'ai testé avec ta proposition de code, mais je reviens au même résultat. Cependant, en reprenant une autre manière de coder, ça semble fonctionner : (Je me suis permis de retirer le message perso ! )

Code : Tout sélectionner

Sub Ouvrir_Type'[nomMacro]
	const FormAOuvrir ="Form-Type"'[nomFormulaire-àouvrir]
	const FormAFermer ="MENU"'[nomFormulaire-àfermer]
		oForms = ThisDatabaseDocument.FormDocuments
		Lien = oForms.getbyname(FormAOuvrir).open
		'issue du suprême https://forum.openoffice.org/fr/forum/viewtopic.php?p=178282#p178282
		oForm = Lien.DrawPage.Forms.getByName("MainForm")'[nom"sous"Formulaire]
		'attend que le formulaire soit chargé
		Do while oForm.isLoaded = false
		Loop
		wait 100 '[attente en ms]
		with oForm	
			.last
			.moveToInsertRow
		End with
	bRet = oForms.getByName(FormAFermer).close
End Sub

J'ai testé sans la variable wait, mais ça ne fonctionnait pas, puis j'ai re-testé avec différentes durées de plus en plus courte jusqu'à 1, sans rencontrer le moindre pb donc je pense que laisser à 100 est un bon compromis... Mais comme je ne m'y connais pas, je demande l'avis d'un habitué ! [/Edit]

[Dude]

cette solution rend le formulaire inexploitable puisque le contrôle de table est alors rendu inopérant

Un formulaire avec un contrôle de table peut disposer d'une barre de navigation qui permet d'avoir un bouton pour ajouter un nouvel enregistrement.
Cela me semble parfaitement exploitable et surtout ne nécessite aucune macro et surtout pas la gymnastique de codage que tu as ici.

J'ai testé sans la variable wait, mais ça ne fonctionnait pas

L'attente est inutile sous OpenOffice (testé sous Windows 10 et Debian 12) avec ton ODB.
La temporisation est sans doute nécessaire pour LibreOffice uniquement (ou MacOS).



Comment clore le sujet : viewtopic.php?t=3299

[jeanmimi]

En application de ce que tu as pu lire plus avant, je te propose la solution que j'avais émise :
dans le formulaire, la partie haute ne permet la saisie que d'un nouvel enregistrement, la partie basse, après clic sur le bouton, afficha dans le contrôle de Table les derniers enregistrements effectués.