[Risolto] Salvare in tabella percorso pdf

[giuseppe1965]

Buonasera a tutti, sono Giuseppe e leggo spesso il forum dal quale ottengo sempre ottime soluzioni. Per necessità ho creato un piccolo archivio dove vorrei indicare il link su disco di un allegato (pdf) e salvare questo link su una tabella. Nella fase successiva mi occuperò di come visualizzare all'interno del formulario il pdf salvato. Andando per ordine, mi occorre un aiuto sul primo caso: come salvare un allegato pdf una volta selezionato dal disco fisso. In allegato ho inserito il DB di prova che sto testando. Ho trovato una macro da associare al pulsante SALVA ma pigiata genera un errore. Spero di essere stato esaustivo, datemi una mano. Grazie!

[charlie]

Ciao Giuseppe e benvenuto sul forum.
Se intanto ti vuoi presentare, farai cosa gradita. Puoi farlo in questa sezione -> viewforum.php?f=16

L’utente che apre un quesito si impegna:

• a seguirlo dando riscontro quanto prima alle risposte ricevute nel giro di qualche giorno;
  - inserire il [Risolto] e la ✔ verde come previsto;
• rispettare le altre regole implicite del forum ( Istruzioni per nuovi arrivati - Manuale di sopravvivenza ).

In caso di inosservanza saremo costretti ad azioni di “richiamo”, sospensione o chiusura del profilo utente.

Buon proseguimento.

[charlie]

Ciao, assegna questa macro al pulsante.

Codice: Seleziona tutto

REM --------------------------------------------------------------------------------
REM Legge il percorso di un file e lo memorizza in un campo al record corrente 
REM --------------------------------------------------------------------------------
Sub Legge_link (oEvent As Object)
	Dim sPercorso As String
	Dim id As Integer
	Dim oForm As Object
	oForm = oEvent.Source.Model.Parent
    sPercorso = oForm.GetByName("Scelta file 1").Text ' legge percorso	
	id = oForm.getByName("IDCliente").text 'legge chiave primaria tabella	
    oStatement = oForm.ActiveConnection.createStatement() 'crea un'istruzione SQL
    sSQL = "UPDATE ""Clienti-allegato"" SET ""Allegato1"" =  '" + sPercorso + "'  WHERE ""IDCliente"" = '" + id + "'"
	oStatement.executeUpdate(sSQL)	'esegue SQL
	oForm.GetByName("Scelta file 1").Reset()' pulisce percorso 	
	oForm.Reload ' aggiorna formulario
End Sub

[giuseppe1965]

Grazie Charlie, ho copiato la macro, aggiornato il pulsante SALVA con la nuova macro ma ti comunico che non funziona, ovvero il link del pdf selezionato in una parte del disco e visibile sulla stringa di scelta file, non viene memorizzato della tabella.

[charlie]

Sul file allegato la macro funziona.

[giuseppe1965]

Ho scaricato il tuo file odb, nonostante vedo in tabella le stringhe di riferimento dei pdf, se dal formulario clinti-allegato tento di scegliere un nuovo pdf, tasto SALVA, sulla tabella non viene memorizzato nulla. Purtoppo non conosco il codice per le Macro e non riesco a darti ulteriori indicazioni. Mannaggia...

[charlie]

Stai parlando di un nuovo record o di uno esistente?
Il formulario non inserisce un nuovo record perché la chiave primaria della tabella non è impostata con incremento automatico.

[giuseppe1965]

Se modifico un record esistente inserendo un nuovo allegato pdf il tasto SALVA non memorizza la variazione. Se inserisco un nuovo record, digitando manualemente ID e il resto dei campi, il tasto SALVA non memorizza comunque la stringa dell'allegato pdf. Che ti dico...

[charlie]

Nel nuovo allegato ho inserito una griglia che visualizza la tabella.
Ci sono due macro e due pulsanti, uno salva il percorso sul record corrente (è la macro precedente), uno salva il percorso in un nuovo record.

[giuseppe1965]

Ciao Charlie e grazie per tutto l'impegno prufuso, solo che eseguendo il formulario vengono registrate solo i campi ID, COGNOME, NOME, MAIL ma non l'allegato sia in nuovo record che in update di un record esistente. Dato che a te funziona, ho il dubbio che io debba cambiare qualche parametro all'interno della MACRO per i riferimenti del mio file su disco?

[charlie]

