[Risolto] Macro apre file esterno
Inviato: giovedì 12 aprile 2012, 18:36
Ciao ho un problema...o non scriverei 
ho un form con due campi URL con 2 pulsanti associati per aprire in 2 cartelle diverse 2 file, un pdf e un odt prendendo esempio da file Vladko che ho allegato di nuovo.
il primo funziona perfettamente, il secondo mi da errore: PROPRIETA' O METODO NON TROVATI: TEXT
Essendo le 2 macro uguali non riesco a capire, ho fatto diverse prove ma nulla, lo stesso errore, mi potete dare una dritta?
Grazie
esempio preso da link Vladko
macro perfettamente funzionante
stessa macro abbinata a altro pulsante e altro campo di testo, vanno in conflitto? Non riesco a capire nei 2 campi URL e' uguale, ovviamente con diverso indirizzo, cmq nel dare OK su errore poi mi apre il file
ho un form con due campi URL con 2 pulsanti associati per aprire in 2 cartelle diverse 2 file, un pdf e un odt prendendo esempio da file Vladko che ho allegato di nuovo.
il primo funziona perfettamente, il secondo mi da errore: PROPRIETA' O METODO NON TROVATI: TEXT
Essendo le 2 macro uguali non riesco a capire, ho fatto diverse prove ma nulla, lo stesso errore, mi potete dare una dritta?
Grazie
esempio preso da link Vladko
macro perfettamente funzionante
Codice: Seleziona tutto
function openurlimm(oEv as object)
'
dim oForm,oComboBox
oForm=oEv.source.model.parent
oComboBox=oForm.getbyname("Immagine")
if FileExists ( oComboBox.text) then
oEv.source.model.targeturl=oComboBox.text
openurlimm=true ' Do the programm when the file exists
else
openurlimm=false ' The file does not exist and do nothing
end if
'print convertfromurl(oTextBox.text)
End function
Codice: Seleziona tutto
function openurlrep(oEv as object)
'
dim oForm,oComboBox
oForm=oEv.source.model.parent
oComboBox=oForm.getbyname("Report")
if FileExists ( oComboBox.text) then
oEv.source.model.targeturl=oComboBox.text
openurlrep=true ' Do the programm when the file exists
else
openurlrep=false ' The file does not exist and do nothing
end if
'print convertfromurl(oTextBox.text)
End function