OpenOffice.info

   ncolumn = oform.findcolumn("URL")
   sUrl = oForm.getstring(ncolumn)

Hi,
ja, mit diesen Zeilen wird erst die Nummer der Spalte URL, ncolumn ermittelt, und dann mit Hilfe der Spaltennummer der Spalteninhalt ausgelesen, hier ein Text (.getstring)
[code] ncolumn = oform.findcolumn("URL")
sUrl = oForm.getstring(ncolumn)[/code]
In unserem Beispiel handelt es sich um die zweite Spalte der Tabelle "Files", daher ist nColumn 2
Gruß R

Hallo *,

ich hänge hier nur kurz die Beispieldatei für so ein Verfahren aus dem Base-Handbuch an.

Gruß

Robert

Sub S_load_url
    oForm = ThisComponent.drawpage.forms.MainForm
    ncolumn = oform.findcolumn("URL")
    oFileseletionbox = oForm.Fileselectionbox
    sUrl = oFileseletionbox.Text
    oform.updatestring(ncolumn,sUrl)
    if oform.isnew then oform.insertrow else oform.updaterow
    nrow = oform.row
    oform.reload
    oform.absolute(nrow)
End Sub

Hi,
der Dateipfad wird nach dem Datensatzwechsel in die Schaltfläche eingetragen. Daher müsstest Du nach dem Einlesen eines neuen Pfades einmal den Datensatz wechseln oder "aktualisieren" drücken.
Diese Aktion habe ich nun in das Makro [color=#0040FF][b]S_load_url[/b][/color]
[code]
Sub S_load_url
oForm = ThisComponent.drawpage.forms.MainForm
ncolumn = oform.findcolumn("URL")
oFileseletionbox = oForm.Fileselectionbox
sUrl = oFileseletionbox.Text
oform.updatestring(ncolumn,sUrl)
if oform.isnew then oform.insertrow else oform.updaterow
nrow = oform.row
oform.reload
oform.absolute(nrow)
End Sub[/code] durch zufügen der letzten drei Zeilen mit eingebaut.
Gruß R

Sub S_Datei_Oeffnen
   oForm = ThisComponent.drawpage.forms.MainForm
   ncolumn = oform.findcolumn("URL")
   sUrl = oForm.getstring(ncolumn)
   oShell = createUnoService("com.sun.star.system.SystemShellExecute")
   oShell.execute(sUrl,,0)
end sub

Sub S_Insert_URL_Button
   oForm = ThisComponent.drawpage.forms.MainForm
   oButton = oForm.cmdopenFile
   ncolumn = oform.findcolumn("URL")
   sUrl = oForm.getstring(ncolumn)
   oButton.TargetURL = sUrl
end sub

Hi,
ja, das geht per Makro.
Es gibt mehrere Varianten z.B. mit Hilfe einer Schaltfläche
[list=1][*]Per Shell-Befehl
[*]Durch Nutzung der Eigenschaft [color=#0040FF]Aktion: Dokument/Webseite öffnen[/color] der Schaltfläche.[/list]
Siehe Beispiel anbei.
Bei Variante 1. wird das Makro [code]Sub S_Datei_Oeffnen
oForm = ThisComponent.drawpage.forms.MainForm
ncolumn = oform.findcolumn("URL")
sUrl = oForm.getstring(ncolumn)
oShell = createUnoService("com.sun.star.system.SystemShellExecute")
oShell.execute(sUrl,,0)
end sub[/code] beim Druck auf den Knopf ausgeführt. Es liest den Dateipfad aus und öffnet die Datei per Shell
Bei Variante 2 wird das Makro[code]Sub S_Insert_URL_Button
oForm = ThisComponent.drawpage.forms.MainForm
oButton = oForm.cmdopenFile
ncolumn = oform.findcolumn("URL")
sUrl = oForm.getstring(ncolumn)
oButton.TargetURL = sUrl
end sub[/code] dem Formularereignis "nach dem Datensatzwechsel" zu geordnet.
Jedes Mal, wenn der Datensatz gewechselt wird, wird der aktuelle Dateipfad in die Eigenschaft URL der Schaltfläche eingetragen.
Beim Druck auf die Schaltfläche wird kein Makro, sondern die Aktion: Dokument/Webseite öffnen ausgeführt.

HTH R