OpenOffice.info

Code: Alles auswählen

If oSubForm.isModified Then
	oSubForm.updateRow
End If

Code: Alles auswählen

REM*** Berechnung des Mittelwertes aus Min und Max Feldern und Zuweisen an Avrg Feld ***

 dim Bas
 dim oDocuments 
 dim Doc
 dim oPage
 dim oDrawPage
 dim oElement 
 dim oElements 
 dim oSubForm 
 dim oColumns
 dim oColumnMin
 dim oColumnMax
 dim oColumnAvg
  
 dim c as Double 
 dim d as Double 
 dim e as Double 

Sub avrg

   oBase             =  ThisDatabaseDocument 
   oDocuments        =  obase.getFormDocuments()
   oDoc              =  oDocuments.getByName("basictest")
   oPage             =  oDoc.getComponent()
   oDrawPage         =  oPage.DrawPage 
   oForms            =  oDrawPage.getForms()
   oElement          =  oForms.getByName("MainForm")
   oSubForm          =  oElement.getByName("Search")
   oColumns          =  oSubForm.getColumns()
   oColumnMin        =  oColumns.getByName("min")
   oColumnMax        =  oColumns.getByName("max")

'   xray oColumnMin

   c                 =  oColumnMin.Float
   d                 =  oColumnMax.Float
   e                 =  (c+d)/2

   msgbox(e) REM ---------------> Hier steht der richtige Wert

REM ******************************************************   
REM  Diese Anweisung erzeugt den Fehler "Lesefehler: Eigenschaft ist schreibgeschützt"     
REM  oColumns.getByName("ranking").Float = e

REM Diese Anweisung erzeugt keinen Fehler-tut aber nichts  
   oColumns.getByName("ranking").updateFloat(e)
REM ***********************[code]********************************

Code: Alles auswählen

REM*** Berechnung des Mittelwertes aus Min und Max Feldern und Zuweisen an Avrg Feld ***

 dim oDoc     
 dim oForms   
 dim oForm    
 dim Page
 dim oDrawPage
 dim oElement 
 dim oPageForms 
 dim oSubForm 
 dim oSubElement
 dim oSubControl
 dim oControlColumnMin
 dim oControlColumnMax
 dim oControlColumnAvg
  
 dim c as Double 
 dim d as Double 
 dim e as Double 

Sub avrg

   oDoc              =  ThisComponent
   oForm             =  oDoc.DrawPage.Forms.GetByName("MainForm")
   oElement          =  oForm.getByName("Search")
   oSubControl       =  oElement.columns.getByIndex(6)
   oControlColumnMin =  oElement.columns.getByIndex(4).value
   oControlColumnMax =  oElement.columns.getByIndex(5).value

   c                 =  oControlColumnMin
   d                 =  oControlColumnMax
   e                 =  0
   e                 =  (c+d)/2

  msgbox(e)

   oSubControl.updateDouble(e)

  msgbox(oSubControl.value)

 xray  oSubControl
 End Sub

Code: Alles auswählen

GlobalScope.BasicLibraries.LoadLibrary("XrayTool")
'dann funktioniert:
xray StarDeskTop

Code: Alles auswählen

REM*** Testzugriff auf ein Datenbankformular mit Namen basictest in der Datenbank awetherische_oele.odb ***

 dim oDoc     
 dim oForms   
 dim oForm    
 dim Page
 dim oDrawPage
 dim oElement 
 dim X        


Sub Main
   x         = "TEST"
  
   oDoc      = ThisComponent
'Ist die Datenbank   
   x         = oDoc.getUrl
  msgbox (X) 

'****************************************
'  oDrawPage  = oDoc.getDrawPage
'Gibt den Basic Laufzeitfehler  "Eigenschaften oder Methode nicht gefunden" zurück
  oDrawPage  = oDoc.DrawPage
'Gibt den Basic Laufzeitfehler  "Eigenschaften oder Methode nicht gefunden" zurück
'**********************************************  
  
'Gibt die URL des Datenbankfiles aus - ist korrekt   
   oForms    = ThisComponent.getFormDocuments()
'Ermittelt alle Formulare, die für obige Datenbank erstellt wurden   
   oForm     = oForms.getByIndex(1)
'Weist das Formular mit dem Index 1 zu
   x         = oForm.Name
  msgbox (X) 
'Gibt den Namen des Formulars mit Index 1 aus (funktioniert auch mit den anderen Indizes)  

'Dieses Formular kann als Writer Dokument abgespeichert werden, müsste also eine DrawPage haben   

'  oPage     =  oForm.DrawPage
'Gibt den Basic Laufzeitfehler  "Eigenschaften oder Methode nicht gefunden" zurück
'  oPage     =  oForm.getDrawPage
'Gibt den Basic Laufzeitfehler  "Eigenschaften oder Methode nicht gefunden" zurück

   
End Sub

Code: Alles auswählen

REM*** Testzugriff auf ein Datenbankformular mit Namen basictest in der Datenbank awetherische_oele.odb ***

 dim oDoc     
 dim oForms   
 dim oForm    
 dim Page
 dim oDrawPage
 dim oElement 
 dim X        


Sub Main
   x         = "TEST"
  
   oDoc      = ThisComponent
'Ist die Datenbank   
   x         = oDoc.getUrl
  msgbox (X) 
'Gibt die URL des Datenbankfiles aus - ist korrekt   
   oForms    = ThisComponent.getFormDocuments()
'Ermittelt alle Formulare, die für obige Datenbank erstellt wurden   
   oForm     = oForms.getByIndex(1)
'Weist das Formular mit dem Index 1 zu
   x         = oForm.Name
  msgbox (X) 
'Gibt den Namen des Formulars mit Index 1 aus (funktioniert auch mit den anderen Indizes)  

'Dieses Formular kann als Writer Dokument abgespeichert werden, müsste also eine DrawPage haben   

  oPage     =  oForm.DrawPage
'Gibt den Basic Laufzeitfehler  "Eigenschaften oder Methode nicht gefunden" zurück
'  oPage     =  oForm.getDrawPage
'Gibt den Basic Laufzeitfehler  "Eigenschaften oder Methode nicht gefunden" zurück

   
End Sub