text:
"Alessandro Baraldi" <
ik2...@libero.it
> wrote in
news:1173892861.3...@n76g2000hsh.googlegroups.com
:
> No... tante volte basta spiegare cosa vuoi.... visto che quello che
> hai postato ora non c'azzecca nulla con quello che hai chiesto con
> un'altro Nick.....
>
all'inizio chedevo come eliminare le righe vuote che il report mi generava
quando usavo la funzione di output in formato TXT (i post sono del 14-15/2)
al che ho scritto un file batch che me li puliva e ho cercato di eseguirlo
dall'interno del codice access
alla fine ho buttato giù due righe di codice (beh, erano 9) che facevano lo
stesso lavoro :)



title: Comando Shell("filebatch.bat") non funziona

author: Alessandro Baraldi

text:
On 15 Mar, 09:08, Ammammata <
ammamm...@tiscalinet.it
> wrote:

NO... non puoi pensare che ci si ricordi dei tuoi POST...con NICK NAME
diversi pergiunta!
Questo POST chiedeva come eseguire un Batch e siccome non hai spiegato
i retroscena e/o l'intenzione chi mai poteva capirlo....
Ti invito a dare coerenza ai POST sia per tuo interesse, ma
soprattutto per la comunità.
@Alex


title: prova

author: marco


title: Sqlite

author: Greg

text:
C'è un modo per aprire/leggere/importare da Sqlite ad Access2003?

--
Greg


title: Sqlite

author: ciroteo

text:

Non esistono dei driver odbc da utilizzare per collegarsi direttamente alle tabelle di sql lite?


title: Sqlite

author: RobertoA

text:
Il 06/10/2015 08:44, Greg ha scritto:
> C'è un modo per aprire/leggere/importare da Sqlite ad Access2003?
>

http://www.ch-werner.de/sqliteodbc/


title: Access 2.0, query e contator

author: ciuitre

text:
Access 2.0, query e contatore
Non riesco a risolvere questo problema.
Ho creato un database con Access 2.0 e ho estrapolato
alcuni record, senza cancellarli, dall'archivio generale,
in base al dato presente in un campo. Ho bisogno,
però, di aggiungere nella query un contatore per attribuire
automaticamente ai record importati dall'archivio generale
un nuovo numero. Grazie a chiunque vorrà aiutarmi :-)


title: Re: aiuto

author: Sergio MAZZA

text:
<
terrin....@virgilio.it
> ha scritto nel messaggio news:1131877742.4...@g44g2000cwa.googlegroups.com...
Salve a tutti.
---omissis---
se mi aiutate mi fate un grosso piacere.
GRAZIE MILLE
[risposta]
Anche a noi rispettando le regole di quedto NG; le trovi su
www.sitocomune.com
 - Sezione ICAA...
Ciao.
--
Sergio MAZZA


title: Re: aiuto

text: grazie sergio ti faccio sapere


title: [OT?] generazione PDF da codice

author: Paolo opg

text:
ho necessità di generare dei pdf da alcuni report e fin qui nessun problema.
ho acrobat, scelgo la stampante via codice, do il nome file e mi ritrovo la
mia bella cartellina con tutti i report in formato pdf e il nome del cliente
a cui sono destinati.
il problema è che non so come settare le proprietà di questi files.
infatti sono tutti modificabili e senza alcuna protezione.
sto provando a cercare in rete, ma al momento non ho trovato info su come
modificare le prop dei pdf al momento della creazione, se non con la
maschera che viene fuori se stampo dal menu file-> stampa (possibilità che
non posso usare, dato che devo stampare 50-60 report alla volta...).
qualcuno mi sa dare qualche indirizzo (che non sia adobe.com...)?
o anche qualche esempio di codice... :-))
tnx
    paolo
--
+-----
| Paolo opg
| janickg ( at ) hotmail ( dot ) com
+-----


title: collegamento ado-db e stored procedure

author: Agos

text:
Dopo non poche sofferenze sono riuscito a collegare un progetto adp con SQL
Server e ho pure provato alcune stored procedure (sono ai primi tentativi e
sto ai primi esperimenti). Il problema è che se la stored procedure che ho
creato su SQL Server si chiama <Pippo>, me la ritrovo sul progetto adp
rinominata <Pippo;1> sicché poi quando la richiamo non funziona perché non
trova <Pippo>.
Perché?
Grazie, ciao a tutti.


title: collegamento ado-db e stored procedure

author: ALESSANDRO Baraldi

text:
"Agos" <
aga...@alice.it
> ha scritto nel messaggio
news:46c09024$0$36442$4faf...@reader5.news.tin.it...

Hai detto quasi tutto ma non come la richiami...
--
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.alessandrobaraldi.it
---------------------------------------------------------------------------


title: collegamento ado-db e stored procedure

text:
"ALESSANDRO Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:f9q4vm$kgc$1...@aioe.org...

>Per dirla meglio, sto studiando il progetto adp  "NotrthwindCS" e il report
>è: "Sales by Year", la cui sorgente dati è una stored procedure che ha lo
>stesso nome e che pesca i parametri di riferimento (due date) da un form.


title: collegamento ado-db e stored procedure

text:
> >Per dirla meglio, sto studiando il progetto adp  "NotrthwindCS" e il
report
> >č: "Sales by Year", la cui sorgente dati č una stored procedure che ha lo
> >stesso nome e che pesca i parametri di riferimento (due date) da un form.
Scusa non avevo visto si trattasse di ADP, di cui non sono minimamente
competente.
Prova a vedere se queste segnalazioni possono aiutarti:
http://support.microsoft.com/default.aspx?scid=kb;en-us;248095&Product=acc2000
Ho letto perň che con A2000 ci sono problemi... leggiti questo 3D
http://tinyurl.com/2vd72f



title: collegamento ado-db e stored procedure

author: giorgio rancati

text:
"Agos" <
aga...@alice.it
> ha scritto nel messaggio
news:46c09024$0$36442$4faf...@reader5.news.tin.it...

