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.