Newsgroup: it.comp.appl.access
Titolo: Cf e PIva

Ciao a tutti,
ho una maschera dove compaiono due campi, uno per l'immissione della partita 
iva, l'altro per l'immissione del codice fiscale, se viene inserito l'uno o 
l'altro od entrambi (ma diversi), questi appaiono in un report di stampa.
Vorrei fare in modo che nei casi in cui il codice fiscale risulta uguale 
alla partita iva, nel report che devo stampare appaia un unico campo con 
dicitura CF/PIVA seguito da valore.
Quello che mi manca è come controllare nella maschera iniziale se i due CF e 
PIVA sono uguali.
Ho pensato di aggiungere un ulteriore campo nascosto, che si valorizza 
automaticamente nel caso i due siano uguali. Come faccio ad assegnare il 
controllo (del tipo IF CF=PIVA then CFPIVA=PIVA) al nuovo campo?
Dove aggiungo il codice VBA e quale potrebbe essere il codice corretto?
Ormai ho dimenticato il VBA :)
Grazie.
Ciao 

 ha scritto nel messaggio 
news:Z0y7i.24636$%k.10...@twister2.libero.it...

Nessun campo nascosto nella maschera, fai tutto nel report.
Nel report dovresti avere almeno due controlli: CF e PIVA;
ne aggiungi un terzo CF_PIVA che tieni invisibile ma posizionato sopra i due 
precedenti.
Su formattazione della sezione:
If Me.CF = Me.PIVA then
Me.CF_PIVA.Visible = true
Me.CF_PIVA = "CF/PIVA " & Me.CF 'oppure Me.PIVA
me.CF.Visible = false
Me.PIVA.Visible = false
else
me.CF.Visible = True
Me.PIVA.Visible = True
Me.CF_PIVA.Visible = false
End if
Ciao, Carlo 

 ha scritto nel messaggio 
news:f3mf3l$cmo$1...@tdi.cu.mi.it...



Ciao Giuliano
ti ricordo di rispondere scrivendo dopo il testo e non prima.
Controlla se il controllo si chiama effettivamente CF_PIVA, poi se hai i due 
controlli CF e PIVA.
Nella eventualità che i due controlli siano vuoti (CF o PIVA) e dunque 
uguali, puoi aggiustare il codice così:
If nz(Me.CF,"") = nz(Me.PIVA,"") then
Me.CF_PIVA.Visible = true
Me.CF_PIVA = "CF/PIVA " & nz(Me.CF," ")  'oppure nz(Me.PIVA," ")
me.CF.Visible = false
Me.PIVA.Visible = false
else
me.CF.Visible = True
Me.PIVA.Visible = True
Me.CF_PIVA.Visible = false
End if
Credo comunque che il problema sia relativo al nome dei controlli.
Ciao, Carlo 

 ha scritto nel messaggio 
news:f3mspd$19s$1...@tdi.cu.mi.it...

Ciao,
i nomi dei controlli sono corretti, ho provato ad assegnare un valore con la 
stessa istruzione anche ad uno degli altri due controlli ma mi da lo stesso 
errore, i controlli sulle istruzioni if li esegue correttamente, ma 
l'assegnazione del valore lo invia al debug:
Me.[Codice Fiscale] = "PROVA"        va in errore
Errore di run-time '2448': impossibile assegnare un valore all'oggetto
manca forse qualcosa all'istruzione?
Grazie Mille.
Ciao,
Giuliano

 Giuliano
Non puoi assegnare un valore ad un controllo che abbia gią un "Origine 
Controllo".
Vai nelle proprietą e togli quello che c'č scritto in Origine 
Controllo...ovviamente parliamo del controllo non associato CF_PIVA, quello 
che hai aggiunto.
Ciao, Carlo 

 ha scritto nel messaggio 
news:f3mspd$19s$1...@tdi.cu.mi.it...

Scusami, ho fatto anche un'altra prova, ho aggiunto una nuova casella di 
testo nella stessa sezione, gli ho assegnato il nome controllo "prova" e ho 
provato ad assegnare il comando di assegnazione nell'evento formattazione 
della sezione del report:
Me.prova = "TEST"
quando avvio il report mi chiede attraverso un popup di inserire il valore 
del parametro prova, poi lo inserisco e mi va in errore, mi manda nel debug.
Potrebbe essere la sezione del report che sto utilizzando? E' una sezione 
Intestazione.
Ciao e grazie,
Giuliano


Non c'entra nulla, in questo, caso la sezione.
L'origine controllo del controllo deve restare vuota.
Ciao, Carlo 

 ha scritto nel messaggio 
news:f3mue1$3cs$1...@tdi.cu.mi.it...

Ok, adesso funziona, grazie mille e al prossimo problema! :)
Ciao e grazie
Giuliano 

 Ok, adesso funziona, grazie mille e al prossimo problema! :)
Ottimo!
:=)
Ciao, Carlo