[VBA] - Report: Impedire stampa campi vuoti

[cloud79]

Salve a tutti,

Avrei bisogno di un piccolo aiutino
Ho realizzato un Database di un magazzino con Access2003
Vorrei stampare in un Report l'elenco di tutti i Fornitori appartenenti all'omonima tabella, ma con una particolarità...

Premetto che la tabella Fornitori oltre ai vari campi: Id, nome, cognome, indirizzo, eccetera, ha due campi: PIVA (cioè la partita IVA) e CodiceFiscale..

Nella maschera di inserimento fornitori da me realizzata ho fatto in modo di "vincolare" la scelta all'inserimento di UNO SOLO dei due campi sopra citati..

Quindi per ciascun Record nella tabella fornitori viene memorizzato O la partita IVA del fornitore, O il suo codice fiscale e mai entrambi (lasciando così ogni volta il campo non memorizzato a NULL)

Il problema sorge quindi con la stampa in un Report dell'elenco di TUTTI i Fornitori...
Il problema è che NON voglio che per ciascun Fornitore mi mostri sia il campo PIVA che il campo CodiceFiscale con relative LABELS, dove uno dei due è sicuramente un campo vuoto...
Come faccio quindi a far stampare nel Report il campo PIVA, o il campo CodiceFiscale, con relativa etichetta a seconda della presenza o meno di dati nello specifico campo????

Grazie a tutti in anticipo!!!

[flvax]

Nella query di origine del report metterai un campo calcolato di questo tipo
Nz([CF]; [PIVA]) as CFPI in questo modo se il CF è vuoto visualizzerà la
PIVA

[flvax]

..dimenticavo per l'etichetta:

l'etichetta sarà quella che dai al nuovo campo ad esempio CF/PIVA,
altrimenti se vuio prorio specificare se si tratta di CF o PIVA invece di
una etichetta usi una textbox la formatti adeguatamente e in origine del
controllo metti iif(Isnull([CF]);"PIVA"; "CF")

oppure


Private Sub SezioneIntestazionePagina_Print(Cancel As Integer, PrintCount As
Integer)
If (Me.CodiceFiscale) = "" Then
Me.CodiceFiscale.Visible = False
Me.EtichettaFiscale.Visible = False
Me.EtichettaIva.Visible = True
Me.PartitaIva.Visible = True
End If

If (Me.PartitaIva) = "" Then
Me.CodiceFiscale.Visible = True
Me.EtichettaFiscale.Visible = True
Me.EtichettaIva.Visible = False
Me.PartitaIva.Visible = False

[cloud79]

Grazie un milione!!!!
Provo il tutto subitissimo!!!!

ciao!!!