Gerald Aichholzer
2003-08-12 16:20:55 UTC
Hallo NG,
ich habe einen Bericht, der hat in etwa folgenden Aufbau:
<RechNr> <RechDatum> <KundeName> <PosNr> <Positionsdaten>
Ich würde gerne bei den ersten drei Feldern Duplikate ver-
meiden (durch Setzen von 'Duplikate ausblenden' auf Ja).
Leider kommt es vor, dass unterschiedliche Rechnungen das
gleich Datum oder den gleichen Kunden haben - das sieht
dann sehr unschön aus.
Habt ihr einen Vorschlag, wie ich das lösen kann?
Ich habe folgendes probiert (funktioniert leider nicht,
verlangsamt jedoch den Berichtsaufbau extrem):
Setzen von 'Duplikate ausblenden' für RechNr auf Ja und
folgender Code:
Sub Detailbereich_Format(....)
Me.RechDatum.Visible = Me.RechNr.Visible
Me.KundeName.Visible = Me.RechNr.Visible
End Sub
In einem zweiten Versuch hab ich folgendes programmiert,
was halbwegs funktioniert, jedoch Problem macht, falls
eine Rechnung über eine Seitengrenze geht (RechNr ist
dann sichtbar, die anderen beiden Felder jedoch nicht):
Sub Detailbereich_Format(....)
Static vRechNr As Variant
If vRechNr <> Me.RechNr.Value Then
vRechNr = Me.RechNr.Value
Me.RechDatum.Visible = True
Me.KundeName.Visible = True
Else
Me.RechDatum.Visible = False
Me.KundeName.Visible = False
End If
End Sub
danke,
Gerald
ich habe einen Bericht, der hat in etwa folgenden Aufbau:
<RechNr> <RechDatum> <KundeName> <PosNr> <Positionsdaten>
Ich würde gerne bei den ersten drei Feldern Duplikate ver-
meiden (durch Setzen von 'Duplikate ausblenden' auf Ja).
Leider kommt es vor, dass unterschiedliche Rechnungen das
gleich Datum oder den gleichen Kunden haben - das sieht
dann sehr unschön aus.
Habt ihr einen Vorschlag, wie ich das lösen kann?
Ich habe folgendes probiert (funktioniert leider nicht,
verlangsamt jedoch den Berichtsaufbau extrem):
Setzen von 'Duplikate ausblenden' für RechNr auf Ja und
folgender Code:
Sub Detailbereich_Format(....)
Me.RechDatum.Visible = Me.RechNr.Visible
Me.KundeName.Visible = Me.RechNr.Visible
End Sub
In einem zweiten Versuch hab ich folgendes programmiert,
was halbwegs funktioniert, jedoch Problem macht, falls
eine Rechnung über eine Seitengrenze geht (RechNr ist
dann sichtbar, die anderen beiden Felder jedoch nicht):
Sub Detailbereich_Format(....)
Static vRechNr As Variant
If vRechNr <> Me.RechNr.Value Then
vRechNr = Me.RechNr.Value
Me.RechDatum.Visible = True
Me.KundeName.Visible = True
Else
Me.RechDatum.Visible = False
Me.KundeName.Visible = False
End If
End Sub
danke,
Gerald