perchè devi aggiornare il tuo Access2000
:-)
per maggiori info guarda qui.
----
Description of incompatibility issues between Access 2000 projects (*.adp)
and SQL Server 2000
http://support.microsoft.com/kb/269824/en-us
----
Ciao
--
Giorgio Rancati
[Office Access MVP]


title: collegamento ado-db e stored procedure

text:
"giorgio rancati" <
giorgio_No_Sp...@tiscali.it
> ha scritto nel
messaggio news:46c0ab25$0$21202$5fc...@news.tiscali.it...

>Il problema è proprio l'aggiornamento. Ti ringrazio. Adesso spero di
>riuscire a farlo correttamente.
Di nuovo grazie, ciao.


title: Client di posta realizzato con Access ?

text:
Sapete consigliarmi un qualche client di posta realizzato in Access ?
Tipo Outlook o Outlook Express per capirci
Ciao e grazie
RobertoA


title: Client di posta realizzato con Access ?

text:

Io me lo sono fatto qualche anno fà... ma la cosa diventa abbastanza
intrigante da sviluppare.
A parte la possibilità di andare a scaricare dal Server le Mail via
Winsock, ed inviarle... cosa decisamente semplice... direi che nel mio
sito trovi un Sender che è una parte del Client già sviluppato..., non
ho mai pubblicato il Client completo in quanto non era perfetto(ed io
sono maniacale).
In ogni caso la parte mancante è il reader per il quale serve un
lavoro certosino di Parsing del messaggio MIME in decodifica 64....
con il riconoscimento dei Boundary.... e degli Attachment(allegati).
Insomma ti dico come feci io...
Mi sono scaricato da un'università americana il testo della decodifica
MIME e mi sono realizzato un Parser in una Classe, in realtà in 2
classi in quanto ogni Messaggio può contenere Allegati Multipli,
quindi la 1° Classe istanzia una Collection di Classi Attachment.....
Ho scaricato il messaggio dal Server con Winsock e l'ho dato in pasto
al Parser che mi restituiva tutte le proprietà del
Messaggio(TO:CC:BCC:Object:Priority:Subject ecc...) poi ho usato un pò
di OCX come il TreeView per la barra di navigazione delle Cartelle
Sent/Inbox/OutBox ecc...
ed una LilstView per l'elenco dei Messaggi... il problema nasceva per
il Corpo del messaggio per il quale l'unico controllo utilizzabile è
il WebBrowser, ma non è editabile(anche se nel sito di Lebans c'è
qualche cosa ma non funziona).
Quindi ho preso il contenuto HTML del messaggio e per la modifica l'ho
convertito in RTF usando il controllo RTF2 sempre di Lebans con tutti
i limiti che espone rispetto ad un WebBrowser equivalente nella
visualizzazione Immagini nei messaggi che chiaramente vengono visti
come Allegati...
Il lavoro è arduo ma MOLTO divertente.
@Alex


title: Client di posta realizzato con Access ?

text:
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:bc13d41f-b2e2-4703...@34g2000hsh.googlegroups.com...




-------------------------------------------------
Tanto bel codice che sta' la' ad ammuffire
Non sarebbe meglio "..vis-ciarlo in rete.." come dicono dalle mi parti ?
Ciao
RobertoA


title: Client di posta realizzato con Access ?

text:
...
> Tanto bel codice che sta' la' ad ammuffire
> Non sarebbe meglio "..vis-ciarlo in rete.." come dicono dalle mi parti ?
> Ciao
> RobertoA
No no... non ammuffisce perchè stà funzionando ...!
Non lo pubblico per diverse ragioni, una delle quali commerciali. ;-)
@Alex


title: Client di posta realizzato con Access ?

text:
"Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggio
news:9c7f6072-1d3c-4959...@y79g2000hsa.googlegroups.com...


---------------------------
Eh dai che noi non lo diciamo a nessuno che ce l'hai passato
Gli cambiamo nome, lo chiamiamo MAC acronimo di "Message Application Center"
cosi' si mimetizza
Va ben cossi' ?
RobertoA


title: Client di posta realizzato con Access ?

text:
On 29 Ott, 12:19, "RobertoA" <
amoro...@tiscalinet.it
> wrote:
> "Alessandro Baraldi" <
ik2...@libero.it
> ha scritto nel messaggionews:9c7f6072-1d3c-4959...@y79g2000hsa.googlegroups.com...
> ...
>
> > Tanto bel codice che sta' la' ad ammuffire
> > Non sarebbe meglio "..vis-ciarlo in rete.." come dicono dalle mi parti ?
> > Ciao
> > RobertoA
>
> No no... non ammuffisce perchè stà funzionando ...!
> Non lo pubblico per diverse ragioni, una delle quali commerciali. ;-)
>
> ---------------------------
>
> Eh dai che noi non lo diciamo a nessuno che ce l'hai passato
> Gli cambiamo nome, lo chiamiamo MAC acronimo di "Message Application Center"
> cosi' si mimetizza
> Va ben cossi' ?
> RobertoA
ehm ... credo che il riferimento al commerciale fosse rivolto a se
stesso ...
a tutti piacerebbe avere un mail client che salva i dati in un
database. immagina allo sballo di poterlo integrare in un gestionale.
documenti, comunicazioni, anagrafiche comuni ecc ...
cosa strana che ms non abbia mai messo outlook o exchange girare sotto
sql ...
che dici?


title: Client di posta realizzato con Access ?

text:
> > Tanto bel codice che sta' la' ad ammuffire
> > Non sarebbe meglio "..vis-ciarlo in rete.." come dicono dalle mi parti ?
> > Ciao
> > RobertoA
>
> No no... non ammuffisce perchè stà funzionando ...!
> Non lo pubblico per diverse ragioni, una delle quali commerciali. ;-)
>
> Eh dai che noi non lo diciamo a nessuno che ce l'hai passato
> Gli cambiamo nome, lo chiamiamo MAC acronimo di "Message Application
> Center"
> cosi' si mimetizza
> Va ben cossi' ?
> RobertoA
ehm ... credo che il riferimento al commerciale fosse rivolto a se
stesso ...
a tutti piacerebbe avere un mail client che salva i dati in un
database. immagina allo sballo di poterlo integrare in un gestionale.
documenti, comunicazioni, anagrafiche comuni ecc ...
cosa strana che ms non abbia mai messo outlook o exchange girare sotto
sql ...
che dici?
----------------------
Si, l'avevo capito
Ma lasciare questa possibilita' intentata non era bello
Si, il client posta integrato nel gestionale era proprio il fine che volevo
perseguire
Tutti i messaggi dentro un database, visibili agli utenti autorizzati, e gli
utenti normali vedrebbero solo i propri, sarebbe carino ed utile
Dopotutto, gia' la parte di invio, realizzata da Baraldi dovrebbe servire da
stimolo a qualche buon volonteroso per completare il lavoro
Bon, detto questo, caro il mio volonteroso Ciroteo, datti da fare
Ciao
RobertoA