Se usi il file che ho allegato, deve funzionare su qualsiasi computer, ho fatto un test anche in Windows 10.
Se, invece usi le macro in un altro file, devi adattare tutti i nomi campo.
Piuttosto ho visto che in caso di immissione dati Cognome, Nome, indirizzoEmail contemporaneamente al Percorso del file allegato, memorizza in un nuovo file solo il Percorso.
Ho fatto una modifica e ora funziona anche questo. Mentre il pulsante che lavora sul record corrente, memorizza solo il valore del Percorso.

[giuseppe1965]

Charlie sei troppo gentile. Questo weekend ho terminato il mio personale archivio che non è altro che una piccola gestione protocollo della posta di entrata e uscita. Allego il file odb, vedi se puoi darmi una mano sul formulario GESTIONE PROTOCOLLO con la MACRO per memorizzare e visualizzare un file pdf da allegare. Grazie in anticipo.

[charlie]

Ciao, ho adattato la macro che memorizza il percorso come Allegato1 sul record corrente assegnandola al primo pulsante.
Vuol dire che devi prima avere un record completo già salvato e dopo memorizzare il percorso selezionato nella casella di ricerca.

Codice: Seleziona tutto

Sub Legge_percorso_record_corrente_1 (oEvent As Object)
   Dim sPercorso As String
   Dim id As Integer
   Dim oForm As Object
   oForm = oEvent.Source.Model.Parent
   sPercorso = oForm.GetByName("ALLEGATO1").Text ' legge percorso   
   id = oForm.getByName("fmtNumeroProtocollo").text 'legge chiave primaria tabella   
   oStatement = oForm.ActiveConnection.createStatement() 'crea un'istruzione SQL
   sSQL = "UPDATE ""GESTIONE PROTOCOLLO"" SET ""Allegato1"" =  '" + sPercorso + "'  WHERE ""NumeroProtocollo"" = '" + id + "'"
   oStatement.executeUpdate(sSQL)   'esegue SQL
   oForm.GetByName("ALLEGATO1").Reset()' pulisce percorso    
   oForm.Reload ' aggiorna formulario
End Sub

Ti lascio il compito di copiare la macro, cambiarle il nome (Sub Legge_percorso_record_corrente_2), adattarla ad ALLEGATO2 (al posto di ALLEGATO1) e Allegato2 (al posto di Allegato1) ed assegnarla all'evento 'Esegui l'azione' del secondo pulsante.

L'adattamento della versione che inserisce un nuovo record è troppo impegnativa in termini di tempo (ci sono 18 campi da aggiornare) e la lascio eventualmente a te (non è difficile, è solo questione di pazienza e attenzione a non commettere errori di scrittura nei nomi dei vari campi).

[giuseppe1965]

Buongiorno Charlie, sono due giorni che provo e riprovo ma non ci riesco. In pratica non viene registrato sulla tabella il link del file allegato. Ho solo scaricato il file da te modificato, l'ho eseguito, inserisco i dati su un nuovo record ma dopo avere scelto il file , pigiando il tasto SALVA non accade nulla! Dove sbaglio?

[charlie]

Scusami, avevo semplicemente dimenticato, nella stesura finale, di assegnare la macro al pulsante.
Puoi riscaricare il file, ora corretto, oppure fare la modifica su quello che hai già scaricato.
N.B. in ogni caso bisogna prima salvare il record non con il pulsante Salva, poi posizionarsi sul nuovo record con la barra di navigazione, infine selezionare il percorso e salvarlo con il pulsante Salva.

[giuseppe1965]

Charlie... sto disperato! Non mi funziona e non so il motivo. Riallego il file (con qualche piccola modifica) dove ho inserito le due marco da te inviate. Vedi tu...

[charlie]

Funziona benissimo con l'unico record esistente. Non funziona con il secondo pulsante al quale non è stata assegnata la seconda macro.

Ma, come sono le tue impostazioni per le macro? Sono queste?

[giuseppe1965]

GENIO!!!! Avevo spuntato sicurezza ALTA, ecco cosa era. Funziona perfettamente il pulsante SALVA. Ora però esagero nella richiesta: per inserire un pulsante che deve visualizzare in anteprima il pdf memorizzato esiste una MACRO specifica? Intanto grazie varamente

[charlie]

Se l'argomento è risolto, (ho cambiato il titolo per renderlo più conciso), chiudilo come previsto qui: viewtopic.php?f=2&t=5661.

Eventualmente apri un nuovo argomento ma, ad occhio, sul forum dovresti già trovare quello che ti serve.

[giuseppe1965]

ok, do un'occhiata sul forum. Grazie ancora!