generare codice a quattro cifre

Anonimo

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

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

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

0 commenti

37 risposte aggiuntive

Anonimo

2018-10-07T23:07:03+00:00

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

Ciao peppino38,

come sai, cerco di non entrare mai nel merito del lavoro fatto da altri, limitandomi solo a rispondere alla richiesta di aiuto avanzata; però, devi cercare almeno di mettere in sequenza le caselle combinate :-)

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) & "-" & Me!txtMese

Vladimiro
La risposta è stata utile?

0 commenti Nessun commento
Anonimo

2018-10-08T07:07:49+00:00

ciao vladimiro,

ho inserito il codice ma non va, come immaginnavo, avendo inserito solo nella parte finale & "-" & Me!txtMese

Da come capisco, anche attraverso i test effettuati, il codice ha la funzione di incrementare di 1 il valore della scheda (N_Interno_Scheda)

Con il Codice iniziale

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)

si riesce ad ottenere il codice a 4 cifre.

in pratica prende dalla maschera frm_inserimento i valori contenuti in

Numero_Raccoglitore - Numero_Scheda_Categoria - NSchedaArgomento - ed incrementa di 1 il valore di N_Interno_Scheda

Con il codice di sopra questo funziona perfettamente

Adesso avendo inserito Numero_Mese vorrei ottenere il codice a 5 cifre:

Numero_Raccoglitore - Numero_Scheda_Categoria - Numero_Mese - NSchedaArgomento - ed incrementa di 1 il valore di N_Interno_Scheda

Penso quindi che bisognerebbe inserire del codice prima di NSchedaArgomento

ho provato ma esce sempre errore:

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

Grazie ancora
La risposta è stata utile?

0 commenti Nessun commento
Anonimo

2018-10-08T08:19:34+00:00

Ciao peppino,

prima di stasera non posso risponderti, però vorrei sapere, al posto di gennaio, febbraio o marzo che compare nel casella di testo txt mese, cosa deve uscire?

Vladimiro
La risposta è stata utile?

0 commenti Nessun commento
Anonimo

2018-10-08T08:23:47+00:00

ciao vladimiro,

devono uscire i numeri dei mesi, da 1 a 12.

grazie ancora e buona giornata
La risposta è stata utile?

0 commenti Nessun commento