Newsgroup: it.comp.appl.access
Titolo: selezionare solo quali campi stampare

Prima di tutto grazie mille :)
Ho una tabella di uno scadenzario i cui campi sono:
- Regione;
- Sede;
- Proprietà;
- Superficie mq;
- Canone annuo senza iva;
- Canone annuo con iva;
- Oneri;
- Decorrenza contratto;
- Scadenza contratto;
- Rinnovo contratto;
- Nuovo contratto.
A partire da questa tabella o generato una query che mi consente di
estrapolare i record che mi servono. A questa query ho associato un report,
il cui aspetto (ovvero intestazione e piè pagina, carattere e veste grafica
complessiva) l'ho creato da me.
Ovviamente considerando che poi nel report compaiono, oltre a tutti quei
campi, anche altri, quali ad es quello che calcola l'iva, quello dei totali
tra canone ivato+oneri ecc. la veste grafica è determinante per dare
leggibilità al prospetto che poi stampo.
Il problema è il seguente:
avere la possibilità di selezionare solo alcuni dei campi sopra elencati,
evitando di dovere stampare ogno volta tutte le informazioni di un record,
anche quando non servono. Il tutto però dovrebbe mantenere la stessa "veste
grafica" da me generata per la stampa di tutti i campi.
Ad es vorrei poter stampare solo
- Regione;
- Sede;
- Proprietà;
- Scadenza contratto;
il tutto mantenendo lo stesso aspetto tabulare della mia impostazione di
stampa, ma con i campi correttamente equspaziati e non "appiccicati" come
nella stampa di tutti i campi.
Spero di essere stato chiaro, scusa la "lunghezza" ma non sono pratico e non
saprei sintetizzare correttamente.
Grazie ancora


vedi l'evento su formattazione del report
e da codice le proprietą sinistra altezza larghezza, etc dei vari
controlli del report
e personalizzalo apiacimento
Saluti.
Emanuele.

 e da codice le proprietà sinistra altezza larghezza, etc dei vari


 grazie
Prego
Antonio

grazie
CUT
Scrivi dopo il quotig per cortesia!
io ho elaborato questa tempo fa....č migliorabile con tranquillitā
On Error Resume Next
Dim sinistra, larghezza As Variant
Dim stdocname As String
sinistra = 0
larghezza = 0
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT * FROM parametristampa WHERE
tipostampa =""" & Forms![parametristampa].[tipostampa] & """")
If Not (rs.EOF And rs.BOF) Then
    ' id candidato
    If rs![ID Candidatopresente] = True Then
        Me.[ID Candidato].Left = sinistra
        Me.[ID Candidato].Width = rs![ID Candidatodimensione] * 567
        sinistra = sinistra + Me.[ID Candidato].Width
    End If
    ' collocazione
    If rs![Collocazionepresente] = True Then
        Me.collocazione.Left = sinistra
        Me.collocazione.Width = rs![Collocazionedimensione] * 567
        sinistra = sinistra + Me.collocazione.Width
    End If
    ' cognome
    If rs![Cognomepresente] = True Then
        Me.Cognome.Left = sinistra
        Me.Cognome.Width = rs![Cognomedimensione] * 567
        sinistra = sinistra + Cognome.Width
    End If
    ' nome
    If rs![Nomepresente] = True Then
        Me.Nome.Left = sinistra
        Me.Nome.Width = rs![nomedimensione] * 567
        sinistra = sinistra + Me.Nome.Width
    End If
    ' sesso
    If rs![sessopresente] = True Then
        Me.Sesso.Left = sinistra
        Me.Sesso.Width = rs![sessodimensione] * 567
        sinistra = sinistra + Me.Sesso.Width
    End If
    ' data di nascita
    If rs![Data di Nascitapresente] = True Then
        Me.[Data di Nascita].Left = sinistra
        Me.[Data di Nascita].Width = rs![data di nascitadimensione] *
567
        sinistra = sinistra + Me.[Data di Nascita].Width
    End If
    ' etā
    If rs![etāpresente] = True Then
        Me.[Etā].Left = sinistra
        Me.[Etā].Width = rs![etādimensione] * 567
        sinistra = sinistra + Me.[Etā].Width
    End If
    ' luogo di nascita
    If rs![Luogo di nascitapresente] = True Then
        Me.[Luogo di Nascita].Left = sinistra
        Me.[Luogo di Nascita].Width = rs![Luogo di nascitadimensione]
* 567
        sinistra = sinistra + Me.[Luogo di Nascita].Width
    End If
    ' Provincia di nascita
    If rs![provincia di nascitapresente] = True Then
        Me.[Provincia di nascita].Left = sinistra
        Me.[Provincia di nascita].Width = rs![provincia di
nascitadimensione] * 567
        sinistra = sinistra + Me.[Provincia di nascita].Width
    End If
    ' nazionalitā
    If rs![nazionalitāpresente] = True Then
        Me.[nazionalitā].Left = sinistra
        Me.[nazionalitā].Width = rs![nazionalitādimensione] * 567
        sinistra = sinistra + Me.[nazionalitā].Width
    End If
    ' indirizzo - via
    If rs![Indirizzo - Viapresente] = True Then
        Me.[Indirizzo - Via].Left = sinistra
        Me.[Indirizzo - Via].Width = rs![Indirizzo - Viadimensione] *
567
        sinistra = sinistra + Me.[Indirizzo - Via].Width
    End If
    ' cap
    If rs![cappresente] = True Then
        Me.[Cap].Left = sinistra
        Me.[Cap].Width = rs![capdimensione] * 567
        sinistra = sinistra + Me.[Cap].Width
    End If
    ' cittā di residenza
    If rs![Cittā di residenzapresente] = True Then
        Me.[Cittā di residenza].Left = sinistra
        Me.[Cittā di residenza].Width = rs![Cittā di
residenzadimensione] * 567
        sinistra = sinistra + Me.[Cittā di residenza].Width
    End If
    ' provincia di residenza
    If rs![Provincia di Residenzapresente] = True Then
        Me.[Provincia di Residenza].Left = sinistra
        Me.[Provincia di Residenza].Width = rs![Provincia di
Residenzadimensione] * 567
        sinistra = sinistra + Me.[Provincia di Residenza].Width
    End If
    ' tel abitazione
    If rs![tel abitazionepresente] = True Then
        Me.[Tel abitazione].Left = sinistra
        Me.[Tel abitazione].Width = rs![tel abitazionedimensione] *
567
        sinistra = sinistra + Me.[Tel abitazione].Width
    End If
    ' tel ufficio
    If rs![tel ufficiopresente] = True Then
        Me.[Tel ufficio].Left = sinistra
        Me.[Tel ufficio].Width = rs![tel ufficiodimensione] * 567
        sinistra = sinistra + Me.[Tel ufficio].Width
    End If
    ' cellulare
    If rs![Cellularepresente] = True Then
        Me.[Cellulare].Left = sinistra
        Me.[Cellulare].Width = rs![cellularedimensione] * 567
        sinistra = sinistra + Me.[Cellulare].Width
    End If
    ' altro tel
    If rs![altro telpresente] = True Then
        Me.[Altro tel].Left = sinistra
        Me.[Altro tel].Width = rs![altro teldimensione] * 567
        sinistra = sinistra + Me.[Altro tel].Width
    End If
    ' stato civile
    If rs![stato civilepresente] = True Then
        Me.[Stato Civile].Left = sinistra
        Me.[Stato Civile].Width = rs![stato civiledimensione] * 567
        sinistra = sinistra + Me.[Stato Civile].Width
    End If
    ' cognome coniuge
    If rs![cognome coniugepresente] = True Then
        Me.[Cognome Coniuge].Left = sinistra
        Me.[Cognome Coniuge].Width = rs![cognome coniugedimensione] *
