Newsgroup: it.comp.appl.access
Titolo: codice fiscale da una mia tabella dati

avendo una tabella e relativa maschera con Cognome, Nome, Data di nascita,
luogo di nascita, sesso, e compne di nascita, vorrei in un campo codfisc
della stessa tabella e maschera mi si calcoli in automatico il codice
fiscale, ho visto sul sito comune che c'� un programmino simile adattato
da federico luciani, ma non riesco a capire e mettere in pratica come
prendere i dati dalla mia tabella e fare il calcolo magari volendo
trasformare il codice di luciani in modulo e richiamarlo sul
campo/controllocampo codfisc con un pulsante o in automatico su click.
Ho esagerato come richiesta?
l.
l.
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 l.
La domanda è semplice... e sinceramente non capisco dove stia il
problema...!
Questo codice è tutto quello che serve...:
    Me.txtCodiceFiscale = CalcoloCodFis(Me.txtCognome, Me.txtNome,
CVDate(Me.txtDataNascita), Me.cboSesso, Trim(Me.txtCodiceComune))
Coìme vedi si tratta di una Funzione che richiede dei Parametri
(Cognome,Nome ecc...) e restituisce il C.F.
Se tu vuoi che esegua in Automatico il Calcolo hai 2 scelte:
Se hai una visualizzazione maschere continue, sei obbligato a creare
una Query con un Campo Calcolato che richiama la Funzione
CalcoloCodFis...
oppure se hai una Visualizzazione Maschera Singola puoi gestire il
richiamo della Funzione(sempre la stessa) su Evento CURRENT di
maschera...
A monte di tutto c'è il fatto di avere quel minimo di dimestichezza
con il VBA...
@Alex

 questo articolo e` stato inviato via web dal servizio gratuitohttp://
www.newsland.it/newssegnala
 gli abusi ad 
ab...@newsland.it
Prova in questo modo:
File - -> Carica dati esterni - -> Importa
Importa il modulo MGlobal,la tabella Comunifis e la funzione per il
calcolo del codice fiscale Function CalcoloCodFis.
Rispetto al lavoro di luciani...ti consiglio di fare qualche
modfica...in particolare:
creati una combo luogo di nascita la cui origine riga è la tabella
comunifis..quindi avrà questa sql:
SELECT Comunifis.COMU_DESCR, Comunifis.COMU_PROV, Comunifis.COMU_COD
FROM Comunifis
ORDER BY Comunifis.COMU_DESCR, Comunifis.COMU_PROV;
Nell'eveto dopo aggiornamento di questa combo...scrivi:
Me.prov = Me.luogonascita.Column(1)
Me.txtCodiceComune = Me.luogonascita.Column(2)
Per il campo sesso...creati una combo...alla voce tipo orifgine riga
metti Elenco Valori...mentre alla voce Origine riga metti:
"M";"F"
Creati un pulsante...al clic scrivi:
Dim ctrl As Control
   For Each ctrl In Me.Controls
       If ctrl.Tag = "X" Then
            If Len(ctrl.Value & "") = 0 Then
                ctrl.SetFocus
                MsgBox "Attenzione il controllo " & ctrl.Name & " è
obbligatorio.."
                Exit Sub
            End If
       End If
    Next
Me.codfisc = CalcoloCodFis(Me.cognome, Me.nome, CVDate
(Me.datanascita), Me.sesso, Trim(Me.txtCodiceComune))
End Sub
Come già detto da Alex modifica la stringa Me.codfisc con il nome dei
tuoi controlli.
Infine metti una "x" alla voce tag dei seguent controlli:
Cognome, Nome, Sesso, data di nascita, Luogo di Nascita,

 Cognome, Nome, Sesso, data di nascita, Luogo di Nascita,
una domanda:
ma a quale esempio del sito comune ti stai riferendo?
dato che ce ne sono pi� di uno, non ho capito in quale esempio si trovano
la tabella comunifis e il modulo Mglobal.
Per chiarezza io mi riferivo all'esempio 6.74 della sezione General e su
cui con c'� una tabella comunifis ma solo Comuni.
l.
grazie
-- 
questo articolo e` stato inviato via web dal servizio gratuito 


 grazie
prova a dare un'occhiata a questo
http://myfreefilehosting.com/f/a5af740751_0.92MB

grazie a entrambi!
dopo aver sudato sette camicie :-)) , tanti errori di adattamento e tanta
pazienza, ho applicato il vostro esempio al mio applicativo e.....FUNZIONA!
come sono contento!!!!!!!!!
l.
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