title: Client di posta realizzato con Access ?

text:
...
> Si, l'avevo capito
> Ma lasciare questa possibilita' intentata non era bello
> Si, il client posta integrato nel gestionale era proprio il fine che volevo
> perseguire
> Tutti i messaggi dentro un database, visibili agli utenti autorizzati, e gli
> utenti normali vedrebbero solo i propri, sarebbe carino ed utile
> Dopotutto, gia' la parte di invio, realizzata da Baraldi dovrebbe servire da
> stimolo a qualche buon volonteroso per completare il lavoro
> Bon, detto questo, caro il mio volonteroso Ciroteo, datti da fare
> Ciao
> RobertoA
Beh dai il Sender, che ritengo sia fatto veramente bene, modestia a
parte... ;-), è appunto fatto, il Receiver è abbastanza elaborato da
fare ed in rete si trova qualche cosa di fatto per VB6 ma non di
completo per il Parsing di tutto... insomma c'è da rimboccarsi le
maniche...!
Termino però dicendo che per chi ha la possibilità di lavorare bene,
sarebbe da evitare una cosa simile, in quanto Access non consente di
sviluppare in tecnologia multiThread con tutti i rischi che ne
consegue.
Personalmente ho visto bene di appoggiarmi a VB6(con il quale il multi
thread non è altrettanto fattibile.... +/-) ma almeno ho delegato ad
un Exe esterno la parte di Download e Parsing rendendo sicuro o almeno
più indipendente l'applicativo.
Valutate bene anche questi aspetti....
Fare tutto in NET(ad oggi giusto per non andare troppo fuori tema)
sarebbe il massimo... e magari si trovano cose già fatte....
@Alex


title: Client di posta realizzato con Access ?

text:
Beh dai il Sender, che ritengo sia fatto veramente bene, modestia a
parte... ;-), è appunto fatto, il Receiver è abbastanza elaborato da
fare ed in rete si trova qualche cosa di fatto per VB6 ma non di
completo per il Parsing di tutto... insomma c'è da rimboccarsi le
maniche...!
------------------------------
Ma ti pare il modo di incoraggiare il volonteroso ?
Beh, comunque, ormai Ciroteo si e' impegnato e adesso deve dimostrare di
darsi da fare
Custa quel che custa
Speriamo venga fuori un bel lavoro
Ciao
RobertoA


title: Client di posta realizzato con Access ?

author: Fabrizio Conti (Panathos)

