(Gelöst)Formulare öffnen per Button

[Decrone]

Ich habe ein Hauptformular, von denen ich aus alle anderen Formulare per Button öffne. Was mich nur stört ist, ich habe für jedes Formular öffnen ein eigenes Makro.

Code: Alles auswählen

Sub OpenFormAuftraggeberTabelleFormular
	ThisDatabaseDocument.FormDocuments.getByName( "AuftraggeberTabelleFormular" ).open
End Sub

Jetzt meine Frage:
Kann man irgendwie dem Button eine Information hinterlassen welches Formular geöffnet werden soll, so das man nur ein Makro benutzt und sobald man den Button drückt wird dem Makro mitgeteilt welches Formular geöffnet werden soll, geht das in dieser Art oder ist das so gar nicht möglich?

Gruß Dec

[guenther]

du könntest die information im Tag-feld des buttons unterbringen

Code: Alles auswählen

sub evCtl_OpenFrom(event as object)
   	ThisDatabaseDocument.FormDocuments.getByName( event.Source.Model.Tag ).open 'Formularname
end sub 

siehe Bsp02.odb, frm_OpenCloseForm http://members.aon.at/schardinger/openoffice/index.html

servus, günther

[Decrone]

Vielen, vielen Dank Günther
das funktioniert super, zwar mußte ich erstmal schauen wo ich den Tag finde aber es ging dann doch relativ schnell.

Gruß Dec

PS.
geht das auch eventuell mit 2 Parametern?

[ddraht]

Hallo Dec,

Eigenschaften: Schaltfläche
Zeile Zusatzinformationen hier den Namen des Formulars eintragen.

Konnte ich auch gut gebrauchen.

Gruß
ddraht

[Decrone]

Ja das ist ne feine Sache

wenn man soviele Forms hat und jedes hat sein Makro z.B. öffnen und schließen, da kommt dann doch allerhand an Makro's zusammen. Jetzt würde mich mal Interessieren ob das ganze auch mit 2 Parametern geht oder gibt es ein Befehl zum schließen für ein bereits (Aktive's) geöffnetes Formular?

Gruß Dec

[ddraht]

Hi Dec,

logischerweise mit close statt open

ddraht

[Decrone]

ne das ist mir schon klar

nur es wäre ja schön, wenn man 2 Parameter mit übergeben könnte! Erste Para öffnet Formular, 2 Para schließt Formular!

das öffnen und schließen ist nicht das Problem!

Verstehste

Gruß Dec

[guenther]

zwei parameter: du kannst ja jede information des buttons auslesen: z.B. Label, Name usw.

sonst besser, beliebige parameteranzahl:

im Tag-String kannst du ja beliebige informationen unterbringen und auslesen:

"info1,info2,info3 ..."

geht einfach mit join(...) und split(...)

servus, günther

[Decrone]

Vielen Dank Günther,

mit Split() hatte ich mir auch schon überlegt gehabt, bin dann aber irgendwie von diesem Gedanken weg gekommen aber nachdem du mich da nochmal drauf hingewiesen hast, ist folgendes bei raus gekommen. Ich weiß zwar nicht genau ob man mit dem Syntax so umgeht aber es funktioniert 1A

Code: Alles auswählen

sub evCtl_OpenFrom(event as object)
	DIM Tag AS String
	Tag = event.Source.Model.Tag
	oForm() = Split(Tag, ",")
	ThisDatabaseDocument.FormDocuments.getByName( Trim(oForm(0)) ).open
	ThisDatabaseDocument.FormDocuments.getByName( Trim(oForm(1)) ).close
end sub 

Ich habe Trim() dazu genommen, um eventuell vorhandene Leerzeichen wegzubekommen!

Ich kann mich nochmals bei dir recht herzlich bedanken und einen schönen 1 Mai wünsche ich Dir /Euch

Gruß Dec

[Swichi]

Vielen Dank auch von mir... Genau das, was ich wollte.

[DPunch]

Aloha

Basic-Laufzeitfehler, Objektvariable ist nicht belegt... weis jemand was ich falsch mache?

Hast Du ein Formular mit Namen "AuftraggeberTabelleFormular"?