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

Cevapla
ademkircicek
Mesajlar: 3
Kayıt: 12 Şub 2013, 10:52
İşletim Sisteminiz: Windows7
LibreOffice Sürümü: 4

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

Mesaj 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?
ademkircicek
Mesajlar: 3
Kayıt: 12 Şub 2013, 10:52
İşletim Sisteminiz: Windows7
LibreOffice Sürümü: 4

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

Mesaj 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
kobzeci
Mesajlar: 258
Kayıt: 01 Ağu 2012, 10:07

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

Mesaj 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.
Cevapla