text:
On 29 Ott, 16:07, "RobertoA" <
amoro...@tiscalinet.it
> wrote:
> Si, il client posta integrato nel gestionale era proprio il fine che volevo
> perseguire
> Tutti i messaggi dentro un database, visibili agli utenti autorizzati, e gli
> utenti normali vedrebbero solo i propri, sarebbe carino ed utile
Non so se conosci hmailserver: è un serverino completo (pop3 / imap /
smtp) con interfaccia Visual Basic dotata di classi ed eventi che
potrebbero tornarti utili. L'ho usato un annetto fa per un progetto di
"posta moderata" (le email degli utenti escono solo dopo
l'approvazione di un supervisore), in una azienda con una decina di
postazioni; e non ha mai dato problemi.
Forse potresti usare i suoi eventi e le sue classi per salvare in un
db SQL i body e gli allegati delle email, "scavalcando" a monte il
problema del parsing (poiché lo farebbe lui).
Mentre per quanto riguarda l'invio delle email forse è sufficiente
usare blat.dll; poiché anche la tabella della "posta in uscita"
verrebbe gestita dal server in fase di invio (usi l'evento apposito
per salvare body, allegato, data, ora, e quel che ti pare delle email
in uscita, come di tutte quelle in entrata).
ciao,
Panathos


title: Client di posta realizzato con Access ?

text:
"Fabrizio Conti (Panathos)" <
pana...@gmail.com
> ha scritto nel messaggio
news:a792218a-fd14-4710...@w24g2000prd.googlegroups.com...





---------------------------------------------------
Non ho mica capito come li visualizzeresti i messaggi ricevuti, arrivano nel
server di posta e poi ?
Conosco Hmail perche' lo utilizzo, non sapevo fosse controllabile da vb, ma
controllabile per farne cosa?
Conosco anche Blat per averlo usato diverse volte da Access, non ne vedrei
pero' in questo caso l'utilizzo
Ciao e grazie
RobertoA


title: raggruppamento dati

author: Alessandro Cargnelli

text:
Ciao,
come faccio a raggruppare dei dati in base all'anno solare?
Ciao Grazie
--
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


title: raggruppamento dati

author: luk

text:
"Alessandro Cargnelli" <
alex-...@libero.it
> ha scritto nel messaggio
news:e699tu$9qv$1...@news.newsland.it...
> Ciao,
> come faccio a raggruppare dei dati in base all'anno solare?
Prova a ragruppare estraedo l'anno dalla tua data con
    GROUP BY Year([data])
e se vuoi filtrare solo i record che hanno l'anno uguale all'anno in corso
puoi aggiungere:
    HAVING (((Year([data]))=Year(Now())))
ciao
Luca


title: raggruppamento dati

text:
luk ha scritto:


> ciao
> Luca
Grazie per l'aiuto



title: selezionare solo quali campi stampare

author: Claudio

text:
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


title: selezionare solo quali campi stampare

author: Emyr

text:
On Sat, 05 Jan 2002 12:09:43 GMT, "Claudio" <
clawe...@yahoo.it
>
wrote:
>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.


title: selezionare solo quali campi stampare

text:
Mi potresti fare un es pratico in modo che me lo possa studiare? dicendomi
anche dove e come scrivere?
grazie
"Emyr" <
fan...@lavoro.com
> ha scritto nel messaggio
news:3d1e3uk8gplhvv151...@4ax.com...
> On Sat, 05 Jan 2002 12:09:43 GMT, "Claudio" <
clawe...@yahoo.it
>
> wrote:
>
> >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



title: selezionare solo quali campi stampare

author: Antonio Biso

text:
Claudio <
clawe...@yahoo.it
> wrote in message
KqWZ7.3878$WQ2.1...@news2.tin.it...
> Mi potresti fare un es pratico in modo che me lo possa studiare? dicendomi
> anche dove e come scrivere?
Sicuramente devi scrivere DOPO o in mezzo al quoting, come ho fatto io!!!
> grazie
Prego
Antonio


title: selezionare solo quali campi stampare

text:
On Sun, 06 Jan 2002 11:21:14 GMT, "Claudio" <
clawe...@yahoo.it
>
wrote:
>Mi potresti fare un es pratico in modo che me lo possa studiare? dicendomi
>anche dove e come scrivere?
>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.


title: Segnalazione Sito

author: SunRex

text:
Vi segnalo il seguente sito
http://www.csai.unipa.it/cossentino/access/
magari mi dite che ne pensate.
SunRex


title: Segnalazione Sito

text:
"SunRex" <
sunrexs...@hotmail.it
> ha scritto nel messaggio
news:XsDbc.10913$hc5.5...@news3.tin.it...

Il sito in sè sembrerebbe una sorta di Manuale.
Il problema è che a parte il TITOLO dell'argomento poi
mi tocca scaricare sempre.....!!!!
Secondo mè, come è successo a mè che non ho scaricato nulla, conviene
inserire pagine di dettaglio che spieghino cosa l'utente può trovare nel
file
da scaricare..........!!!!!
Questo per la prima parte, poi passando alla progettazione del DB va meglio
ma non ci sono i pulsanti di navigazione........!!!!!!!!!!!!!!!!!!!!!
Per il livello di approfondimento non ho nulla da dire non conoscendone
l'obbiettivo...!!!
Ciao.
@Alex.


title: Matrice in access

text:
Buonasera!
Ho un problema che non riesco a risolvere. Devo fare il progetto in
forma matriciale che calcola il numero di consiglieri delle societa in
comune con le altre societa  cioè dovrei fare la matrice imprese x
imprese che viene riempita con numeri dei consiglieri in comune
(mettendo sulla diagonale gli 0) e che vengono pescati dal altro file
dove ho elenco di tutte le imprese con repettivi consiglieri. P.es se
paolo rossi si trova nella impresa X ed anche nella impresa Y allora
nella tabella imprese x imprese dovrebbe restituire il valore 1 al
incrocio tra impresa X e Y. Lo vorrei fare in access perche ho gia un
file pronto con numeri di consiglieri in comune tra diverse societa ma
non nella forma matriciale(che è essenziale per portare avanti il mio
progetto). Non lo so neanche se si può fare il tipo di matrice in
access. Se qualcuno fosse cosi gentile e riuscirebbe darmi la mano,
sarei molto grata! Grazie
Evelina


title: Matrice in access

author: Bruno Campanini

text:
<
ewelina....@gmail.com
> wrote in message
news:62bce6d9-2de8-4a9d...@w7g2000hsa.googlegroups.com...
Buonasera!
Ho un problema che non riesco a risolvere. Devo fare il progetto in
forma matriciale che calcola il numero di consiglieri delle societa in
comune con le altre societa  cioč dovrei fare la matrice imprese x
imprese che viene riempita con numeri dei consiglieri in comune
(mettendo sulla diagonale gli 0) e che vengono pescati dal altro file
dove ho elenco di tutte le imprese con repettivi consiglieri. P.es se
paolo rossi si trova nella impresa X ed anche nella impresa Y allora
nella tabella imprese x imprese dovrebbe restituire il valore 1 al
incrocio tra impresa X e Y. Lo vorrei fare in access perche ho gia un
file pronto con numeri di consiglieri in comune tra diverse societa ma
non nella forma matriciale(che č essenziale per portare avanti il mio
progetto). Non lo so neanche se si puņ fare il tipo di matrice in
access. Se qualcuno fosse cosi gentile e riuscirebbe darmi la mano,
sarei molto grata! Grazie
Evelina
======================================
Č stata posta analoga domanda in microsoft.public.office.excel
al thread "macro per matrice di grandi dimensioni" nel quale ho
fornito la soluzione, cioč la compilazione di una tabella a doppia
entrata (Societą x Societą) portante all'incrocio di due societą
il numero degli eventuali consiglieri in comune.
Poi ho sviluppato altra tabella a doppia entrata (Consiglieri x Societą)
nella quale sono rilevati gli incroci che mostrano per ogni consigliere la
o le Societą di appartenenza. Ed anche una routine di simulazione
che predispone la tabella a singola entrata (Societą con elenco
consiglieri in numero arbitrario, che mi č servita per la programmazione).
Si tratta dello stesso lavoro?
Bruno


title: Matrice in access

author: Davide

text:
ewelina....@gmail.com
 ha scritto:
> Buonasera!
>
> Ho un problema che non riesco a risolvere. Devo fare il progetto in
> forma matriciale che calcola il numero di consiglieri delle societa in
> comune con le altre societa  cioč dovrei fare la matrice imprese x
> imprese che viene riempita con numeri dei consiglieri in comune
> (mettendo sulla diagonale gli 0) e che vengono pescati dal altro file
> dove ho elenco di tutte le imprese con repettivi consiglieri. P.es se
CUT
Non sarebbe meglio normalizzare il tutto?
>
http://it.wikipedia.org/wiki/Normalizzazione_del_database


title: Matrice in access

author: Alessandro Cara

text:

se e' sufficiente l'incrocio solo per i "duplicati" a occhio mi
sembrerebbe sufficiente una query pivot con tabella consiglieri in
selfinnerjoin per consigliere uguale e impresa minore o diversa (danno
risultati differentei), pivot riga per impresaA e colonna per ImpresaB
i.e.
Tabella
cons	imp
-----------
c1	i1
c1	i2
c1	i3
c2	i1
c3	i2
c4	i3
c5	i1
c5	i2
c5	i3
c6	i1
c6	i1
c7	i2
c7	i3
risultato join selfConsImp)
cons	a.imp	b.imp
-------------------------
c1	i3	i1
c1	i2	i1
c1	i3	i2
c1	i1	i2
c1	i2	i3
c1	i1	i3
c5	i3	i1
c5	i2	i1
c5	i3	i2
c5	i1	i2
c5	i2	i3
c5	i1	i3
c7	i3	i2
c7	i2	i3
SELECT a.cons, a.[imp], b.[imp]
FROM consimp AS a, consimp AS b
WHERE (((a.cons)=[b].[cons]) AND ((a.[imp])<>[b].[imp]));
risultato pivot
imp	i1	i2	i3
----------------------------
i1		2	2
i2	2		3
i3	2	3
TRANSFORM Count(SelfConsimp.cons) AS ctrcons
SELECT SelfConsimp.a.[imp]
FROM SelfConsimp
GROUP BY SelfConsimp.a.[imp]
PIVOT SelfConsimp.b.[imp];
--
ac
y-1=x


