[access 2000 o 2003] creazione stringa automatica

[diemes]

In una maschera anagrafica di access, dopo avere digitato nel campo
denominazione il cognome e nome vorrei creare automaticamente nel campo codice denominazione un codice derivante dal cognome e nome composto dai primi 4 caratteri del cognome e dai primi 4 caratteri del nome.
ad esempio.
garibaldi giuseppe vorrei ottenere il codice garigius
garibaldi giuseppe maria vorrei ottenere il codice garigiusmari
d'agati salvatore vorrei ottenere il codice dagasalv
de santis salvatore vorrei ottenere il codice desasalv
sperando di essere stato chiaro, cordialmente porgo distinti saluti
diego messina

p.s.
erroneamente nei giorni precedenti ho inviato la stesso quesito utilizzando netiquette

[diemes]

preciso che vorrei il codice in VB
inoltre, nel caso di un cognome con 2 nomi, vorrei il codice con i primi 4 caratteri del cognome e dei due nomi ottenendo un codice di 12 car.
Nel caso in cui il cognone contiene l'apostrofo nei primi 4 car (ad es. d'alessandro) l'apostrofo non deve essere considerato e quindi il codice cognome deve essere " dale ".
così pure nel caso di uno spazio es. de andre il codice cognome deve essere "dean"
sperando di avere chiarito il mio problema, cordialmente porgo distinti saluti
diego messina

[archimede]

E nel caso di un cognome tipo Bo o un nome tipo Ivo? E nel caso di Della Francesca Maria Luisa? E poi parti da due campi separati (uno per il nome e uno per il cognome) oppure è una stringa unica?

Alessandro

[diemes]

innanzitutto il cognome e nome sono memorizzati nel campo denominazione.
nel caso di cognome e nome "fo ivo aggiungere 2 zeri al cognome "fo" ottenendo "fo00" e 1 zero al nome "ivo" ottenendo "ivo0" così da creare il codice "fo00ivo0".
nel caso di cognome e nome "della francesca maria pia anna" vorrei ottenere il codice "dellafranmaripia0anna". (non ci avevo riflettuto)
chiaramente il campo codice è insufficiente a contenere la stringa generata, aumenterò lunghezza.
cordiali saluti
diego messina

[archimede]

de santis salvatore vorrei ottenere il codice desasalv

Allora questo diventerà de00santsalv.

Codice: Seleziona tutto

Function CreaCodice(denom) As String
    Dim myArray() As String, Codice As String, Nome As String

    Codice = ""
    myArray = Split(denom, " ")
    For i = 0 To UBound(myArray)
        Nome = Replace(myArray(i), "'", "")
        If Len(Nome) < 4 Then
            Nome = Nome & "0000"
        End If
        Codice = Codice & Left(Nome, 4)
    Next
    CreaCodice = Codice
End Function

HTH.

Alessandro

[diemes]

gent.le sig. alessandro,
innanzitutto mi scuso per non avere risposto tempestivamente alla sua email che in brevissimo tempo mi ha inviato, e, nello stesso tempo, La ringrazio per la soluzione fornitami.
è quello che cercavo.
cordialmente
diego messina