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,

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

Ciao peppino38,

se vedi la figura postata da me, noterai il record con entrambi i dati con l'apostrofo.

Fai una cosa, rimetti in rete il database e vediamo se a me esce l'errore.

Vladimiro

Ps

Prima di stasera non lo posso scaricare.

Answer 3

Ciao Vladimiro,

avevo già provato ha modificare la parte in grassetto,

ho incollato il Replace come da te consigliato, ma sembra ancora non funzionare.

Grazie ancora 

Ciao peppino88,

non so che dirti.

Se il database a cui hai apportato le modifiche consigliate è lo stesso che hai messo in rete, il risultato lo puoi vedere con i tuoi occhi:

Vladimiro

Answer 4

ciao Vladimiro, piacere di conoscerti...

sicuramente Sandro non c'entra nulla, grazie alla sua immensa disponibilità e professionalità, nel tempo ho cercato di adattare e raggiungere qualche obiettivo.

ho ritrovato un vecchio file, sempre grazie al codice di sandro, perfettamente funzionante, che mi da la possibilità di creare un codice documento con 4 cifre.

Cerco di spiegare gli errori:

Prima di premere il tasto inserisci occorre caricare il file, spostarlo da una posizione e copiarlo in altra cartella, create grazie al codice.

Una volta sistemato il file bisogna inserire i valori della maschera in una tabella, dove poter effettuare successivamente delle ricerche.

Allego il nuovo file

Adesso resta solo il problema dell'apostrofo nell'inserimento e cioè:

parto da Agente: seleziono Alfa

Anno: selezione 2018

Tipo richiesta: seleziono v'erdi (apostrofo che crea problema)

Succesivamente carico il file e poi quando clicco su inserirsci esce l'errore dell'apostrofo.

Come poter risolvere?

Grazie ancora Vladimiro

Ciao peppino38,

il problema dell'apostrofo, che tra l'altro hai anche nella scelta dell'Agente, lo risolvi con la funzione Replace (già inserita per le altre voci):

DBEngine(0)(0).Execute "insert into tbl_Documenti_Archiviati " & _

                       "(N_Interno_Scheda, raccoglitore, txtCategoria, Categoria_Scheda, Argomento, txtArgomento, provenienza, txtSottocategoria, check_commento, check_oggetto, txtPath, txtFile, txtNuovoNomeFile, txtNuovoPercorso, check_data_inserimento, check_data_documento, CodiceDocumento, stampato) values " & _

                        "('" & Me.N_Interno_Scheda & "','" & _

                        Me.Numero_Raccoglitore & "','" & _

                        Replace(Me.txtCategoria, "'", "''") & "','" & _

                        Me.Numero_Scheda_Categoria & "','" & _

                        Me.NSchedaArgomento & "','" & _

                        Replace(Me.txtArgomento, "'", "''") & "','" & _

                        Me.provenienza & "','" & _

                        Replace(Me.txtSottocategoria, "'", "''") & "','" & _

                        Replace(Me.check_commento, "'", "''") & "','" & _

                        Replace(Me.check_oggetto, "'", "''") & "','" & _

                        Replace(Me.txtPath, "'", "''") & "','" & _

                        Replace(Me.txtFile, "'", "''") & "','" & _

                        Replace(Me.txtNuovoNomeFile, "'", "''") & "','" & _

                        Me.txtNuovoPercorso & "'," & _

                        CLng(Me.check_data_inserimento) & "," & _

                        CLng(Me.check_data_documento) & ",'" & _

                        Me.CodiceDocumento & "'," & _

                        Me.Stampato & ")", dbFailOnError

Modifica il codice in grassetto e risolvi il problema.

Vladimiro

Answer 5

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

Ciao Peppino38,

ammesso che uno abbia voglia di aiutarti, devi dare la possibilità anche tu di poterlo fare :-)

Ho scaricato il database e subito ho riscontrato delle incongruenze...

Non credo che Sandro c'entri molto, conoscendo bene la sua professionalità sono convinto che successivamente al suo aiuto, hai apportato delle modifiche a cui non riesci a venirne fuori.

Fatta questa dovuta premessa, passiamo a noi.

Una volta compilata la maschera "frm_Inserimento", al click del pulsante "Inserisci" ho il seguente errore:

in quanto nella casella di testo "Nuovo percorso" non è stato inserito nulla.

Ma anche volendo, non sarebbe stato possibile per via della casella di testo disabilitata.

Allora,

una volta riabilitata la suddetta casella di testo ed inseriti nuovamente i dati, al click del pulsante "inserisci" riscontro un altro tipo di errore molto più grave:

apro il "Debug" per controllare:

e mi ritrovo l'errore proprio sull'inserimento dati nella tabella "tbl_Documenti_Archiviati"

Come ripeto, siccome non credo che Sandro abbia potuto commettere un errore del genere, forse è il caso che metti on-line, sempre con pochi dati, il database funzionante.

Vladimiro