Laufzeitfehlers 2191 Unterbricht

[Frank77]

Hallo !

Ich habe da ein Problem mit einem Unterbricht wenn ich im Hauptgericht auf die Seitenansicht wechseln oder ihn drucken will

Laufzeitfehlers 2191: Sie können die Eigenschaft Datenherkunft nicht in der Seitenansicht oder nach dem Start eines Druckvorgangs einstellen.
Der Fehler tritt in den 3 Textfeldern der Prozedur  Report Open auf

Komme da nicht weiter auch wenn ich es in das Ereignis beim Drucken in den Seitenkopf Schreiber

Das Bild zeigt den Fehler der entsteht wenn ich den Unterbricht in der Seitenansicht öffne

Code [Auswählen] Erweitern

Option Compare Database
Option Explicit

Private Function gHeader(Netto As Currency) As String
' setzt Gruppenüberschrift
If ArtNetto < 450 Then
  gHeader = "II. Geringerwertige Gebrauchsgüter (GWG)"
Else
  gHeader = "I.  Betriebsgrundausrüstungen (BGA)"
End If
End Function

Private Sub Report Open(Cancel As Integer)   ' Start
' Zuweisen der Steuerelementeinhalte:
Text6.ControlSource = "=gHeader([ArtNetto])"    ' Zwischenüberschrift für Gruppen
Text7.ControlSource = "=Sum(calcAfA([RDatum],[ArtNetto],[AfA],[AFAJahre],1)*[StandProjectArtAnzahl])"
Text9.ControlSource = Text7.ControlSource    ' Endsumme
End Sub

Gruß Frank

[DF6GL]

Hallo,


dann weise doch nichts den Steuerelementinhalten zu..
Sowas geschieht normalerweise beim Ereignis "Beim Formatieren" und da auch nur als Zuweisung an die Value-Eigenschaft (default) der Textfelder.

[Frank77]

Hallo !
Hi danke für deine Antwort
Wenn ich den Steuer Elemente nichts zuweise  dann ist der Bericht leer!
Wenn ich die Prozedur in das Beim Formatieren schreibe erhalte ich den gleichen Fehler leider


Ich hab hier mal den ausgangs Berichts bei dem alles geht auch in der Seitenansicht

Code [Auswählen] Erweitern

Function calcAfa(RDatum As Date, Netto As Currency, AFA As Single, nutzungsDauer As Single, restWert As Currency) As Variant
    Dim cr As Currency, oldDate As Date
    oldDate = DateSerial(Year(Date) - 1, 12, 31)
    If Netto * (1 - AFA * (Year(oldDate) - Year(RDatum) + 1)) > 0 Then
        calcAfa = SLN(Netto, restWert, nutzungsDauer)
    Else
        calcAfa = 0
    End If
End Function

,_________________________________________________________________________________
Option Compare Database
Option Explicit

Dim nrg, nrb As Integer   ' Zähler für Lfd. Nr

Private Function calcShortDate(RDatum As Date) As String
' Kurzform Monat/Jahr aus Datum ermitteln
calcShortDate = Format$(RDatum, "mm\/yy")
End Function

Private Function num(Netto As Currency) As String
' zählt BGA u. GWG getrennt
If ArtNetto >= 800 Then
  nrg = nrg + 1: num = str(nrg) & "."   ' GWG
Else
  nrb = nrb + 1: num = str(nrb) & "."   ' BGA
End If
End Function

Private Function gHeader(Netto As Currency) As String
' setzt Gruppenüberschrift
If ArtNetto < 450 Then
  gHeader = "II. Geringerwertige Gebrauchsgüter (GWG)"
Else
  gHeader = "I.  Betriebsgrundausrüstungen (BGA)"
End If
End Function

Private Sub Gruppenkopf0_Format(Cancel As Integer, FormatCount As Integer)
' Zähler bei Gruppenanfang initialisieren
nrg = 0: nrb = 0
End Sub

Private Sub Report_Open(Cancel As Integer)   ' Start
Label1.Caption = Label1.Caption & " " & Date ' aktuelles Datum in Berichtskopf
' Zuweisen der Steuerelementeinhalte:
Text1.ControlSource = "=num([ArtNetto])"        ' Lfd. Nr. innerhalb Gruppe
Text3.ControlSource = "=calcShortDate([RDatum])"
Text5.ControlSource = "=calcAfa([RDatum],[ArtNetto],[AfA],[AFAJahre],1)*[StandProjectArtAnzahl]"
Text6.ControlSource = "=gHeader([ArtNetto])"    ' Zwischenüberschrift für Gruppen
Text7.ControlSource = "=Sum(calcAfA([RDatum],[ArtNetto],[AfA],[AFAJahre],1)*[StandProjectArtAnzahl])"
Text9.ControlSource = Text7.ControlSource    ' Endsumme
End Sub


Für den unter Bericht habe ich einfach alles entnommen was ich nicht brauche
Damit er so angezeigt wird als unterbricht



Was ich jetzt allerdings nicht verstehe ist das der unterbricht plötzlich nach dem aufrufen einen Inhalt in den Steuerelementen hat  und diese im Vergleich zum ausgangs Bericht nicht ungebunden sind

Hier ist die Entwurfes Ansicht des Unterbrichts


Gruß Frank

[Frank77]

Hier hab ich das ganze noch als Beispiel

Gruß Frank

[Anhang gelöscht durch Administrator]

[DF6GL]

Hallo,

warum weist Du den Textfeldern nochmal die Formeln in ihrem Steuerelementinhalt zu ?

Soll heißen: lass die Zuweisung per Code sein und schreib die Formeln direkt in die Steuerelement-Eigenschaft...

[Frank77]

Hi!
Ok hab ich ungesetzt

Nur den Fehler bei der Anzeige den 2 Gruppen Bekomme ich nicht weg Die funktion wird nicht umgesetzt
I.  Betriebsgrundausrüstungen (BGA)
II. Geringerwertige Gebrauchsgüter (GWG)

Gruß Frank