567
        sinistra = sinistra + Me.[Cognome Coniuge].Width
    End If
    ' nome coniuge
    If rs![nome coniugepresente] = True Then
        Me.[Nome Coniuge].Left = sinistra
        Me.[Nome Coniuge].Width = rs![nome coniugedimensione] * 567
        sinistra = sinistra + Me.[Nome Coniuge].Width
    End If
    ' professione coniuge
    If rs![professione coniugepresente] = True Then
        Me.[Professione coniuge].Left = sinistra
        Me.[Professione coniuge].Width = rs![professione
coniugedimensione] * 567
        sinistra = sinistra + Me.[Professione coniuge].Width
    End If
    ' n° figli
    If rs![n° figlipresente] = True Then
        Me.[N° Figli].Left = sinistra
        Me.[N° Figli].Width = rs![n° figlidimensione] * 567
        sinistra = sinistra + Me.[N° Figli].Width
    End If
    ' servizio militare
    If rs![servizio militarepresente] = True Then
        Me.[Servizio Militare].Left = sinistra
        Me.[Servizio Militare].Width = rs![servizio
militaredimensione] * 567
        sinistra = sinistra + Me.[Servizio Militare].Width
    End If
        ' dal s
    If rs![dal spresente] = True Then
        Me.[dal s].Left = sinistra
        Me.[dal s].Width = rs![dal sdimensione] * 567
        sinistra = sinistra + Me.[dal s].Width
    End If
    ' al s
    If rs![al spresente] = True Then
        Me.[al s].Left = sinistra
        Me.[al s].Width = rs![al sdimensione] * 567
        sinistra = sinistra + Me.[al s].Width
    End If
    ' email
    If rs![emailpresente] = True Then
        Me.[email].Left = sinistra
        Me.[email].Width = rs![emaildimensione] * 567
        sinistra = sinistra + Me.[email].Width
    End If
    ' foto
    If rs![fotopresente] = True Then
        Me.[foto].Left = sinistra
        Me.[foto].Width = rs![fotodimensione] * 567
        Me.[foto].Height = rs![fotodimensione] * 567
        sinistra = sinistra + Me.[foto].Width
    End If
    ' completa
    If rs![completapresente] = True Then
        Me.[completa].Left = sinistra
        Me.[completa].Width = rs![fotodimensione] * 567
        sinistra = sinistra + Me.[completa].Width
        Me.[completa].Left = Me.[completa].Left + Me.[completa].Width
/ 2
    Else
        Me.[completa].Visible = False
    End If
    ' diploma
    If rs![diplomapresente] = True Then
        Me.[Diploma].Left = sinistra
        Me.[Diploma].Width = rs![diplomadimensione] * 567
        sinistra = sinistra + Me.[Diploma].Width
    End If
    ' anno diploma
    If rs![Annodiplomapresente] = True Then
        Me.[anno diploma].Left = sinistra
        Me.[anno diploma].Width = rs![Annodiplomadimensione] * 567
        sinistra = sinistra + Me.[anno diploma].Width
    End If
    ' votazione diploma
    If rs![Votazionediplomapresente] = True Then
        Me.[Votazione diploma].Left = sinistra
        Me.[Votazione diploma].Width = rs![Votazionediplomadimensione]
* 567
        sinistra = sinistra + Me.[Votazione diploma].Width
    End If
    ' laurea
    If rs![laureapresente] = True Then
        Me.[Laurea].Left = sinistra
        Me.[Laurea].Width = rs![laureadimensione] * 567
        sinistra = sinistra + Me.[Laurea].Width
    End If
    ' universitā
    If rs![Universitāpresente] = True Then
        Me.[Universitā].Left = sinistra
        Me.[Universitā].Width = rs![Universitādimensione] * 567
        sinistra = sinistra + Me.[Universitā].Width
    End If
    ' anno
    If rs![Annopresente] = True Then
        Me.[annolaurea].Left = sinistra
        Me.[annolaurea].Width = rs![Annodimensione] * 567
        sinistra = sinistra + Me.[annolaurea].Width
    End If
    ' Votazione laurea
    If rs![Votazionepresente] = True Then
        Me.[Votazione laurea].Left = sinistra
        Me.[Votazione laurea].Width = rs![Votazionedimensione] * 567
        sinistra = sinistra + Me.[Votazione laurea].Width
    End If
    ' Specializzazioni/Corsi/Note
    If rs![Specializzazioni /Corsi/Notepresente] = True Then
        Me.[Specializzazioni/Corsi/Note].Left = sinistra
        Me.[Specializzazioni/Corsi/Note].Width = rs![Specializzazioni
/Corsi/Notedimensioni] * 567
        sinistra = sinistra + Me.[Specializzazioni/Corsi/Note].Width
    End If
    ' inglese
    If rs![Inglesepresente] = True Then
        Me.[Inglese].Left = sinistra
        Me.[Inglese].Width = rs![Inglesedimensione] * 567
        sinistra = sinistra + Me.[Inglese].Width
    End If
    ' francese
    If rs![Francesepresente] = True Then
        Me.[Francese].Left = sinistra
        Me.[Francese].Width = rs![Francesedimensione] * 567
        sinistra = sinistra + Me.[Francese].Width
    End If
    ' tedesco
    If rs![Tedescopresente] = True Then
        Me.[Tedesco].Left = sinistra
        Me.[Tedesco].Width = rs![Tedescodimensione] * 567
        sinistra = sinistra + Me.[Tedesco].Width
    End If
    ' spagnolo
    If rs![Spagnolopresente] = True Then
        Me.[Spagnolo].Left = sinistra
        Me.[Spagnolo].Width = rs![Spagnolodimensione] * 567
        sinistra = sinistra + Me.[Spagnolo].Width
    End If
    ' altre lingue
    If rs![altre lingue conosciutepresente] = True Then
        Me.[Altre lingue conosciute].Left = sinistra
        Me.[Altre lingue conosciute].Width = rs![altre lingue
conosciutedimensione] * 567
        sinistra = sinistra + Me.[Altre lingue conosciute].Width
    End If
    ' livello conoscenza
    If rs![livello di conoscenzapresente] = True Then
        Me.[Livello di conoscenza].Left = sinistra
        Me.[Livello di conoscenza].Width = rs![livello di
conoscenzadimensione] * 567
        sinistra = sinistra + Me.[Livello di conoscenza].Width
    End If
    ' area professionale
    If rs![area professionalepresente] = True Then
        Me.[area professionale].Left = sinistra
        Me.[area professionale].Width = rs![area
professionaledimensione] * 567
        sinistra = sinistra + Me.[area professionale].Width
    End If
    ' anzianitā area professionale
    If rs![anzianitā area profpresente] = True Then
        Me.[Anzianitā area prof].Left = sinistra
        Me.[Anzianitā area prof].Width = rs![anzianitā area
profdimensione] * 567
        sinistra = sinistra + Me.[Anzianitā area prof].Width
    End If
    ' durata
    If rs![duratapresente] = True Then
        Me.durata.Left = sinistra
        Me.durata.Width = rs![duratadimensione] * 567
        sinistra = sinistra + Me.durata.Width
    End If
    ' dal
    If rs![Dalpresente] = True Then
        Me.Dal.Left = sinistra
        Me.Dal.Width = rs![Daldimensione] * 567
        sinistra = sinistra + Me.Dal.Width
    End If
    ' al
    If rs![Alpresente] = True Then
        Me.[Al].Left = sinistra
        Me.[Al].Width = rs![Aldimensione] * 567
        sinistra = sinistra + Me.Al.Width
    End If
    ' azienda
    If rs![Aziendapresente] = True Then
        Me.[Azienda].Left = sinistra
        Me.[Azienda].Width = rs![Aziendadimensione] * 567
        sinistra = sinistra + Me.Azienda.Width
    End If
    ' sede
    If rs![Sedepresente] = True Then
        Me.[Sede].Left = sinistra
        Me.[Sede].Width = rs![Sededimensione] * 567
        sinistra = sinistra + Me.Sede.Width
    End If
    ' provincia lav
    If rs![provincia lavpresente] = True Then
        Me.[Provincia lav].Left = sinistra
        Me.[Provincia lav].Width = rs![provincia lavdimensione] * 567
        sinistra = sinistra + Me.[Provincia lav].Width
    End If
    ' settoreattivitā
    If rs![settoreattivitāpresente] = True Then
        Me.[settoreattivitā].Left = sinistra
        Me.[settoreattivitā].Width = rs![settoreattivitādimensione] *
