[Risolto] collegare ad un form un file di testo

[jacobotti]

Buongiorno.
So già che probabilmente verrò redarguito, eppure ho provato a cercare nel forum la soluzione al mio problema ma non l'ho trovata, abbiate pietà
Devo creare un database di pazienti, con nome-cognome-indirizzo-email-etc e fin qui ci sono.
Per ogni singolo paziente, devo anche scrivere una diagnosi, quindi su un file di testo.
Come faccio a collegare il file di testo con la diagnosi - che avevo precedentemente scritto - alla scheda del paziente?
Meglio ancora, come faccio ad avere per ogni scheda paziente (Form) l'opzione che mi permette di aprire un file di testo vuoto dove scrivere la diagnosi e fare in modo che sia collegata a quella scheda?

Vi ringrazio per l'aiuto.

Jaco

[charlie]

Ciao e benvenuto sul forum.
Se intanto ti vuoi presentare puoi farlo qui: viewforum.php?f=16
Per una panoramica delle regole consulta il Manuale di sopravvivenza.
Buon proseguimento.

[charlie]

Ciao, qui: viewtopic.php?f=13&t=7169 trovi un esempio d'uso di una macro che va attivata tramite pulsante con l'URL del file inserito in un campo del database. Funziona.

Edit: ti ricordo che in ambiente Mac il percorso va indicato, ad esempio per un file sulla scrivanioa, così: /Users/nomecomputer/Desktop/Nomefile.odt

[jacobotti]

Ciao Charlie, ok mi è molto utile grazie.
Solo non capisco se il campo URL della tabella è un campo normale, oppure particolare.
Nel senso che basta aggiungere nella descrizione del CAMPO della tabella il percorso dove si trova il file?

Grazie ancora

[charlie]

Da quello che vedo, il campo contenente l'URL è di tipo testo.
All'evento Eseguire l'azione del pulsante è associata la macro sApriDoc che fa il lavoro di apertura del file:

Codice: Seleziona tutto

Sub sApriDoc(Event As Object)
	Dim oFormD As Object
	Dim sURL As String
	On Error Goto Err_sApriDoc
	oFormD=Event.Source.Model.Parent
	If oFormD.IsModified Then
		If oFormD.IsNew Then oFormD.InsertRow Else oFormD.UpdateRow
	End If
	sURL=ConvertToURL(oFormD.Columns.GetByName("URL").GetString)
	If Dir(sURL)="" Then
		MsgBox "cartella non trovata: " & sURL
		Exit Sub
	End If
	StarDesktop.loadComponentFromURL(sURL,"_blank",0,Array())
	Exit Sub
Err_sApriDoc:
	MsgBox "Errore per aprire: " & sURL
	On Error Goto 0
End Sub

[jacobotti]

Ok per un principiante credo sia troppo complesso, già ho problemi pratici nel mettere in relazione le due tabelle ARCHIVIO e PAZIENTI per ID come nell'esempio (hanno associato l'ID PAZIENTI con ID della tabella archivio, con relativa voce URL, ma quell'URL rimanda semplicemente alla tabella archivio oppure è già un esempio di percorso dove pescare il file di testo del paziente?)

Rispetto al pulsante... non trovo l'EVENTO "esegui l'azione" ne tantomeno trovo la MACRO "sApriDoc"...forse è una macro fatta su misura?

Non so chiaramente come si fa a vedere le righe di comando come nel tuo esempio.

Tanta roba

[charlie]

Quello postato è un esempio che devi adattare al tuo caso.
Se vuoi un ulteriore aiuto, devi allegare il tuo database (senza dati sensibili, mi raccomando).

[jacobotti]

Va bene, posso anche prendere il progetto d'esempio ed adattarlo
Mi chiedo solo dove va inserito l'URL specifico dei miei file.

Grazie

[vladboscaneanu]

Ciao, ecco un esempio che apre solo i file txt.
Funziona nel ambiente Windows,per quello che riguarda Mac,non so .

[charlie]

Vlad, il tuo file non si apre. Sei sicuro che sia con HSQLDB embedded?
Comunque anche il file di cui stavo parlando io funziona.

[jacobotti]

Niente quest'ultimo non lo apre

[charlie]

Cerco di spiegarti con alcune videate.
L'url lo puoi scrivere sul formulario o sulla tabella:

[charlie]

Per macro, evento ecc. vedi qui:

[jacobotti]

Ok ora mi è chiaro, però mi da questo messaggio quando apro il database. Purtroppo non trovo la voce STRUMENTI/OPZIONI/OPEN OFFICE/SICUREZZA

[charlie]

In Mac guarda in Preferenze

[vladboscaneanu]

Ciao.
L'errore è dovuto al fatto che voi usate OpenOffice , mentre io - LibreOffice.
Da abitudine ho indicato come motore FireBird, che OpenOffice ovviamente non conosce.
Provate questa versione.

