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

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

#522 İleti | ademkircicek | 13 Şub 2013, 11:00

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
 
İleti: 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

#532 İleti | ademkircicek | 21 Şub 2013, 10:39

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
ademkircicek
 
İleti: 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

#533 İleti | kobzeci | 21 Şub 2013, 10:47

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.
kobzeci
 
İleti: 265
Kayıt: 01 Ağu 2012, 10:07


Base - Veritabanı

Kimler çevrimiçi

Kayıtlı kullanıcılar: Bing [Bot], Google [Bot]

cron