567
        sinistra = sinistra + Me.settoreattivitā.Width
    End If
    ' ultima Posizione Ricoperta
    If rs![ultima posizione ricopertapresente] = True Then
        Me.[Ultima Posizione Ricoperta].Left = sinistra
        Me.[Ultima Posizione Ricoperta].Width = rs![ultima posizione
ricopertadimensione] * 567
        sinistra = sinistra + Me.[Ultima Posizione Ricoperta].Width
    End If
    ' inquadramento
    If rs![Inquadramentopresente] = True Then
        Me.[Inquadramento].Left = sinistra
        Me.[Inquadramento].Width = rs![Inquadramentodimensione] * 567
        sinistra = sinistra + Me.[Inquadramento].Width
    End If
    ' RAL (per 1000)
    If rs![RAL (per 1000)presente] = True Then
        Me.[RAL (per 1000)].Left = sinistra
        Me.[RAL (per 1000)].Width = rs![RAL (per 1000)dimensione] *
567
        sinistra = sinistra + Me.[RAL (per 1000)].Width
    End If
    ' Incentivi / benefits
    If rs![Incentivi / benefitspresente] = True Then
        Me.[Incentivi / benefits].Left = sinistra
        Me.[Incentivi / benefits].Width = rs![Incentivi /
benefitsdimensione] * 567
        sinistra = sinistra + Me.[Incentivi / benefits].Width
    End If
    ' Pacchetto Retributivo
    If rs![Pacchetto Retributivopresente] = True Then
        Me.[Pacchetto Retributivo].Left = sinistra
        Me.[Pacchetto Retributivo].Width = rs![Pacchetto
Retributivodimensione] * 567
        sinistra = sinistra + Me.[Pacchetto Retributivo].Width
    End If
    ' Data inserimento
    If rs![Data inserimentopresente] = True Then
        Me.[Data Inserimento].Left = sinistra
        Me.[Data Inserimento].Width = rs![Data inserimentodimensione]
* 567
        sinistra = sinistra + Me.[Data Inserimento].Width
    End If
    ' data ultimo aggiornamento
    If rs![data ultimo aggiornamentopresente] = True Then
        Me.[Data ultimo aggiornamento].Left = sinistra
        Me.[Data ultimo aggiornamento].Width = rs![data ultimo
aggiornamentodimensione] * 567
        sinistra = sinistra + Me.[Data ultimo aggiornamento].Width
    End If
    ' modo di reperimento
    If rs![modo di reperimentopresente] = True Then
        Me.[Modo di reperimento].Left = sinistra
        Me.[Modo di reperimento].Width = rs![modo di
reperimentodimensione] * 567
        sinistra = sinistra + Me.[Modo di reperimento].Width
    End If
    ' inserzione
    If rs![Inserzionepresente] = True Then
        Me.[Inserzione].Left = sinistra
        Me.[Inserzione].Width = rs![Inserzionedimensione] * 567
        sinistra = sinistra + Me.[Inserzione].Width
    End If
    ' data inserzione
    If rs![data inserzionepresente] = True Then
        Me.[Data Inserzione].Left = sinistra
        Me.[Data Inserzione].Width = rs![data inserzionedimensione] *
567
        sinistra = sinistra + Me.[Data Inserzione].Width
    End If
    ' nome segnalante
    If rs![nome segnalantepresente] = True Then
        Me.[Nome segnalante].Left = sinistra
        Me.[Nome segnalante].Width = rs![nome segnalantedimensione] *
567
        sinistra = sinistra + Me.[Nome segnalante].Width
    End If
    ' data intervista
    If rs![Data intervistapresente] = True Then
        Me.[Data Intervista].Left = sinistra
        Me.[Data Intervista].Width = rs![data intervistadimensione] *
567
        sinistra = sinistra + Me.[Data Intervista].Width
    End If
    ' intervistatore
    If rs![Intervistatorepresente] = True Then
        Me.[Intervistatore].Left = sinistra
        Me.[Intervistatore].Width = rs![Intervistatoredimensione] *
567
        sinistra = sinistra + Me.[Intervistatore].Width
    End If
    ' posizione
    If rs![Posizionepresente] = True Then
        Me.[Posizione].Left = sinistra
        Me.[Posizione].Width = rs![Posizionedimensione] * 567
        sinistra = sinistra + Me.[Posizione].Width
    End If
    ' azienda cliente
    If rs![azienda clientepresente] = True Then
        Me.[Azienda Cliente].Left = sinistra
        Me.[Azienda Cliente].Width = rs![azienda clientedimensione] *
567
        sinistra = sinistra + Me.[Azienda Cliente].Width
    End If
    ' giudizio globale
    If rs![giudizio globalepresente] = True Then
        Me.[Giudizio globale].Left = sinistra
        Me.[Giudizio globale].Width = rs![giudizio globaledimensione]
* 567
        sinistra = sinistra + Me.[Giudizio globale].Width
    End If
    ' esito verifica azienda
    If rs![esito  verifica aziendapresente] = True Then
        Me.[Esito  verifica azienda].Left = sinistra
        Me.[Esito  verifica azienda].Width = rs![esito  verifica
aziendadimensione] * 567
        sinistra = sinistra + Me.[Esito  verifica azienda].Width
    End If
    ' data assunzione
    If rs![Data assunzionepresente] = True Then
        Me.[Data assunzione].Left = sinistra
        Me.[Data assunzione].Width = rs![data assunzionedimensione] *
567
        sinistra = sinistra + Me.[Data assunzione].Width
    End If
    ' data presentazione
    If rs![Data presentazionepresente] = True Then
        Me.[Data presentazione].Left = sinistra
        Me.[Data presentazione].Width = rs![data
presentazionedimensione] * 567
        sinistra = sinistra + Me.[Data presentazione].Width
    End If
    ' Azienda Cliente presentazione
    If rs![Azienda Cliente presentazionepresente] = True Then
        Me.[Azienda Cliente presentazione].Left = sinistra
        Me.[Azienda Cliente presentazione].Width = rs![Azienda Cliente
presentazionedimensione] * 567
        sinistra = sinistra + Me.[Azienda Cliente presentazione].Width
    End If
    'posizione presentazione
    If rs![posizione presentazionepresente] = True Then
        Me.[Posizione presentazione].Left = sinistra
        Me.[Posizione presentazione].Width = rs![posizione
presentazionedimensione] * 567
        sinistra = sinistra + Me.[Posizione presentazione].Width
    End If
    ' consulente presentazione
    If rs![consulente presentazionepresente] = True Then
        Me.[Consulente presentazione].Left = sinistra
        Me.[Consulente presentazione].Width = rs![consulente
presentazionedimensione] * 567
        sinistra = sinistra + Me.[Consulente presentazione].Width
    End If
    '  esito presentazione
    If rs![esito presentazionepresente] = True Then
        Me.[Esito presentazione].Left = sinistra
        Me.[Esito presentazione].Width = rs![esito
presentazionedimensione] * 567
        sinistra = sinistra + Me.[Esito presentazione].Width
    End If
    '  note varie
    If rs![note variepresente] = True Then
        Me.[Note varie].Left = sinistra
        Me.[Note varie].Width = rs![note variedimensione] * 567
        sinistra = sinistra + Me.[Note varie].Width
    End If
