generare codice a quattro cifre

Question

ciao a tutti, 

grazie al codice di Sandro Peruz diverso tempo fa sono riuscito a creare un file per catalogare i documenti nei raccoglitori, generando un codice a due cifre.

Adesso torno ad invocare un aiuto prezioso in quanto dovrei apportare delle modifiche:

cioè generare un codice a 4 cifre al posto di due.

in pratica il problema che non riesco a risolvere è il seguente:

premendo sul pulsante Inserisci si dovrebbe verificare:

• inserimento all'interno della tbl_Documenti_Archiviati dei valori
• generazione del codice a 4 cifre e cioè:

N°raccoglitore

N°Anno

N°tipo Intervento

N° Interno scheda

Qualcuno potrebbe essere gentile ad aiutarmi a riscrivere questa parte di codice?

Grazi infinite a tutti

allego il file

Answer 1

Grazie Vladimiro,

perfettamente funzionante finora, continuo a testare...

sto provando a cercare di inserire in automatico il nome del nuovo file caricato se si seleziona SI a seguito di carica file.

Ho inserito il codice Me.txtNuovoNomeFile = Me.txtCategoria & "-" & Me.txtSottocategoria & "-" & Me.txtArgomento ed a seguito della scelta SI di modificare il nome del file caricato, viene inserito nel controllo txtNuovoNomeFile, ma senza estensione

Successivamente quando clicco su COPIA mi riscrive il nome del vecchio file.

Se invece mi dopo il messaggio: vuoi modificare il nome del file, e scelgo SI, trovo il nuovo nome del file senza estensione e se clicco nella casella e si attiva, funziona, ma un po in maniera scomoda

Cosa si dovrebbe modificare?

Grazie ancora a tutti per la vostra professionalità

Ciao peppino38,

al seguente link puoi scaricare il tuo db modificato.

Vladimiro

Answer 2

Grazie Vladimiro,

perfettamente funzionante finora, continuo a testare...

sto provando a cercare di inserire in automatico il nome del nuovo file caricato se si seleziona SI a seguito di carica file.

Ho inserito il codice Me.txtNuovoNomeFile = Me.txtCategoria & "-" & Me.txtSottocategoria & "-" & Me.txtArgomento ed a seguito della scelta SI di modificare il nome del file caricato, viene inserito nel controllo txtNuovoNomeFile, ma senza estensione

Successivamente quando clicco su COPIA mi riscrive il nome del vecchio file.

Se invece mi dopo il messaggio: vuoi modificare il nome del file, e scelgo SI, trovo il nuovo nome del file senza estensione e se clicco nella casella e si attiva, funziona, ma un po in maniera scomoda

Cosa si dovrebbe modificare?

Grazie ancora a tutti per la vostra professionalità

Answer 3

Ciao peppino38,

secondo il mio punto di vista, Sandro non ha inserito la funzione Replace per non incorrere nel rischio di trovarsi un controllo vuoto, come ad esempio il nuovo percorso.

Sempre allo stesso link trovi il db sostituito. 

Non ho fatto altro che sostituire l'intera routine per inserire i dati in tabella:

Dim rs As DAO.Recordset

Set rs = CurrentDb.OpenRecordset("tbl_Documenti_Archiviati", dbOpenDynaset, dbSeeChanges)

    rs.AddNew

        rs!N_Interno_Scheda = Me!N_Interno_Scheda

        rs!raccoglitore = Me!Numero_Raccoglitore

        rs!txtCategoria = Me!txtCategoria

        rs!Categoria_Scheda = Me!Numero_Scheda_Categoria

        rs!Argomento = Me!NSchedaArgomento

        rs!txtArgomento = Me.txtArgomento

        rs!provenienza = Me!provenienza

        rs!txtSottocategoria = Me!txtSottocategoria

        rs!check_commento = Me!check_commento

        rs!check_oggetto = Me!check_oggetto

        rs!txtPath = Me!txtPath

        rs!txtFile = Me!txtFile

        rs!txtNuovoNomeFile = Me!txtNuovoNomeFile

        rs!txtNuovoPercorso = Me!txtNuovoNomeFile

        rs!check_data_inserimento = CLng(Me!check_data_inserimento)

        rs!check_data_documento = CLng(Me!check_data_documento)

        rs!CodiceDocumento = Me!CodiceDocumento

        rs!Stampato = Me!Stampato

    rs.Update

rs.Close

Set rs = Nothing

Vladimiro

Answer 4

Grazie Vladimiro

ecco il link 

Grazie ancora

Answer 5

Ciao Vladimiro,

questo l'errore che esce, con il codice modificato.

Ho provato ad inserire agente: L'aquila

tipo di richiesta:v'erdi

se provi anche tu ti esce l'errore???

Grazie ancora