Bericht Fehlermeldung

[joeson]

Hallo,
hatte den Bericht eine Weile nicht benötigt und nun kommt die Fehlermeldung:
Laufzeitfehler 2427:
Sie haben einen Ausdruck ohne Wert eingegeben.
Code sieht so aus:

Private Sub Detailbereich_Format(Cancel As Integer, FormatCount As Integer)
Select Case Len(Me!Text67)
      Case Is >= 20: Me!Text67.FontSize = 12
      Case Is >= 15: Me!Text67.FontSize = 15
      Case Is >= 10: Me!Text67.FontSize = 15
      Case Is < 10:  Me!Text67.FontSize = 15
    End Select
End Sub

Kann mir da jemand behilflich sein? Das wäre super

Gruß Joeson

[Beaker s.a.]

Hallo,
Und, - in welcher Zeile wird er Fehler ausgeworfen?
Wozu brauchst du hier ein Select Case? Du hast doch nur zwei
Ergebnisse und einen Grenzwert.

Code [Auswählen] Erweitern

If Len(Me.Text67) >= 20 Then
    Me!Text67.FontSize = 12
Else
    Me!Text67.FontSize = 15
End If
gruss ekkehard

[joeson]

Erst mal Danke für die Antwort.
Die Fehlermeldung kommt in einem extra Fenster.

Habe den Code jetzt eingefügt bei Report_Load

Geht leider auch nicht.
Muss der Code woanders rein?

Gruss Joeson

[MzKlMu]

Hallo,

Habe den Code jetzt eingefügt bei Report_Load

Warum das denn ?
Hat ekkehard doch gar nicht gesagt. Nimm das Ereignis das Du auch hattest.

[joeson]

Hallo,
steht jetzt so drin.

Private Sub Detailbereich_Format(Cancel As Integer, FormatCount As Integer)
If Len(Me.Text67) >= 20 Then
    Me!Text67.FontSize = 12
Else
    Me!Text67.FontSize = 15
End If
End Sub

zusätzliche Meldung jetzt:
Fehler beim Ausführen eines benutzerdefiniertes Makros in diesem Bericht. Der Bericht kann nicht gerendert werden

Hab keine Makros

Ich weiss jetzt echt nicht mehr weiter

Joeson

[MzKlMu]

Hallo,
Gibt es bei Text67 (sehr sinniger Name) leere Felder?