End If
rs.Close
Set db = Nothing
Exit Sub
errore:
MsgBox "Errore durante la creazione del report"
End Sub
Private Sub IntestazionePagina_Format(Cancel As Integer, FormatCount
As Integer)
On Error Resume Next
Dim sinistra As Variant
Dim stdocname As String
sinistra = 0
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT * FROM parametristampa WHERE
tipostampa =""" & Forms![parametristampa].[tipostampa] & """")
If Not (rs.EOF And rs.BOF) Then
    ' id candidato
    If rs![ID Candidatopresente] = True Then
        Me.[ID Candidatotxt].Left = sinistra
        Me.[ID Candidatotxt].Width = rs![ID Candidatodimensione] * 567
        sinistra = sinistra + Me.[ID Candidatotxt].Width
    End If
    ' collocazione
    If rs![Collocazionepresente] = True Then
        Me.collocazionetxt.Left = sinistra
        Me.collocazionetxt.Width = rs![Collocazionedimensione] * 567
        sinistra = sinistra + Me.collocazionetxt.Width
    End If
    ' cognome
    If rs![Cognomepresente] = True Then
        Me.cognometxt.Left = sinistra
        Me.cognometxt.Width = rs![Cognomedimensione] * 567
        sinistra = sinistra + cognometxt.Width
    End If
    ' nome
    If rs![Nomepresente] = True Then
        Me.nometxt.Left = sinistra
        Me.nometxt.Width = rs![nomedimensione] * 567
        sinistra = sinistra + Me.nometxt.Width
    End If
    ' sesso
    If rs![sessopresente] = True Then
        Me.sessotxt.Left = sinistra
        Me.sessotxt.Width = rs![sessodimensione] * 567
        sinistra = sinistra + Me.sessotxt.Width
    End If
    ' data di nascita
    If rs![Data di Nascitapresente] = True Then
        Me.[Data di Nascitatxt].Left = sinistra
        Me.[Data di Nascitatxt].Width = rs![data di nascitadimensione]
* 567
        sinistra = sinistra + Me.[Data di Nascitatxt].Width
    End If
    If rs![etāpresente] = True Then
        Me.[etātxt].Left = sinistra
        Me.[etātxt].Width = rs![etādimensione] * 567
        sinistra = sinistra + Me.[etātxt].Width
    End If
    ' luogo di nascita
    If rs![Luogo di nascitapresente] = True Then
        Me.[Luogo di Nascitatxt].Left = sinistra
        Me.[Luogo di Nascitatxt].Width = rs![Luogo di
nascitadimensione] * 567
        sinistra = sinistra + Me.[Luogo di Nascitatxt].Width
    End If
    ' Provincia di nascita
    If rs![provincia di nascitapresente] = True Then
        Me.[Provincia di nascitatxt].Left = sinistra
        Me.[Provincia di nascitatxt].Width = rs![provincia di
nascitadimensione] * 567
        sinistra = sinistra + Me.[Provincia di nascitatxt].Width
    End If
    ' nazionalitā
    If rs![nazionalitāpresente] = True Then
        Me.[Nazionalitātxt].Left = sinistra
        Me.[Nazionalitātxt].Width = rs![nazionalitādimensione] * 567
        sinistra = sinistra + Me.[Nazionalitātxt].Width
    End If
    ' indirizzo - via
    If rs![Indirizzo - Viapresente] = True Then
        Me.[Indirizzo - Viatxt].Left = sinistra
        Me.[Indirizzo - Viatxt].Width = rs![Indirizzo - Viadimensione]
* 567
        sinistra = sinistra + Me.[Indirizzo - Viatxt].Width
    End If
    ' cap
    If rs![cappresente] = True Then
        Me.[captxt].Left = sinistra
        Me.[captxt].Width = rs![capdimensione] * 567
        sinistra = sinistra + Me.[captxt].Width
    End If
    ' cittā di residenza
    If rs![Cittā di residenzapresente] = True Then
        Me.[Cittā di residenzatxt].Left = sinistra
        Me.[Cittā di residenzatxt].Width = rs![Cittā di
residenzadimensione] * 567
        sinistra = sinistra + Me.[Cittā di residenzatxt].Width
    End If
    ' provincia di residenza
    If rs![Provincia di Residenzapresente] = True Then
        Me.[Provincia di Residenzatxt].Left = sinistra
        Me.[Provincia di Residenzatxt].Width = rs![Provincia di
Residenzadimensione] * 567
        sinistra = sinistra + Me.[Provincia di Residenzatxt].Width
    End If
    ' tel abitazione
    If rs![tel abitazionepresente] = True Then
        Me.[Tel abitazionetxt].Left = sinistra
        Me.[Tel abitazionetxt].Width = rs![tel abitazionedimensione] *
567
        sinistra = sinistra + Me.[Tel abitazionetxt].Width
    End If
    ' tel ufficio
    If rs![tel ufficiopresente] = True Then
        Me.[Tel ufficiotxt].Left = sinistra
        Me.[Tel ufficiotxt].Width = rs![tel ufficiodimensione] * 567
        sinistra = sinistra + Me.[Tel ufficiotxt].Width
    End If
    ' cellulare
    If rs![Cellularepresente] = True Then
        Me.[cellularetxt].Left = sinistra
        Me.[cellularetxt].Width = rs![cellularedimensione] * 567
        sinistra = sinistra + Me.[cellularetxt].Width
    End If
    ' altro tel
    If rs![altro telpresente] = True Then
        Me.[Altro teltxt].Left = sinistra
        Me.[Altro teltxt].Width = rs![altro teldimensione] * 567
        sinistra = sinistra + Me.[Altro teltxt].Width
    End If
    ' stato civile
    If rs![stato civilepresente] = True Then
        Me.[Stato Civiletxt].Left = sinistra
        Me.[Stato Civiletxt].Width = rs![stato civiledimensione] * 567
        sinistra = sinistra + Me.[Stato Civiletxt].Width
    End If
    ' cognome coniuge
    If rs![cognome coniugepresente] = True Then
        Me.[Cognome Coniugetxt].Left = sinistra
        Me.[Cognome Coniugetxt].Width = rs![cognome coniugedimensione]
