Nach öffnen des Berichtes erfolgt folgende fehlermeldung.Laufzeitfehler 438 Objekt unterstützt diese Eigenschaft oder Methode nicht.
Screenprint und genaue beschreibung
https://www.dropbox.com/s/w7e236qhim5a7ka/Access%20P…
Das ist der entsprechende Code ist: Der wird unter „Formatieren“ unter „Fall – Kopfbereich“ gespeichert. Beim Code erscheint automatisch „Private Sub Berichtskopf_Format. Dort vermute ich den fehler. Wenn ich den Code in einem anderen Dokumentj unter „Berichtskopf“ speichere klappt alles wunderbar.Ich habe schon versucht die Zeile entsprechend anzupassen, aber es klappt nicht. Haben Sie eine Idee ?
Private Sub Berichtskopf_Format(Cancel As Integer, FormatCount As Integer)
'Variable to hold the return value from the function Dim lngReturn As Long
'Call the Function that resizes the Total Access Memo control 'And move any controls below it.
'NOTE: This function will lessen the Total Access Memo control 'size if the controls below it plus the height go over the Maximum
'Section height for MS Access Reports. Since we are giving height 'priority to other controls, the other controls will NOT be
'truncated like thge Total Access Memo control. lngReturn = ResizeFMSMemoAndMoveControls_Local(tamdemo, Me, True, True)
'Check for an error and show it.
'Or insert your own error handling here.
If lngReturn 0 Then
err.Raise lngReturn
End If
End Sub