[charlie]

Sì Vlad, funziona.
Già che ci sei, @jacobotti voleva aprire un file esistente se c'è o uno nuovo se non c'è. E' possibile?

Da abitudine ho indicato come motore FireBird, che OpenOffice ovviamente non conosce.

In realtà sto adoperando LiBo, ma non mi passa neanche per la mente di utilzzare firebird.

[jacobotti]

Quello di Vlad mi andrebbe già bene
Ma come faccio a crearlo io nel mio formulario?

grazie

[charlie]

E' un database che difficilmente potrai adoperare, non c'è nemmeno una tabella.

[charlie]

Se vuoi un ulteriore aiuto, devi allegare il tuo database (senza dati sensibili, mi raccomando).

[jacobotti]

Se vuoi un ulteriore aiuto, devi allegare il tuo database (senza dati sensibili, mi raccomando).

Ok Charlie eccolo, vorrei solo l'aggiunta del pulsante come quello di Vlad
L'alternativa ancora migliore potrebbe essere un pulsante già associato al percorso del file di testo del cliente, quindi ciccando sul pulsante aprirebbe direttamente il file di testo. (ovviamente la prima volta il percorso del file lo dovrei immettere io)

[vladboscaneanu]

Allego il tuo database, con il pulsante "Apri..." che permette ad aprire una certa cartella, il cui percorso va inserito nella macro.
Per un corretto funzionamento, consiglio vivamente di usare LibreOffice, a causa di un vecchio bug, presente in OpenOffice.
In più ,vanno usate le finestre di dialogo di LibreOffice (Opzioni -> Generale -> Usa finestre di dialogo di LibreOffice
Saluto

[jacobotti]

Ok Vlad funziona. Però non so come inserire il percorso nella macro.

Grazie

[jacobotti]

Forse ho capito, devo inserire il percorso dove dice:

percorso="C:\" da modificare (anche se su Mac immagino sia differente il percorso).

Riesco ad aprire la Macro generale da STRUMENTI/MACRO/ORGANIZZA MACRO/OPEN OFFICE ma credo che in questo modo la cambio su tutti.

Non riesco a capire come modificare la Macro sulle singole schede, ma forse questo non è previsto

[vladboscaneanu]

E previsto, anche come ...
Come facevo altrimenti a scrivere e spedire una certa macro con un documento?
Devi seguire i passi, da te indicati, metre hai il documento aperto.In questo caso riesci a vedere le eventuali macro, incorporate
nel documento, e anche modificarli.
Nel tuo caso si tratta di una sola routine, chiamata apri_txt_file . Scegli Modifica, cosi puoi accedere al codice e modificarlo.
.........................................................................................................................................................

macro window

[jacobotti]

Vlad ti ringrazio, gentilissimo. E' vero, con OpenOffice questo database ha qualche problema, nel senso che s'impalla in apertura.
Ho scaricato LibreOffice Still per Mac, ma purtroppo arriva alla fine della Verifca, ma non s'installa.
Mi rendo conto che questo è un altro problema.

[vladboscaneanu]

Mi spiace, non sono un'esperta in Mac. Speriamo che qualcuno si fa avanti con qualche consiglio utile.

[jacobotti]

Fa niente, rimango con Open Office. Comunque ho provato a cambiare il percorso ma non succede nulla. Allego foto
Inoltre mi cambia tutte le macro.

I due punti alla fine li ho tolti, errore mio

[vladboscaneanu]

Io non conosco il sistema MacOS, perciò non so nemmeno comme si rappresenta l'indirizzo di un file o una cartella in Mac.
La seconda cosa:
Nelle opzioni di OpenOffice dovrebb'essere l'opzione Usa le finestre di dialogo di OpenOffice.Prova ad attivare quest'opzione.
Poi:
Nella macro va indicato il percorso per la cartella,non per il file.

[charlie]

Editato: Siete pregati di usare un indice nei nomi di file che allegate, altrimenti si genera confusione

Ritengo che la strada indicata da Vlad ci abbia un po' portato fuori pista . Infatti bisogna scegliere di volta in volta il file che si vuole aprire.
Se l'obiettivo era, come credo, quello di aprire un file testo di diagnosi diverso per ogni paziente bisogna tornare alla macro da me postata ieri (non è mia ma funziona benissimo).
Nell'esempio che allego, ho aggiuto un campo al database con l'url per aprire un file diverso per ogni paziente.
In Mac, l'avevo già indicato, l'url si indica senza la "C":

Codice: Seleziona tutto

/Users/giacomo/Documenti/NomeFile.Tipofile

Per funzionare i file di testo Prova.odt e Prova 2.odt devono esistere e essere all'interno della cartella Documenti del Mac.