title: Matrice in access

text:

ma non eri quello che voleva fare le tabelle in RAM?
Se i dati gia' li hai in un certo formato c'e' poco da normalizzare.
Fermo restando che questa esigenza puo' esistere anche con dati
"abbastanza" normalizzati.
--
ac
y-1=x


title: Matrice in access

author: DarknessBBB

text:
On 7 Mag, 08:06, Alessandro Cara <
alessandro.c...@ay-1asistemi.it
>
wrote:
> Davide wrote:
> >
ewelina.szpil...@gmail.com
 ha scritto:
> >> Buonasera!
>
> >> Ho un problema che non riesco a risolvere. Devo fare il progetto in
> >> forma matriciale che calcola il numero di consiglieri delle societa in
> >> comune con le altre societa  cioè dovrei fare la matrice imprese x
> >> imprese che viene riempita con numeri dei consiglieri in comune
> >> (mettendo sulla diagonale gli 0) e che vengono pescati dal altro file
> >> dove ho elenco di tutte le imprese con repettivi consiglieri. P.es se
>
> > CUT
>
> > Non sarebbe meglio normalizzare il tutto?
> >>
http://it.wikipedia.org/wiki/Normalizzazione_del_database
>
> ma non eri quello che voleva fare le tabelle in RAM?
"E che c'azzecca?"  (cit.) :D


title: Copiare oggetti da DBa DB

author: PEO from ITALY

text:
Esiste un metodo più veloce per fare il TransferDataBase degli oggetti
di un db access2000 ad un altro?
Mi spiego: ora uso la macro con il comando Trasferisci DataBase un
oggetto per volta... solo a scrivere le 240 righe per fate copiare le
240 query (e poi ci sono maschere e macro) mi viene male.
Esiste un "copia tutte le query"?
Non mi dite di usare import da db di destinazione, non è la strada che
può percorrere il mio utente (down).
Soluzioni?
PEO from RSM
www.buenasiesta.net


title: Copiare oggetti da DBa DB

author: ciroteo

text:

via vba
fai un ciclo for each degli oggetti query ed esegui il comando
transfer.


title: Errore su assegnazione ciclica sui controlli di una form

