1. sayfa (Toplam 1 sayfa)

ODB Dosyasını Açtığımda Direk form açılsın

Gönderilme zamanı: 13 Şub 2013, 11:00
gönderen ademkircicek
Libre ofis base'de hazırlamış olduğumdosyaya çift tıkladığımda içindeki formun tam ekran olarak direkt açılmasını istiyorum. Makro yada başka bir şekilde nasıl yapabilirim?

Re: ODB Dosyasını Açtığımda Direk form açılsın

Gönderilme zamanı: 21 Şub 2013, 10:39
gönderen ademkircicek
başka bir forumdan buldum. Aşağıdaki kodlardan bir makro oluşturdum ve LO/araçlar/özelleştir/olaylar/belge aç a bu makroyu seçtim. sorun çözüldü.

Kod: Tümünü seç

Sub Menu_Main( )
Dim ObjTypeWhat
Dim ObjName As String
ObjTypeWhat = com.sun.star.sdb.application.DatabaseObject.FORM
ObjName = "Menu_Main" 'The name of the form you want to open at Base start-up, this needs to exist.
If ThisDatabaseDocument.FormDocuments.hasbyname(ObjName) Then 'Check the form exists
ThisDataBaseDocument.CurrentController.Connect() 'If the form exists connect to the database
ThisDatabaseDocument.CurrentController.loadComponent(ObjTypeWhat, ObjName, FALSE) 'Open the form
Else
MsgBox "This is embarrassing, sorry, can't find the requested form to open!"+chr(10)+"Form Name = " & ObjName + chr(10)+"Check the details." , 48, "DS4A SBM encountered a problem!"
End if
End Sub

Re: ODB Dosyasını Açtığımda Direk form açılsın

Gönderilme zamanı: 21 Şub 2013, 10:47
gönderen kobzeci
Bilgilendirme için teşekkürler.

Sanırım http://forum.openoffice.org/en/forum/vi ... 39&t=34147 adresindeki çözüm bu.

Kolaylıklar.