generare codice a quattro cifre

Anonimo
2018-09-15T16:18:22+00:00

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

Microsoft 365 e Office | Access | Per la casa | Windows

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
2018-09-18T23:24:13+00:00

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

La risposta è stata utile?

2 persone hanno trovato utile questa risposta.
0 commenti

37 risposte aggiuntive

Ordina per: Più utili
Più utili Più recente Meno recente
  1. Anonimo
    2018-09-17T21:45:54+00:00

    Ciao peppino38,

    aspetta...

    Esce l'errore nel momento in cui aggiungo un nuovo percorso.

    Se mettevi in rete il db già modificato nella parte evidenziata in grassetto, probabilmente mi mettevo a smanettare provocando l'errore che sono riuscito ad ottenere ora per pura scrupolosità.

    Ci sentiamo al più presto.

    Vladimiro

    La risposta è stata utile?

    2 persone hanno trovato utile questa risposta.
    0 commenti
  2. Anonimo
    2018-09-17T21:06:53+00:00

    Grazie Vladimiro

    ecco il link 

    Grazie ancora

    Ciao peppino38,

    ma secondo te, la seguente routine:                                               

    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 & "','" & _

    Me.txtCategoria & "','" & _

                            Me.Numero_Scheda_Categoria & "','" & _

                            Me.NSchedaArgomento & "','" & _

    Me.txtArgomento & "','" & _

                            Me.provenienza & "','" & _

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

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

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

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

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

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

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

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

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

                            Me.CodiceDocumento & "'," & _

                            Me.Stampato & ")", dbFailOnError

    è uguale, nella parte evidenziata in grassetto, simile a quello che ti avevo detto di correggere?

    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

    Tagliamo la testa al toro :-)

    Qui c'è il tuo db corretto.

    Vladimiro

    La risposta è stata utile?

    2 persone hanno trovato utile questa risposta.
    0 commenti
  3. Anonimo
    2018-09-17T05:33:46+00:00

    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

    La risposta è stata utile?

    0 commenti
  4. Anonimo
    2018-09-16T00:10:06+00:00

    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

    La risposta è stata utile?

    0 commenti