* 567
        sinistra = sinistra + Me.[Cognome Coniugetxt].Width
    End If
    ' nome coniuge
    If rs![nome coniugepresente] = True Then
        Me.[Nome Coniugetxt].Left = sinistra
        Me.[Nome Coniugetxt].Width = rs![nome coniugedimensione] * 567
        sinistra = sinistra + Me.[Nome Coniugetxt].Width
    End If
    ' professione coniuge
    If rs![professione coniugepresente] = True Then
        Me.[Professione coniugetxt].Left = sinistra
        Me.[Professione coniugetxt].Width = rs![professione
coniugedimensione] * 567
        sinistra = sinistra + Me.[Professione coniugetxt].Width
    End If
    ' n° figli
    If rs![n° figlipresente] = True Then
        Me.[N° Figlitxt].Left = sinistra
        Me.[N° Figlitxt].Width = rs![n° figlidimensione] * 567
        sinistra = sinistra + Me.[N° Figlitxt].Width
    End If
    ' servizio militare
    If rs![servizio militarepresente] = True Then
        Me.[Servizio Militaretxt].Left = sinistra
        Me.[Servizio Militaretxt].Width = rs![servizio
militaredimensione] * 567
        sinistra = sinistra + Me.[Servizio Militaretxt].Width
    End If
        ' dal s
    If rs![dal spresente] = True Then
        Me.[dal stxt].Left = sinistra
        Me.[dal stxt].Width = rs![dal sdimensione] * 567
        sinistra = sinistra + Me.[dal stxt].Width
    End If
    ' al s
    If rs![al spresente] = True Then
        Me.[al stxt].Left = sinistra
        Me.[al stxt].Width = rs![al sdimensione] * 567
        sinistra = sinistra + Me.[al stxt].Width
    End If
    ' email
    If rs![emailpresente] = True Then
        Me.[emailtxt].Left = sinistra
        Me.[emailtxt].Width = rs![emaildimensione] * 567
        sinistra = sinistra + Me.[emailtxt].Width
    End If
    ' foto
    If rs![fotopresente] = True Then
        Me.[Fototxt].Left = sinistra
        Me.[Fototxt].Width = rs![fotodimensione] * 567
        sinistra = sinistra + Me.[Fototxt].Width
    End If
    ' completa
    If rs![completapresente] = True Then
        Me.[completatxt].Left = sinistra
        Me.[completatxt].Width = rs![fotodimensione] * 567
        sinistra = sinistra + Me.[completatxt].Width
    Else
        Me.[completa].Visible = False
    End If
    ' diploma
    If rs![diplomapresente] = True Then
        Me.[diplomatxt].Left = sinistra
        Me.[diplomatxt].Width = rs![diplomadimensione] * 567
        sinistra = sinistra + Me.[diplomatxt].Width
    End If
    ' anno diploma
    If rs![Annodiplomapresente] = True Then
        Me.[anno diplomatxt].Left = sinistra
        Me.[anno diplomatxt].Width = rs![Annodiplomadimensione] * 567
        sinistra = sinistra + Me.[anno diplomatxt].Width
    End If
    ' votazione diploma
    If rs![Votazionediplomapresente] = True Then
        Me.[votazione diplomatxt].Left = sinistra
        Me.[votazione diplomatxt].Width =
rs![Votazionediplomadimensione] * 567
        sinistra = sinistra + Me.[votazione diplomatxt].Width
    End If
    ' laurea
    If rs![laureapresente] = True Then
        Me.[Laureatxt].Left = sinistra
        Me.[Laureatxt].Width = rs![laureadimensione] * 567
        sinistra = sinistra + Me.[Laureatxt].Width
    End If
    ' universitā
    If rs![Universitāpresente] = True Then
        Me.[Universitātxt].Left = sinistra
        Me.[Universitātxt].Width = rs![Universitādimensione] * 567
        sinistra = sinistra + Me.[Universitātxt].Width
    End If
    ' anno
    If rs![Annopresente] = True Then
        Me.[anno laureatxt].Left = sinistra
        Me.[anno laureatxt].Width = rs![Annodimensione] * 567
        sinistra = sinistra + Me.[anno laureatxt].Width
    End If
    ' Votazione laurea
    If rs![Votazionepresente] = True Then
        Me.[Votazione laureatxt].Left = sinistra
        Me.[Votazione laureatxt].Width = rs![Votazionedimensione] *
567
        sinistra = sinistra + Me.[Votazione laureatxt].Width
    End If
    ' Specializzazioni/Corsi/Note
    If rs![Specializzazioni /Corsi/Notepresente] = True Then
        Me.[Specializzazioni/Corsi/Notetxt].Left = sinistra
        Me.[Specializzazioni/Corsi/Notetxt].Width =
rs![Specializzazioni /Corsi/Notedimensioni] * 567
        sinistra = sinistra +
Me.[Specializzazioni/Corsi/Notetxt].Width
    End If
    ' inglese
    If rs![Inglesepresente] = True Then
        Me.[inglesetxt].Left = sinistra
        Me.[inglesetxt].Width = rs![Inglesedimensione] * 567
        sinistra = sinistra + Me.[inglesetxt].Width
    End If
    ' francese
    If rs![Francesepresente] = True Then
        Me.[Francesetxt].Left = sinistra
        Me.[Francesetxt].Width = rs![Francesedimensione] * 567
        sinistra = sinistra + Me.[Francesetxt].Width
    End If
    ' tedesco
    If rs![Tedescopresente] = True Then
        Me.[Tedescotxt].Left = sinistra
        Me.[Tedescotxt].Width = rs![Tedescodimensione] * 567
        sinistra = sinistra + Me.[Tedescotxt].Width
    End If
    ' spagnolo
    If rs![Spagnolopresente] = True Then
        Me.[Spagnolotxt].Left = sinistra
        Me.[Spagnolotxt].Width = rs![Spagnolodimensione] * 567
        sinistra = sinistra + Me.[Spagnolotxt].Width
    End If
    ' altre lingue
    If rs![altre lingue conosciutepresente] = True Then
        Me.[Altre lingue conosciutetxt].Left = sinistra
        Me.[Altre lingue conosciutetxt].Width = rs![altre lingue
conosciutedimensione] * 567
        sinistra = sinistra + Me.[Altre lingue conosciutetxt].Width
    End If
    ' livello conoscenza
    If rs![livello di conoscenzapresente] = True Then
        Me.[Livello di conoscenzatxt].Left = sinistra
        Me.[Livello di conoscenzatxt].Width = rs![livello di
conoscenzadimensione] * 567
        sinistra = sinistra + Me.[Livello di conoscenzatxt].Width
    End If
    ' area professionale
    If rs![area professionalepresente] = True Then
        Me.[area professionaletxt].Left = sinistra
        Me.[area professionaletxt].Width = rs![area
professionaledimensione] * 567
        sinistra = sinistra + Me.[area professionaletxt].Width
    End If
    ' anzianitā area professionale
    If rs![anzianitā area profpresente] = True Then
        Me.[Anzianitā area proftxt].Left = sinistra
        Me.[Anzianitā area proftxt].Width = rs![anzianitā area
profdimensione] * 567
        sinistra = sinistra + Me.[Anzianitā area proftxt].Width
    End If
 
    ' durata
    If rs![duratapresente] = True Then
        Me.[duratatxt].Left = sinistra
        Me.[duratatxt].Width = rs![duratadimensione] * 567
        sinistra = sinistra + Me.[duratatxt].Width
    End If
    ' dal
    If rs![Dalpresente] = True Then
        Me.[daltxt].Left = sinistra
        Me.[daltxt].Width = rs![Daldimensione] * 567
        sinistra = sinistra + Me.[daltxt].Width
    End If
    ' al
    If rs![Alpresente] = True Then
        Me.[altxt].Left = sinistra
        Me.[altxt].Width = rs![Aldimensione] * 567
        sinistra = sinistra + Me.[altxt].Width
    End If
    ' azienda
    If rs![Aziendapresente] = True Then
        Me.[aziendatxt].Left = sinistra
        Me.[aziendatxt].Width = rs![Aziendadimensione] * 567
        sinistra = sinistra + Me.[aziendatxt].Width
    End If
    ' sede
    If rs![Sedepresente] = True Then
        Me.[sedetxt].Left = sinistra
        Me.[sedetxt].Width = rs![Sededimensione] * 567
        sinistra = sinistra + Me.[sedetxt].Width
    End If
    ' provincia lav
    If rs![provincia lavpresente] = True Then
        Me.[provincia lavtxt].Left = sinistra
        Me.[provincia lavtxt].Width = rs![provincia lavdimensione] *