text:
Salve, alla FAQ 6.5 "Ciclare attraverso i controlli", sul sito di Karl
Donaubauer (
donkarl.com
), ho trovato una routine per ciclare l'assegnazione
dei controlli di una form, in funzione di uno specifico tag.
La routine mi serve per blccare (lock) tutti i controlli che hanno il tag =
"test".
Devo inoltre usare un nome di variabile per indicare la form in oggetto
(nome varabile = maschera), anzichè usare la proprietà Me.Controls, in
quanto questa routine, deve essere valida per tutte le forms del mio FE.
All'esecuzione del lock, si genera l'errore: errore runtime 438 - Proprietà
o metodo non supportati dall'oggetto!
'Questa è la routine, ripresa dal sito di DonKarl
Dim ctl As Control
For Each ctl In Forms(maschera).Controls
    If ctl.Tag = "0" Then ctl.lock = True (qua si genera l'errore)
Next ctl
Grazie infinite a chiunque possa suggerirmi la soluzione.
Marco


author: Lorenzo(pyx)

text:
In news:456731db$0$13751$
4faf...@reader3.news.tin.it
,
Marco_280167 <
mros...@gol.grosseto.it
> typed:
[...]
> Dim ctl As Control
> For Each ctl In Forms(maschera).Controls
>    If ctl.Tag = "0" Then ctl.lock = True (qua si genera l'errore)
                                ctl.locked
> Next ctl
>
> Grazie infinite a chiunque possa suggerirmi la soluzione.
> Marco
--
lorenzo


text:
Cavolo...  forse... č meglio se spengo il pc: mi sto rincogl...
Grazie 1000 lorenzo
Marco
"Lorenzo(pyx)" <
lorenzoTha...@pyx.it
> ha scritto nel messaggio
news:3uG9h.55503$Fk1.1...@twister2.libero.it...



title: Inserire in un report la variabile di una query

author: eXtreme®

text:
La domanda non è molto complessa solamente che non riesco a risolvere.
In sostanza devo far apparire su un report il valore inserito come variabile
di selezione in una query.
Ho provato a creare una casella nel report inserendo
=[NomeQuery]![NomeVariabile] ma non mi funziona!
Avete qualche idea?
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


author: namor

text:
eXtreme® ha scritto:
> La domanda non è molto complessa solamente che non riesco a risolvere.
> In sostanza devo far apparire su un report il valore inserito come variabile
> di selezione in una query.
> Ho provato a creare una casella nel report inserendo
> =[NomeQuery]![NomeVariabile] ma non mi funziona!
> Avete qualche idea?
Non puoi accedere così ad un parametro di una query.
Devi crearti nella query un campo calcolato che riprenda il valore del
parametro, con lo stesso identico nome del parametro che usi per filtrare
i record:
parametroselezione: [NomeVariabile]
e poi potrai usare quel campo nel report.
Namor
--
namor at inwind punto it
questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news
 segnala gli abusi ad
ab...@newsland.it


author: Karl Donaubauer

text:
eXtreme® ha scritto:
> La domanda non è molto complessa solamente che non riesco a risolvere.
>
> In sostanza devo far apparire su un report il valore inserito come
> variabile di selezione in una query.
>
> Ho provato a creare una casella nel report inserendo
> =[NomeQuery]![NomeVariabile] ma non mi funziona!
>
> Avete qualche idea?
Se con "variabile" intendi un parametro nella query basta nel report:
=[NomeVariabile]
--
HTH
Karl
*********
Access-FAQ (tedesco):
http://www.donkarl.com


title: maschere

author: SPTUT

text:
da una maschera apro una seconda maschera per inserire un dato:
 come faccio a disabilitare il controllo dalla maschera principale fino a
quando non viene inserito il dato richiesto?
grazie


title: maschere

author: Mrok

text:
"SPTUT" <
sp...@tin.it
> ha scritto nel messaggio
news:SnY08.1196$WS2....@news1.tin.it...

pop up a scelta obbligatoria


title: errore che non capisco

author: Umin

text:
ho una combobox Marca, una Modello ed una Specifiche
per semplicita' mettiamo che tutte facciano parte della stessa tabella
ho scritto quanto segue:
Private Sub Marca_AfterUpdate()
Me!Modello.RowSource = "SELECT Modello FROM Magazzino WHERE Marca LIKE
'*" & Me!Marca & "*';"
Me!Modello.Requery
End Sub
Private Sub Modello_AfterUpdate()
Me!Specifiche.RowSource = "SELECT Specifiche FROM Magazzino WHERE
Modello LIKE '*" & Me!Modello & "*';"
Me!Specifiche.Requery
End Sub
la prima sub marca funziona correttamente
la seconda (da modello a specifiche) no
mi dice *"proprieta' o metodo non supportate dall'oggetto"*
la query, analizzandola, da i valori corretti a Modello LIKE Me!Modello
(i valori nel debug sono corretti) ma a Specifiche mi mette NULLO per
quanto, a mano, in sql, la query torni i risultati corretti
come mai?
--
Umin
n. p.: DAVID BOWIE - Track 17


title: errore che non capisco

author: Alessandro Baraldi

text:
"Umin" <
ali...@libero.it
> wrote in message
news:mn.a2f67d594...@libero.it

Sinceramente è strano, ma trovo poco utile nel tuo caso
l'utilizzo di LIKE essendo la scelta obbligata.
Condiziona il tutto al controllo di Null restituito dalla Combo...!
 Private Sub Marca_AfterUpdate()
 Me!Modello.RowSource = "SELECT Modello " & _
                        "FROM Magazzino " & _
                        "WHERE Marca = '" & Me!Marca & "'"
                        "ORDER BY Modello;"
 Me!Modello.Requery
 End Sub
Mi immagino che le 3 Combo siano in cascata pertanto con
l'After Update della 1° tu debba annullare e disabilitare
quelle in cascata in modo opportuno....!
Pertanto io metterei nell'Evento dopo aggiornamento di Marca:
Me!Specifica=Null
Me!Specifica.Enabled=False
Questo perchè altrimenti la RowSource di Specifica
sarebbe errata, Specifica infatti deve essere composta da
2 Criteri come sotto, ma io gestirei anche l'ENABLED
per non complicarti la vita:
Private Sub Modello_AfterUpdate()
 If IsNull(Me!Marca) OR IsNull(Me!Modello) Then Exit Sub
 Me!Specifiche.RowSource = "SELECT Specifiche " & _
                           "FROM Magazzino " & _
                           "WHERE Marca = '" & Me!Marca & "' "
                           "AND " & _
                           "Modello='*" & Me!Modello & "*' "
                           "ORDER BY Specifiche;"
 Me!Specifiche.Requery
 End Sub
Facci un pensiero ed ottimizzalo come ritieni meglio.
Saluti
@Alex
--
Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG


title: errore che non capisco

text:
Alessandro Baraldi ci ha detto :
> Sinceramente è strano, ma trovo poco utile nel tuo caso
> l'utilizzo di LIKE essendo la scelta obbligata.
il fatto e' che tutto viene da un foglio excel in condizioni pietose
che devo usare come base per le mie tabelle
il campo modello in realta' contiene anche la parola "marca"
ad es:
ho il campo marca (che mi sono creato) ha "FIAT" ... etc
il campo modello ha "FIAT PUNTO" quindi avevo usato il LIKE ed i
caratteri * *
la tab in pratica e' cosi'
TABLE MAGAZZINO:
[...]
Marca         | Modello         | Specifiche
FIAT            FIAT PUNTO_99     Lunotto
FIAT            FIAT PUNTO_99     Scendente
FIAT            FIAT PUNTO_99     Parabrezza
FIAT            FIAT Stilo_02     Lunotto
[...]
e via cosi'
> Condiziona il tutto al controllo di Null restituito dalla Combo...!
>  Private Sub Marca_AfterUpdate()
>  Me!Modello.RowSource = "SELECT Modello " & _
>                         "FROM Magazzino " & _
>                         "WHERE Marca = '" & Me!Marca & "'"
>                         "ORDER BY Modello;"
>  Me!Modello.Requery
>  End Sub
>
> Mi immagino che le 3 Combo siano in cascata pertanto con
> l'After Update della 1° tu debba annullare e disabilitare
> quelle in cascata in modo opportuno....!
non ci avevo pensato ma per la prima marca => modello non era stato
necessario
> Pertanto io metterei nell'Evento dopo aggiornamento di Marca:
>
> Me!Specifica=Null
> Me!Specifica.Enabled=False
mi da errore su Specifica dicendo proprieta' o metodo non supportati
sulla riga del Specifica.Enable=False!
> Questo perchè altrimenti la RowSource di Specifica
> sarebbe errata, Specifica infatti deve essere composta da
> 2 Criteri come sotto, ma io gestirei anche l'ENABLED
> per non complicarti la vita:
>
> Private Sub Modello_AfterUpdate()
>  If IsNull(Me!Marca) OR IsNull(Me!Modello) Then Exit Sub
>  Me!Specifiche.RowSource = "SELECT Specifiche " & _
>                            "FROM Magazzino " & _
>                            "WHERE Marca = '" & Me!Marca & "' "
>                            "AND " & _
>                            "Modello='*" & Me!Modello & "*' "
>                            "ORDER BY Specifiche;"
>  Me!Specifiche.Requery
>  End Sub
> Facci un pensiero ed ottimizzalo come ritieni meglio.
grazie mille per la dritta, pero' non funziona lo stesso!
:(
--
Umin
n.p.: Sigur Rós - Avalon [stop]


title: errore che non capisco

text:
Dopo dura riflessione, Umin ha scritto :
>
> grazie mille per la dritta, pero' non funziona lo stesso!
> :(
qualcuno bestemmi per me, please
avevo impostato due colonne nel campo della combobox di specifiche
per questo mi dava sempre NULL!!!!
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaah!
--
Umin
n. p.: Radiohead - Dollars And Cents


title: errore che non capisco

text:
"Umin" <
ali...@libero.it
> wrote in message
news:mn.aa6e7d599...@libero.it
> Dopo dura riflessione, Umin ha scritto :
> >
> > grazie mille per la dritta, pero' non funziona lo stesso!
> > :(
>
> qualcuno bestemmi per me, please
> avevo impostato due colonne nel campo della combobox di specifiche
> per questo mi dava sempre NULL!!!!
> aaaaaaaaaaaaaaaaaaaaaaaaaaaaaah!
Sai che chi è causa del suo mal deve piangere se stesso..!
;-)
In ogni caso è più facile che l'errore venga da noi che da
Access.



title: errore che non capisco

author: yronium

text:
> qualcuno bestemmi per me, please
Fatto. Serve altro?
--------------------------------
Inviato via
http://arianna.libero.it/usenet/


title: errore che non capisco

text:
Il 21/09/2005, Alessandro Baraldi ha detto :
> Sai che chi è causa del suo mal deve piangere se stesso..!
> ;-)
>
> In ogni caso è più facile che l'errore venga da noi che da
> Access.
beh, oggi per esempio ho dovuto scontrarmi con il fatto che vb
insistesse nel chiamare (cioe' nel correggere automaticamente) con il
vecchio nome campo che avevo rinominato
e' stata dura sistemarlo a dovere >:|
:)
--
Umin
n. p.: Dave Matthews Band - The Best Of What's Around


title: errore che non capisco

text:
yronium ha detto questo mercoledì :
>> qualcuno bestemmi per me, please
>
> Fatto. Serve altro?
... sapessi! ma e' meglio che non inizi con la lista delle richieste...
tra le quali metterei anche, al momento, una donna... :D
--
Umin
n. p.: Dave Matthews Band - What Would You Say


title: errore che non capisco

author: MA

text:
Umin wrote:
> Il 21/09/2005, Alessandro Baraldi ha detto :
>
>> Sai che chi è causa del suo mal deve piangere se stesso..!
>> ;-)
>>
>> In ogni caso è più facile che l'errore venga da noi che da
>> Access.
>
> beh, oggi per esempio ho dovuto scontrarmi con il fatto che vb
> insistesse nel chiamare (cioe' nel correggere automaticamente) con il
> vecchio nome campo che avevo rinominato
> e' stata dura sistemarlo a dovere >:|
> :)
Togli correzione automatica del nome e non usare parole riservate
--
_ _
Ciao
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:
www.donkarl.com/it


title: Solo record a video di maschera

text:
Salve a tutti e ben ritrovati.
Ho incontrato una piccola difficoltà spero possiate aiutarmi.

PREMESSA
Ho una maschera continua basata su tabella, la quale maschera viene aperta in modalità acFormAdd. Perciò finché non chiudo o aggiorno la maschera saranno presenti a video solo il numero di records che avrò inserito.
Ho la necessità che all'evento chiusura soltanto i records (presenti a video) che hanno una spunta nel campo [sp] vengano in prima battuta accodati ad una seconda tabella e in seconda battuta eliminati dalla tabella iniziale.

RICHIESTA
Potrei risolvere il problema con un query di accodamento e poi una di eliminazione. Ma come scrivo il codice sql indicando soltanto i records presenti nella maschera?

grazie mille!!


title: Solo record a video di maschera

text:

Prima domanda: come filtri i record visualizzati?
Seconda: ad avere la spunta, ce ne sono altri non visualizzati?

Riccardo Baldinotti


title: Solo record a video di maschera

text:
> Prima domanda: come filtri i record visualizzati?

Non li filtro affatto, il punto è questo. La maschera in apertura con modalità acFormAdd inizializza la maschera con record 0 anche se la tabella a cui è associata ha già molti record. Quello di cui ho bisogno è indicare nella stringa sql di fare riferimento soltanto ai record inseriti nella maschera che risulta attiva.

> Seconda: ad avere la spunta, ce ne sono altri non visualizzati?
Si! sia spuntati che non possono essere non visualizzati perché caricati precedentemente.


title: Solo record a video di maschera

text:

Mi sfugge la ragione di inserire i dati in una tabella anziché l'altra.
La prima e la seconda tabella hanno gli stessi campi?


title: Solo record a video di maschera

author: Mancini

text:
> .... Ma come scrivo il codice sql indicando soltanto i records presenti nella maschera?....

A me viene in mente
Me.RecordSet.Clone


title: Creare una data

author: Inverse

text:
Vorrei creare una data a partire da un anno.
Cioe' dato il numero 2000 vorrei creare un campo data 01/01/2000.
Mi potete aiutare ?
GRazie e buonanno
Inverse


title: Creare una data

author: LaLo

text:
"Inverse" <
inv...@inwind.it
> ha scritto nel messaggio
news:92fie2$38a$1...@nread2.inwind.it...

Se la data è fissa, puoi utilizzare la funzione DateSerial(anno, mese,
giorno). Vedi help di access.
Ciao
LaLo


title: personalizzazione rotellina mouse

author: coop

text:
salve a tutti.
per default in modalità maschera continua quando aziono la rotellina del
mouse mi socrre tutti record.
è possibile fare in modo che scorra solo la maschera dall'alto in basso?
grazie in anticipo
cià
luigi


title: Collegamento access in Power Point

author: Molokovellocet

text:
Salve a tutti!!! mi si è presentato il seguente problema!!
In pratica sto creando una presentazione in power point in cui ho
bisogno di inserire il collegamento ad un Db creato in access. Quindi
ho fatto Inserisci>> Oggetto>> e ho selezionato il file del Db. Ma
quando clicco due volte sul collegamento, mi dice ke è un file
potenzialmente dannoso, io vado avanti e quando si apre Microsoft
Access mi dice ke:
"Il file è disponibile in una posizione esterna alla rete intranet o
in un sito non attendibile. Il file non verrà aperto a causa di
potenziali problemi di protezione.
Per aprire il file, copiarlo nel computer in uso o in una posizione di
rete accessibile."
Ma il bello è ke il file è sul computer ed è stato creato da me quindi
non è nessun virus!!!! Come devo fare??? vi prego ragazzi è
importantissimo!!!
Grazie a tutti!!


title: Collegamento access in Power Point

author: antonio

text:
"Molokovellocet" <
molokov...@fastwebnet.it
> ha scritto nel messaggio
news:1174410274.6...@n59g2000hsh.googlegroups.com...



---------- Risposta
Vista l'importanza (e credo l'urgenza) che dai al problema provo a darti un
suggerimento da seguire solo momentaneamente, finchè non troverai la
soluzione definitiva.
Prova a disabilitare la protezione tramite il menu Strumenti - Macro -
Protezione... e scegli il livello di protezione "Basso", anche se è una
scelta non consigliata.
Ciao
Antonio


title: Collegamento access in Power Point

author: Morgan

text:
"antonio" <
antone...@tiscali.it
> ha scritto nel messaggio
news:46001827$0$20820$5fc...@news.tiscali.it...

Disabilita quello che ha detto Antonio e...non riabilitarlo mai più
visto che non serve ad un cazzo...
Morgan


title: [OT] Messaggi riguardanti Access inviati nella mia casella di posta

author: Roberto

text:
Capita sempre più frequentemente, negli ultimi giorni, che alcuni
frequentatori del NG postino i loro quesiti al mio indirizzo e-mail.
Finora mi è sembrato scortese non rispondere; ma d'ora in avanti mi vedo
costretto a cestinare detti messaggi anche perchè non sono un "Guru" di
Access, ciò è dimostrato dalle cantonate che spesso prendo nel formulare le
mie risposte; per quanto mi riguarda è necessario dialogare tramite il NG,
in modo che le mie inesattezze possono essere pubblicamente corrette da chi
ne sa giustamente più di me.
Grazie a tutti per la comprensione.
Roberto


author: ema

text:
Mio cuggino mi ha detto che Roberto <
r.ma...@libero.it
> scrisse:
> Access, ciò è dimostrato dalle cantonate che spesso prendo nel formulare le
> mie risposte; per quanto mi riguarda è necessario dialogare tramite il NG,
> in modo che le mie inesattezze possono essere pubblicamente corrette da chi
> ne sa giustamente più di me.
>
nonche` perche`:
- la risposta sul NG arriva sicuramente prima che non quella in e-mail,
  visto che piu` gente la legge.
- la risposta sul NG puo` essere utile per tanti, e si evita di ripetere
  le stesse cose 1000 volte!
bye!
--
Emanuele Cesena
http://www.penguinpowered.com/~ecesena
<
ece...@penguinpowered.com
> - rimuovi XXX x rispondere    ICQ #8814554
"La felicita' non e' la destinazione.  E' il viaggio."


title: Problemi d'invio Reports a WinFax 10

author: Simone Calligaris

text:
Ecco il quadro della situazione:
Installazione Client/Server di WinFax  (non fatta da noi)
il Server di WinFax è su un PC win '98 NON dedicato.
Il programma utilizza il codice pubblicato sul Sito Comune per spedire Reports
Ora, in maniera del tutto imprevedibile accade che il server di WinFax si pianti (in fase d'invio
Report) sul PC "server" costringendo l'operatore al riavvio.
Il responsabile dell'installazione di WinFax non sa che pesci pigliare, io nemmeno!
Mi chiedo se ci sia qualcosa che ignoro sul canale DDE, oppure se siano bachi  congeniti di WinFax.
Voi che dite?
Ciao, Simone


title: DB Autoveicoli

author: Francesco Sottile

text:
Salve
volevo chiedere se qualcuno ha o poteva indicarmi come e dove reperire un
database
di marche di autoveicoli + relativi modelli associati alle rispettive
marche.
Grazie.
Francesco


title: DB Autoveicoli

author: Carlo Costarella

text:
"Francesco Sottile" <
kranda...@gmail.com
> ha scritto nel messaggio
news:Te_Wk.38794$8%.35819@tornado.fastwebnet.it...

Probabilmente esiste un db con tutte le auto ma non so dove.
Con Google Chrome io faccio cosě:
apro per esempio questa pagina:
http://www.quattroruote.it/auto_usate/index.cfm
poi ne visualizzo la sorgente con:
view-source:
http://www.quattroruote.it/auto_usate/index.cfm
qui trovo in chiaro quello che mi serve...certo richiede un po' di lavoro.
Lo stesso si puň fare con Internet Explorer visualizzando l'HTML.
Ciao, Carlo


title: DB Autoveicoli

author: AleC

text:

http://i0100.com/it/index.php
vedi se può esserti utile
Ciao
AleC


title: DB Autoveicoli

text:

Bhe io ho qualcosa salvato che mi serve per un programma...ce l'ho
anche in formato excel...se vuoi posso inviartelo per email....fammi
sapere....
Ciao
Fabio