Datenaustausch zwischen Berichten und Formularen

Variablen nutzen

Sie können nun beispielsweise die Konstante strLizenz dazu nutzen, in Formularen ein Labelfeld namens lblDemo einzublenden, wenn die Konstante den Wert "Demo" hat. In allen anderen Fällen blenden Sie das Labelfeld aus, damit der Schriftzug nicht sichtbar ist, der die kommerzielle Nutzung des Berichts verhindern soll.

Dazu erstellen Sie eine Ereignisprozedur für das Format-Ereignis des Berichtsabschnittes (hier der Detailbereich), in dem sich das Labelfeld befindet. Innerhalb der Prozedur können Sie die Konstante abfragen und abhängig von deren Wert das Labelfeld ausblenden, indem Sie die Eigenschaft Visible auf False setzen.

Falls Variablen initialisiert werden müssen, rufen Sie die Prozedur INIT in der Ereignisprozedur Open des Berichts auf.

Private Sub Detailbereich_Format(Cancel As Integer, FormatCount As Integer)
If Not (strLizenz = "Demo") Then
Me.lblDemo.Visible = False
End If
End Sub

Private Sub Report_Open(Cancel As Integer)
INIT
End Sub