aprile file da sottomaschera con pulsante oppure doppioclick

Anonimo

salve a tutti

da un vecchio post grazie all'amico Sandro Peruz, per cercare di gestire gli allegati esternamente al db, sto cercando di gestire dei file creati ed assegnarli a delle pratiche.

All'interno di una cartella ho dei file .dotm, modelli in word da compilare e salvare in formato .docx oppure pdf.

Questi modelli devono essere abbinati ad una pratica (ogni id) inseriti in diversi momenti (date)

Pertanto procedo con la creazione delle tabelle mettendole in relazione una a molti, cioè una pratica a molti modelli:

nella maschera pratiche ho inserito un pulsante dove mi apre la maschera elenco_modelli per aprire con altro comando il relativo file

Una volta compilato e salvato il modello viene caricato ed abbinato alla pratica.

Infine con un comando oppure su doppio click su nome_file aprire il relativo file

Provo a postare i files, purtoppo da adattare al proprio pc.

http://1drv.ms/1Iv4wcr

Magari, con il vs aiuto, riuscire a scaricare il db e la relativa cartella contenenti i file (modelli) su qualsiasi pc e funzionare direttamente.

Grazie a voi tutti

Domanda bloccata. Questa domanda è stata eseguita dalla community del supporto tecnico Microsoft. È possibile votare se è utile, ma non è possibile aggiungere commenti o risposte o seguire la domanda.

0 commenti

Risposta accettata dall'autore della domanda

Anonimo

ciao NebbiaDB,

non serve l'opzione Group by nella query.

non serve incorporare la maschera nel report.

crei una semplice query di selezione con questo sql ad esempio :

SELECT modelli.id_pratiche,

elenco_pratiche.registro,

[myFolder] & [nome_file] AS fullpath

FROM elenco_pratiche INNER JOIN modelli ON elenco_pratiche.id_pratiche = modelli.id_pratiche

ORDER BY modelli.id_pratiche;

concatenando il path con il folder così mostri nel report il nome completo del file.

crei un report in cui raggruppi per registro che non significa che raggruppare per pratica.

sul command button che chiamerai ad esempio cmdRpt e non comando16 sfrutti il parametro where per aprire il report esattamente sul record che stai vedendo sulla maschera.

DoCmd.OpenReport "modelli", acViewPreview, , whereCondition:="id_pratiche=" & Me.id_pratiche

se il report viene aperto senza clausola where raggruppi sempre per registro, ma vedi in sequenza tutti le pratiche con i relativi modelli.

un po' così : http://1drv.ms/1KvxOiq Gestione_Pratiche2.2.accdb.

ciao, Sandro.

0 commenti

46 risposte aggiuntive

Anonimo

2015-08-31T07:51:32+00:00

grazie ancora Sandro, proprio un bel lavoretto stai realizzando :-)

sei proprio gentile...

grazie ancora
La risposta è stata utile?

0 commenti Nessun commento
Anonimo

2015-08-31T07:41:26+00:00

ciao Sandro

ciao NebbiaDB,

[...]

su click esce erroredi run-time 2427 nessun valore nell'espressione immessa

eh, si ha ragione lui :-) inserisci questo codice prima della if len.... :

If Me.sm_verbali.Form.RecordsetClone.RecordCount = 0 Then

MsgBox "non si sono files selezionabili e/o da aprire", vbCritical, "Avviso"

Exit Sub

End If

ciao, Sandro.

ps. vedo per il resto.
La risposta è stata utile?

0 commenti Nessun commento
Anonimo

2015-08-31T07:27:42+00:00

si penso ci capiamo, è questo quello che intendo :-)

*nel senso inserisci tutti i dati che servono e prima si spostarti su un nuovo record o record esistente fai comparire un messaggio che ti avvisa che i dati sono stati modificati.*e mi assegna in automatico il numero progressivo 0001/2015

Grazie ancora
La risposta è stata utile?

0 commenti Nessun commento
Anonimo

2015-08-31T07:24:34+00:00

ciao Sandro

su Private Sub cmdCaricaVerbale_Click() tutto ok

su click esce erroredi run-time 2427 nessun valore nell'espressione immessa

Private Sub Comando28_Click()

If Len(Me.sm_verbali!nome_file & vbNullString) = 0 Then

    MsgBox "nessun file selezionato o caricato!" & _

            vbNewLine & " Carica o seleziona un file esistente!", vbCritical, "Attenzione"

    Exit Sub

End If

Dim ret As Integer

ret = Shell("rundll32.exe url.dll,FileProtocolHandler " & Me.sm_verbali!myfolder & Me.sm_verbali!nome_file, vbNormalFocus)

End Sub
La risposta è stata utile?

0 commenti Nessun commento