OpenOffice.info

Habe es noch mal neu installiert und geht jetzt.
Bin mal gespannt ...

hallo Wolfram,

hast Du Dich genau an die Anleitung auf Seite7 von xray gehalten?

[quote]Makro in [color=#0000FF]Meine Makros[/color] & Dialoge.Standard[/quote] eingetragen?

und Speichern in : LibreOffice (oder AO) ? Nicht in Deiner Datenbank?

Bei mir funktioniert es nach dieser Anleitung einwandfrei.

Dein erster Versuch kann nicht funktionieren, da Du xray mit rem am Zeilenbeginn auskommentiert hast.


Gruß

acco

BasicLibraries.LoadLibrary("XrayTool")

	oFeld=oForm.getByName("Leistung")
	
rem	BasicLibraries.LoadLibrary("XrayTool")
	Xray oFel

	BasicLibraries.LoadLibrary("XrayTool")
	Xray(oFeld)

Hi Robert,
bekomme das xray tool nicht zum laufen.
Version 6 installiert:
[attachment=0]screenshot.png[/attachment]

Makro beim start von oO eingefuegt:
[code]BasicLibraries.LoadLibrary("XrayTool")[/code]

erster Versuch:
[code] oFeld=oForm.getByName("Leistung")

rem BasicLibraries.LoadLibrary("XrayTool")
Xray oFel[/code]
führt zum Abbruch
BASIC-Laufzeitfehler.
Sub- oder Function-Prozedur nicht definiert.

und so:
[code] BasicLibraries.LoadLibrary("XrayTool")
Xray(oFeld)[/code]
ergibt : BASIC-Laufzeitfehler.
Es ist eine Ausnahme aufgetreten
Type: com.sun.star.container.NoSuchElementException

Ich glaube, ich trete bei meiner Evaluierung in jedes Fettnäpfchen ....

Message: .

Nachtrag:
mit der Version 4.2.4.2 hat sich das Problem ohnehin gelöst.
Das Makro läuft jetzt mit jeder Datenkonstellation durch.

Hallo Robert,
dabke dafuer.
habe mir jetzt das xray geholt und schaue mal was tas tut.
Gruss,
Wolfram

Hallo WSO,

wenn Du viel mit Makros machen willst, dann solltest Du Dir dringend so ein Tool wie xray zulegen. Ich habe gerade einmal die Eingeschaften des Formulares nachgesehen. Vielleicht reicht eine Abfrage mit oForm.InNew oder oForm.IsRowCountFinal. Wenn das True ist, dann kannst Du auf einen Eintrag nicht zugreifen.

Gruß

Robert

sub AussenstaendeOpenFilter (oEvent AS OBJECT)

	DIM oDoc AS OBJECT
  	DIM oDrawpage AS OBJECT
 	Dim oForm As Object
 	Dim oBearbForm As Object
   	Dim oFormDocs As Object
  	Dim oFeld As Object
  	
   
   	DIM nID as integer
  	
  	
  ' Formlarfeld holen
  
  
    oDoc=thisComponent
	oDrawpage=oDoc.Drawpage
	oForm = ThisComponent.Drawpage.Forms.getByName("fAussenstaende")
	oFeld = oForm.getByName("MainForm_Grid").getByName("kud_id")                   <----   Absturz
  
   	nID = oFeld.getCurrentValue()

 	
   ' Bearbeitungsmaske öffnen
   oFormDocs = ThisDatabaseDocument.FormDocuments.getByName("fAussenstaendeDetail").open
   oBearbForm = oFormDocs.Drawpage.Forms.getByName("fAussenstaendeDetail")

  ' Filter setzen
   oBearbForm.Filter = " ""RecKudID"" LIKE '" & nID & "'"
  
   oBearbForm.ApplyFilter = True
   oBearbForm.reload()
   
   	
 end SUB  

Ich verzweige per Satzmarkierung und Pushbutton per Mako auf ein Folgeformular.
Das Makro stüzt ab, wenn das aufrufende Formular leer ist, klar der Zugriff auf das Grid greift ins Leehre, weil keine Zeile markiert ist.
[code]sub AussenstaendeOpenFilter (oEvent AS OBJECT)

DIM oDoc AS OBJECT
DIM oDrawpage AS OBJECT
Dim oForm As Object
Dim oBearbForm As Object
Dim oFormDocs As Object
Dim oFeld As Object


DIM nID as integer


' Formlarfeld holen


oDoc=thisComponent
oDrawpage=oDoc.Drawpage
oForm = ThisComponent.Drawpage.Forms.getByName("fAussenstaende")
oFeld = oForm.getByName("MainForm_Grid").getByName("kud_id") <---- Absturz

nID = oFeld.getCurrentValue()


' Bearbeitungsmaske öffnen
oFormDocs = ThisDatabaseDocument.FormDocuments.getByName("fAussenstaendeDetail").open
oBearbForm = oFormDocs.Drawpage.Forms.getByName("fAussenstaendeDetail")

' Filter setzen
oBearbForm.Filter = " ""RecKudID"" LIKE '" & nID & "'"

oBearbForm.ApplyFilter = True
oBearbForm.reload()


end SUB [/code]

Wie kann ixh das verhindern?
On Error fällt mir ein, ist aber nicht wirklich elegant ...