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

ciao vladimiro,

ho provato ad inserire un altra casella combinata che seleziona il mese, al fine di generare un **codice da 5 cifre,**modificando questa parte di codice, ma sembra non funzionare correttamente.

Come dovrebbe essere scritto?

Me.N_Interno_Scheda = CStr(Nz(DMax("val([N_Interno_Scheda])", "tbl_Documenti_Archiviati", "Argomento='" & Me.NSchedaArgomento & "' and Categoria_Scheda='" & Me.Numero_Scheda_Categoria & "'"), 0) + 1)

Ho provato ad agiungerela parte inerente al mese, ma non va ("Numero_Mese='" & Me.txtMese)

Posto il file aggiornato

Grazie ancora

Answer 3

Grazie Vladimiro 

Tutte le tue risposte sono state contrassegnate come utili.

Grazie infinite per la vostra professionalità e disponibilità

Answer 4

Grazie Vladimiro,

ho visto il nuovo codice ed è perfettamente funzionante,...

Grazie ancora.

Buona giornata

Ciao peppino38,

ricordati di contrassegnare la risposta che ha soddisfatto la tua richiesta, come risposta utile.

Renderà in futuro ad altri la ricerca più immediata.

Vladimiro

Answer 5

Grazie Vladimiro,

ho visto il nuovo codice ed è perfettamente funzionante,...

Grazie ancora.

Buona giornata