567
        sinistra = sinistra + Me.[provincia lavtxt].Width
    End If
    ' settoreattivitā
    If rs![settoreattivitāpresente] = True Then
        Me.[settoreattivitātxt].Left = sinistra
        Me.[settoreattivitātxt].Width = rs![settoreattivitādimensione]
* 567
        sinistra = sinistra + Me.[settoreattivitātxt].Width
    End If
    ' ultima posizione ricoperta
    If rs![ultima posizione ricopertapresente] = True Then
        Me.[ultima posizione ricopertatxt].Left = sinistra
        Me.[ultima posizione ricopertatxt].Width = rs![ultima
posizione ricopertadimensione] * 567
        sinistra = sinistra + Me.[ultima posizione ricopertatxt].Width
    End If
    ' inquadramento
    If rs![Inquadramentopresente] = True Then
        Me.[inquadramentotxt].Left = sinistra
        Me.[inquadramentotxt].Width = rs![Inquadramentodimensione] *
567
        sinistra = sinistra + Me.[inquadramentotxt].Width
    End If
    ' RAL (per 1000)
    If rs![RAL (per 1000)presente] = True Then
        Me.[RAL (per 1000)txt].Left = sinistra
        Me.[RAL (per 1000)txt].Width = rs![RAL (per 1000)dimensione] *
567
        sinistra = sinistra + Me.[RAL (per 1000)txt].Width
    End If
    ' Incentivi / benefits
    If rs![Incentivi / benefitspresente] = True Then
        Me.[Incentivi / benefitstxt].Left = sinistra
        Me.[Incentivi / benefitstxt].Width = rs![Incentivi /
benefitsdimensione] * 567
        sinistra = sinistra + Me.[Incentivi / benefitstxt].Width
    End If
    ' Pacchetto Retributivo
    If rs![Pacchetto Retributivopresente] = True Then
        Me.[Pacchetto Retributivotxt].Left = sinistra
        Me.[Pacchetto Retributivotxt].Width = rs![Pacchetto
Retributivodimensione] * 567
        sinistra = sinistra + Me.[Pacchetto Retributivotxt].Width
    End If
    ' Data inserimento
    If rs![Data inserimentopresente] = True Then
        Me.[Data Inserimentotxt].Left = sinistra
        Me.[Data Inserimentotxt].Width = rs![Data
inserimentodimensione] * 567
        sinistra = sinistra + Me.[Data Inserimentotxt].Width
    End If
    ' data ultimo aggiornamento
    If rs![data ultimo aggiornamentopresente] = True Then
        Me.[Data ultimo aggiornamentotxt].Left = sinistra
        Me.[Data ultimo aggiornamentotxt].Width = rs![data ultimo
aggiornamentodimensione] * 567
        sinistra = sinistra + Me.[Data ultimo aggiornamentotxt].Width
    End If
    ' modo di reperimento
    If rs![modo di reperimentopresente] = True Then
        Me.[Modo di reperimentotxt].Left = sinistra
        Me.[Modo di reperimentotxt].Width = rs![modo di
reperimentodimensione] * 567
        sinistra = sinistra + Me.[Modo di reperimentotxt].Width
    End If
    ' inserzione
    If rs![Inserzionepresente] = True Then
        Me.[inserzionetxt].Left = sinistra
        Me.[inserzionetxt].Width = rs![Inserzionedimensione] * 567
        sinistra = sinistra + Me.[inserzionetxt].Width
    End If
    ' data inserzione
    If rs![data inserzionepresente] = True Then
        Me.[Data Inserzionetxt].Left = sinistra
        Me.[Data Inserzionetxt].Width = rs![data inserzionedimensione]
* 567
        sinistra = sinistra + Me.[Data Inserzionetxt].Width
    End If
    ' nome segnalante
    If rs![nome segnalantepresente] = True Then
        Me.[Nome segnalantetxt].Left = sinistra
        Me.[Nome segnalantetxt].Width = rs![nome segnalantedimensione]
* 567
        sinistra = sinistra + Me.[Nome segnalantetxt].Width
    End If
    ' data intervista
    If rs![Data intervistapresente] = True Then
        Me.[Data Intervistatxt].Left = sinistra
        Me.[Data Intervistatxt].Width = rs![data intervistadimensione]
* 567
        sinistra = sinistra + Me.[Data Intervistatxt].Width
    End If
    ' intervistatore
    If rs![Intervistatorepresente] = True Then
        Me.[intervistatoretxt].Left = sinistra
        Me.[intervistatoretxt].Width = rs![Intervistatoredimensione] *
567
        sinistra = sinistra + Me.[intervistatoretxt].Width
    End If
    ' posizione
    If rs![Posizionepresente] = True Then
        Me.[posizionetxt].Left = sinistra
        Me.[posizionetxt].Width = rs![Posizionedimensione] * 567
        sinistra = sinistra + Me.[posizionetxt].Width
    End If
    ' azienda cliente
    If rs![azienda clientepresente] = True Then
        Me.[Azienda Clientetxt].Left = sinistra
        Me.[Azienda Clientetxt].Width = rs![azienda clientedimensione]
* 567
        sinistra = sinistra + Me.[Azienda Clientetxt].Width
    End If
    ' giudizio globale
    If rs![giudizio globalepresente] = True Then
        Me.[Giudizio globaletxt].Left = sinistra
        Me.[Giudizio globaletxt].Width = rs![giudizio
globaledimensione] * 567
        sinistra = sinistra + Me.[Giudizio globaletxt].Width
    End If
    ' esito verifica azienda
    If rs![esito  verifica aziendapresente] = True Then
        Me.[esito  verifica aziendatxt].Left = sinistra
        Me.[esito  verifica aziendatxt].Width = rs![esito  verifica
aziendadimensione] * 567
        sinistra = sinistra + Me.[esito  verifica aziendatxt].Width
    End If
    ' data assunzione
    If rs![Data assunzionepresente] = True Then
        Me.[Data assunzionetxt].Left = sinistra
        Me.[Data assunzionetxt].Width = rs![data assunzionedimensione]
* 567
        sinistra = sinistra + Me.[Data assunzionetxt].Width
    End If
    ' data presentazione
    If rs![Data presentazionepresente] = True Then
        Me.[Data presentazionetxt].Left = sinistra
        Me.[Data presentazionetxt].Width = rs![data
presentazionedimensione] * 567
        sinistra = sinistra + Me.[Data presentazionetxt].Width
    End If
    ' Azienda Cliente presentazione
    If rs![Azienda Cliente presentazionepresente] = True Then
        Me.[Azienda Cliente presentazionetxt].Left = sinistra
        Me.[Azienda Cliente presentazionetxt].Width = rs![Azienda
Cliente presentazionedimensione] * 567
        sinistra = sinistra + Me.[Azienda Cliente
presentazionetxt].Width
    End If
    'posizione presentazione
    If rs![posizione presentazionepresente] = True Then
        Me.[Posizione presentazionetxt].Left = sinistra
        Me.[Posizione presentazionetxt].Width = rs![posizione
presentazionedimensione] * 567
        sinistra = sinistra + Me.[Posizione presentazionetxt].Width
    End If
    ' consulente presentazione
    If rs![consulente presentazionepresente] = True Then
        Me.[Consulente presentazionetxt].Left = sinistra
        Me.[Consulente presentazionetxt].Width = rs![consulente
presentazionedimensione] * 567
        sinistra = sinistra + Me.[Consulente presentazionetxt].Width
    End If
    '  esito presentazione
    If rs![esito presentazionepresente] = True Then
        Me.[Esito presentazionetxt].Left = sinistra
        Me.[Esito presentazionetxt].Width = rs![esito
presentazionedimensione] * 567
        sinistra = sinistra + Me.[Esito presentazionetxt].Width
    End If
    '  note varie
    If rs![note variepresente] = True Then
        Me.[Note varietxt].Left = sinistra
        Me.[Note varietxt].Width = rs![note variedimensione] * 567
        sinistra = sinistra + Me.[Note varietxt].Width
    End If
