Il giorno dom, 04/11/2007 alle 10.38 +0100, Jack © ha scritto:
> ozanam wrote:
> > grazie ai suggerimenti di qualcuno della lista sono riuscito a far
> > partire una macro,tramite pulsante, per visualizzare un file il cui path
> > era registrato in un campo del db; su una maschera semplice funziona
> > perfettamente ma se nella maschera vi sono dei sottoformulari ed i dati
> > si trovano in un campo filtrato dagli stessi non riesco a far partire la
> > macro; messaggio d'errore errore di runtime proprietà o metodo non
> > trovati. Qualche soluzione?
>
> Se non trova i Metodi e le propieta' e' perche' non stai puntando quel
> controllo (textBox o altro) in modo corretto, se posti qualche riga di
> codice e la gerarchia dei formulari sarebbe meglio.
>
me ne sono reso conto.Ma
REM ***** BASIC *****
Sub Testo1
oForm = ThisComponent.DrawPage.forms.Standard
dataf=oForm.GetByName("Testo1")
a=dataf.text
if FileExists(a) then
oSvc = CreateUnoService("com.sun.star.system.SystemShellExecute")
oSvc.execute(ConvertToUrl(a), "", 0)
else
msgbox "il file non esiste"
end if
End Sub
Sub Testo2
oForm = ThisComponent.DrawPage.forms.Standard
dataf=oForm.GetByName("Testo2")
a=dataf.text
if FileExists(a) then
oSvc = CreateUnoService("com.sun.star.system.SystemShellExecute")
oSvc.execute(ConvertToUrl(a), "", 0)
else
msgbox "il file non esiste"
end if
End Sub
Sub Testo3
oForm = ThisComponent.DrawPage.forms.Standard
dataf=oForm.GetByName("Testo3")
a=dataf.text
if FileExists(a) then
oSvc = CreateUnoService("com.sun.star.system.SystemShellExecute")
oSvc.execute(ConvertToUrl(a), "", 0)
else
msgbox "il file non esiste"
end if
End Sub
Sub Testo4
oForm = ThisComponent.DrawPage.forms.Standard
dataf=oForm.GetByName("Testo4")
a=dataf.text
if FileExists(a) then
oSvc = CreateUnoService("com.sun.star.system.SystemShellExecute")
oSvc.execute(ConvertToUrl(a), "", 0)
else
msgbox "il file non esiste"
end if
End Sub
Sub Testo5
oForm = ThisComponent.DrawPage.forms.Standard
dataf=oForm.GetByName("Testo5")
a=dataf.text
if FileExists(a) then
oSvc = CreateUnoService("com.sun.star.system.SystemShellExecute")
oSvc.execute(ConvertToUrl(a), "", 0)
else
msgbox "il file non esiste"
end if
End Sub
--
http://web.tiscali.it/ozanam
Non è compito mio Questa è la storia di quattro persone chiamate: Ognuno,
Qualcuno, Ciascuno e Nessuno.
C'era un lavoro importante da fare e Ognuno era sicuro che Qualcuno lo avrebbe
fatto. Ciascuno avrebbe potuto farlo ma Nessuno lo fece. Qualcuno si arrabbiò
perché era un lavoro di Ognuno. Ognuno pensò che Ciascuno poteva farlo ma
Nessuno capì che Ognuno non l'avrebbe fatto.
Finì che Ognuno incolpò Qualcuno perché Nessuno fece ciò che Ciascuno avrebbe
potuto fare.
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
