[Risolto]Ottimiz. la macro per aprire un file da una tabella

[congiu.andr]

Buon giorno,

sono stato aiutato in quanto avevo l'esigenza di aprire un file dopo averne importato il percorso in un record di una tabella all'interno di un formulario.

Il formulario si chiama F_utili avviabile anche dal formulario MENU

L'importazione del percorso è ok, l'apertura del file è ok ma il problema è la gestione dell'errore se avvio la macro Avvio_file se il campo è vuoto.

In pratica vorrei che se il campo nella tabella è vuoto, mi visualizzi un messaggio che mi trovo nella posizione sbaliata.

di seguito la macro e in allegato il db

Codice: Seleziona tutto

Sub Avvio_file
    FileURL$= ThisComponent.DrawPage.Forms("MainForm").ControlModels("MainForm_Grid").GetByName("FILE").Text ' Nome della colonna dove si trova il percorso
    oSvc = createUnoService("com.sun.star.system.SystemShellExecute")
    oSvc.execute(FileURL,"",0)
End sub

Grazie

andrea

[vladboscaneanu]

Nel esempio che ti ho lasciato prima hai già un "caccia-errori"...guarda bene l'allegato,sono 4 righe in più nel mio codice...e prova aprire qualcosa
usando una riga vuota.
Leggi,quando hai tempo,anche la guida incorporata di OpenOffice--c'è un bel capitolo"Elenco di tutti comandi"(Basic).Sapere di catturare gli errori è fondamentale
per tutti linguaggi,non solo per Basic.

[congiu.andr]

Ciao, hai ragione. Devo aver fatto casino nei copia-incolla, vorrei sprofondare.

Perdonami se ti ho fatto perdere tempo la mia disattenzione.

di seguito il codice completo

Codice: Seleziona tutto

sub Avvio_file
On Error GoTo Giu
FileURL$= ThisComponent.DrawPage.Forms("MainForm").ControlModels("MainForm_Grid").GetByName("FILE").Text ' Nome della colonna dove si trova il percorso
oSvc = createUnoService("com.sun.star.system.SystemShellExecute")
oSvc.execute(FileURL,"",0)
Exit Sub
Giu:
msgbox "Codice :" & Err,48,"C'è un errore!"
end sub

Grazie e ciao