End If
rs.Close
Set db = Nothing
Exit Sub
errore:
MsgBox "Errore durante la creazione del report"
End Sub
Private Sub Report_Open(Cancel As Integer)
Dim pres, curr As Variant
pres = False
curr = False
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT * FROM parametristampa WHERE
tipostampa =""" & Forms![parametristampa].[tipostampa] & """")
If Not (rs.EOF And rs.BOF) Then
    If rs![duratapresente] = True Or rs![Dalpresente] = True Or
rs![Alpresente] = True Or rs![Aziendapresente] = True Or
rs![Sedepresente] = True Or rs![provincia lavpresente] = True Or
rs![settoreattivitāpresente] = True Or rs![ultima posizione
ricopertapresente] = True Then
        curr = True
    End If
    If rs![Data presentazionepresente] = True Or rs![Azienda Cliente
presentazionepresente] = True Or rs![posizione presentazionepresente]
= True Or rs![consulente presentazionepresente] = True Or rs![esito
presentazionepresente] = True Then
        pres = True
    End If
End If
rs.Close
Set db = Nothing
Select Case Forms![parametristampa]![archivio].Caption
Case "Archivio Uno"
    If pres = True And curr = True Then
        Me.RecordSource = "SELECT [Tabella Riassuntiva].*,
Val(IIf(IsNull([data di
nascita]),"""",IIf(DateSerial(Year(Date()),Month([data di
nascita]),Day([data di nascita]))<=Date(),Year(Date())-Year([data di
nascita]),Year(Date())-Year([data di nascita])-1))) AS etā,
curriculum.Dal, curriculum.Al, curriculum.Azienda, curriculum.Sede,
curriculum.[Provincia lav], curriculum.settoreattivitā,
curriculum.[Ultima Posizione Ricoperta], distanza([dal],[al]) AS
durata, Presentazioni.[Data presentazione], Presentazioni.[Azienda
Cliente presentazione], Presentazioni.[Posizione presentazione],
Presentazioni.[Consulente presentazione], Presentazioni.[Esito
presentazione] FROM (curriculum RIGHT JOIN [Tabella Riassuntiva] ON
curriculum.[ID Candidato] = [Tabella Riassuntiva].[ID Candidato]) LEFT
JOIN Presentazioni ON [Tabella Riassuntiva].[ID Candidato] =
Presentazioni.[ID Candidato]"
    ElseIf curr = True And pres = False Then
        Me.RecordSource = "SELECT [Tabella Riassuntiva].*,
Val(IIf(IsNull([data di
nascita]),"""",IIf(DateSerial(Year(Date()),Month([data di
nascita]),Day([data di nascita]))<=Date(),Year(Date())-Year([data di
nascita]),Year(Date())-Year([data di nascita])-1))) AS etā,
curriculum.Dal, curriculum.Al, curriculum.Azienda, curriculum.Sede,
curriculum.[Provincia lav], curriculum.settoreattivitā,
curriculum.[Ultima Posizione Ricoperta], distanza([dal],[al]) AS
durata FROM curriculum RIGHT JOIN [Tabella Riassuntiva] ON
curriculum.[ID Candidato] = [Tabella Riassuntiva].[ID Candidato]"
    ElseIf pres = True And curr = False Then
        Me.RecordSource = "SELECT [Tabella Riassuntiva].*,
Val(IIf(IsNull([data di
nascita]),"""",IIf(DateSerial(Year(Date()),Month([data di
nascita]),Day([data di nascita]))<=Date(),Year(Date())-Year([data di
nascita]),Year(Date())-Year([data di nascita])-1))) AS etā,
Presentazioni.[Data presentazione], Presentazioni.[Azienda Cliente
presentazione], Presentazioni.[Posizione presentazione],
Presentazioni.[Consulente presentazione], Presentazioni.[Esito
presentazione] FROM [Tabella Riassuntiva] LEFT JOIN Presentazioni ON
[Tabella Riassuntiva].[ID Candidato] = Presentazioni.[ID Candidato]"
    Else
        Me.RecordSource = "SELECT [Tabella Riassuntiva].*,
Val(IIf(IsNull([data di
nascita]),"""",IIf(DateSerial(Year(Date()),Month([data di
nascita]),Day([data di nascita]))<=Date(),Year(Date())-Year([data di
nascita]),Year(Date())-Year([data di nascita])-1))) AS etā FROM
[Tabella Riassuntiva]"
    End If
Case "Archivio Due"
    If pres = True And curr = True Then
        Me.RecordSource = "SELECT [Tabella Riassuntiva1].*,
Val(IIf(IsNull([data di
nascita]),"""",IIf(DateSerial(Year(Date()),Month([data di
nascita]),Day([data di nascita]))<=Date(),Year(Date())-Year([data di
nascita]),Year(Date())-Year([data di nascita])-1))) AS etā,
curriculum1.Dal, curriculum1.Al, curriculum1.Azienda,
curriculum1.Sede, curriculum1.[Provincia lav],
curriculum1.settoreattivitā, curriculum1.[Ultima Posizione Ricoperta],
distanza([dal],[al]) AS durata, Presentazioni1.[Data presentazione],
Presentazioni1.[Azienda Cliente presentazione],
Presentazioni1.[Posizione presentazione], Presentazioni1.[Consulente
presentazione], Presentazioni1.[Esito presentazione] FROM (curriculum1
RIGHT JOIN [Tabella Riassuntiva1] ON curriculum1.[ID Candidato] =
[Tabella Riassuntiva1].[ID Candidato]) LEFT JOIN Presentazioni1 ON
[Tabella Riassuntiva1].[ID Candidato] = Presentazioni1.[ID Candidato]"
    ElseIf curr = True And pres = False Then
        Me.RecordSource = "SELECT [Tabella Riassuntiva1].*,
Val(IIf(IsNull([data di
nascita]),"""",IIf(DateSerial(Year(Date()),Month([data di
nascita]),Day([data di nascita]))<=Date(),Year(Date())-Year([data di
nascita]),Year(Date())-Year([data di nascita])-1))) AS etā,
curriculum1.Dal, curriculum1.Al, curriculum1.Azienda,
curriculum1.Sede, curriculum1.[Provincia lav],
curriculum1.settoreattivitā, curriculum1.[Ultima Posizione Ricoperta],
distanza([dal],[al]) AS durata FROM curriculum1 RIGHT JOIN [Tabella
Riassuntiva1] ON curriculum1.[ID Candidato] = [Tabella
Riassuntiva1].[ID Candidato]"
    ElseIf pres = True And curr = False Then
        Me.RecordSource = "SELECT [Tabella Riassuntiva1].*,
Val(IIf(IsNull([data di
nascita]),"""",IIf(DateSerial(Year(Date()),Month([data di
nascita]),Day([data di nascita]))<=Date(),Year(Date())-Year([data di
nascita]),Year(Date())-Year([data di nascita])-1))) AS etā,
Presentazioni1.[Data presentazione], Presentazioni1.[Azienda Cliente
presentazione], Presentazioni1.[Posizione presentazione],
Presentazioni1.[Consulente presentazione], Presentazioni1.[Esito
presentazione] FROM [Tabella Riassuntiva1] LEFT JOIN Presentazioni1 ON
[Tabella Riassuntiva1].[ID Candidato] = Presentazioni1.[ID Candidato]"
    Else
        Me.RecordSource = "SELECT [Tabella Riassuntiva1].*,
Val(IIf(IsNull([data di
nascita]),"""",IIf(DateSerial(Year(Date()),Month([data di
nascita]),Day([data di nascita]))<=Date(),Year(Date())-Year([data di
nascita]),Year(Date())-Year([data di nascita])-1))) AS etā FROM
[Tabella Riassuntiva1]"
    End If
