ODB Dosyasını Açtığımda Direk form açılsın
-
- 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
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?
-
- 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
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
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.
Sanırım http://forum.openoffice.org/en/forum/vi ... 39&t=34147 adresindeki çözüm bu.
Kolaylıklar.