Macro: Get Name of current form

[BirdyB]

Hello there,

actually i'm creating a database with OO Base. I created a "Startup-Script" which ist run by each form on open. It actually just hides the menubar and some other stuff.
Now i'd like to adjust the window-size depending on the name of the form.
Actually i just don't know, how to get the form name in my macro.

Can anyone help me please?

Thanks a lot!

[F3K Total]

Hello,
like this?

Code: Select all

Sub get_Form_Name_1
   aArgs = thiscomponent.Args
   for i = 0 to uBound(aArgs)
       if aArgs(i).Name = "DocumentTitle" then 
           sFormName = aArgs(i).Value
           exit for
       end if
   next i
   msgbox (sFormName,64,"Name of the current Form")
end sub

or this

Code: Select all

Sub get_Form_Name_2
   sFormName = Split(thiscomponent.Title," : ")(1)
   msgbox (sFormName,64,"Name of the current Form")
end sub

R