Case "Archivio Tre"
    If pres = True And curr = True Then
        Me.RecordSource = "SELECT [Tabella Riassuntiva2].*,
Val(IIf(IsNull([data di
nascita]),"""",IIf(DateSerial(Year(Date()),Month([data di
nascita]),Day([data di nascita]))<=Date(),Year(Date())-Year([data di
nascita]),Year(Date())-Year([data di nascita])-1))) AS etā,
curriculum2.Dal, curriculum2.Al, curriculum2.Azienda,
curriculum2.Sede, curriculum2.[Provincia lav],
curriculum2.settoreattivitā, curriculum2.[Ultima Posizione Ricoperta],
distanza([dal],[al]) AS durata, Presentazioni2.[Data presentazione],
Presentazioni2.[Azienda Cliente presentazione],
Presentazioni2.[Posizione presentazione], Presentazioni2.[Consulente
presentazione], Presentazioni2.[Esito presentazione] FROM (curriculum2
RIGHT JOIN [Tabella Riassuntiva2] ON curriculum2.[ID Candidato] =
[Tabella Riassuntiva2].[ID Candidato]) LEFT JOIN Presentazioni2 ON
[Tabella Riassuntiva2].[ID Candidato] = Presentazioni2.[ID Candidato]"
    ElseIf curr = True And pres = False Then
        Me.RecordSource = "SELECT [Tabella Riassuntiva2].*,
Val(IIf(IsNull([data di
nascita]),"""",IIf(DateSerial(Year(Date()),Month([data di
nascita]),Day([data di nascita]))<=Date(),Year(Date())-Year([data di
nascita]),Year(Date())-Year([data di nascita])-1))) AS etā,
curriculum2.Dal, curriculum2.Al, curriculum2.Azienda,
curriculum2.Sede, curriculum2.[Provincia lav],
curriculum2.settoreattivitā, curriculum2.[Ultima Posizione Ricoperta],
distanza([dal],[al]) AS durata FROM curriculum2 RIGHT JOIN [Tabella
Riassuntiva2] ON curriculum2.[ID Candidato] = [Tabella
Riassuntiva2].[ID Candidato]"
    ElseIf pres = True And curr = False Then
        Me.RecordSource = "SELECT [Tabella Riassuntiva2].*,
Val(IIf(IsNull([data di
nascita]),"""",IIf(DateSerial(Year(Date()),Month([data di
nascita]),Day([data di nascita]))<=Date(),Year(Date())-Year([data di
nascita]),Year(Date())-Year([data di nascita])-1))) AS etā,
Presentazioni2.[Data presentazione], Presentazioni2.[Azienda Cliente
presentazione], Presentazioni2.[Posizione presentazione],
Presentazioni2.[Consulente presentazione], Presentazioni2.[Esito
presentazione] FROM [Tabella Riassuntiva2] LEFT JOIN Presentazioni2 ON
[Tabella Riassuntiva2].[ID Candidato] = Presentazioni2.[ID Candidato]"
    Else
        Me.RecordSource = "SELECT [Tabella Riassuntiva2].*,
Val(IIf(IsNull([data di
nascita]),"""",IIf(DateSerial(Year(Date()),Month([data di
nascita]),Day([data di nascita]))<=Date(),Year(Date())-Year([data di
nascita]),Year(Date())-Year([data di nascita])-1))) AS etā FROM
[Tabella Riassuntiva2]"
    End If
Case "Archivio Quattro"
    If pres = True And curr = True Then
        Me.RecordSource = "SELECT [Tabella Riassuntiva3].*,
Val(IIf(IsNull([data di
nascita]),"""",IIf(DateSerial(Year(Date()),Month([data di
nascita]),Day([data di nascita]))<=Date(),Year(Date())-Year([data di
nascita]),Year(Date())-Year([data di nascita])-1))) AS etā,
curriculum3.Dal, curriculum3.Al, curriculum3.Azienda,
curriculum3.Sede, curriculum3.[Provincia lav],
curriculum3.settoreattivitā, curriculum3.[Ultima Posizione Ricoperta],
distanza([dal],[al]) AS durata, Presentazioni3.[Data presentazione],
Presentazioni3.[Azienda Cliente presentazione],
Presentazioni3.[Posizione presentazione], Presentazioni3.[Consulente
presentazione], Presentazioni3.[Esito presentazione] FROM (curriculum3
RIGHT JOIN [Tabella Riassuntiva3] ON curriculum3.[ID Candidato] =
[Tabella Riassuntiva3].[ID Candidato]) LEFT JOIN Presentazioni3 ON
[Tabella Riassuntiva3].[ID Candidato] = Presentazioni3.[ID Candidato]"
    ElseIf curr = True And pres = False Then
        Me.RecordSource = "SELECT [Tabella Riassuntiva3].*,
Val(IIf(IsNull([data di
nascita]),"""",IIf(DateSerial(Year(Date()),Month([data di
nascita]),Day([data di nascita]))<=Date(),Year(Date())-Year([data di
nascita]),Year(Date())-Year([data di nascita])-1))) AS etā,
curriculum3.Dal, curriculum3.Al, curriculum3.Azienda,
curriculum3.Sede, curriculum3.[Provincia lav],
curriculum3.settoreattivitā, curriculum3.[Ultima Posizione Ricoperta],
distanza([dal],[al]) AS durata FROM curriculum3 RIGHT JOIN [Tabella
Riassuntiva3] ON curriculum3.[ID Candidato] = [Tabella
Riassuntiva3].[ID Candidato]"
    ElseIf pres = True And curr = False Then
        Me.RecordSource = "SELECT [Tabella Riassuntiva3].*,
Val(IIf(IsNull([data di
nascita]),"""",IIf(DateSerial(Year(Date()),Month([data di
nascita]),Day([data di nascita]))<=Date(),Year(Date())-Year([data di
nascita]),Year(Date())-Year([data di nascita])-1))) AS etā,
Presentazioni3.[Data presentazione], Presentazioni3.[Azienda Cliente
presentazione], Presentazioni3.[Posizione presentazione],
Presentazioni3.[Consulente presentazione], Presentazioni3.[Esito
presentazione] FROM [Tabella Riassuntiva3] LEFT JOIN Presentazioni3 ON
[Tabella Riassuntiva3].[ID Candidato] = Presentazioni3.[ID Candidato]"
    Else
        Me.RecordSource = "SELECT [Tabella Riassuntiva3].*,
Val(IIf(IsNull([data di
nascita]),"""",IIf(DateSerial(Year(Date()),Month([data di
nascita]),Day([data di nascita]))<=Date(),Year(Date())-Year([data di
nascita]),Year(Date())-Year([data di nascita])-1))) AS etā FROM
[Tabella Riassuntiva3]"
    End If
End Select
If curr = False Then
Me.[durata].ControlSource = ""
Me.[Dal].ControlSource = ""
Me.[Al].ControlSource = ""
Me.[Azienda].ControlSource = ""
Me.[Sede].ControlSource = ""
Me.[Provincia lav].ControlSource = ""
Me.[settoreattivitā].ControlSource = ""
Me.[Ultima Posizione Ricoperta].ControlSource = ""
End If
If pres = False Then
Me.[Data presentazione].ControlSource = ""
Me.[Azienda Cliente presentazione].ControlSource = ""
Me.[Posizione presentazione].ControlSource = ""
Me.[Consulente presentazione].ControlSource = ""
Me.[Esito presentazione].ControlSource = ""
End If
End Sub
Saluti.
Emanuele.