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
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.
If Len(Me.Text67) >= 20 Then
Me!Text67.FontSize = 12
Else
Me!Text67.FontSize = 15
End If
gruss ekkehard
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
Hallo,
ZitatHabe den Code jetzt eingefügt bei Report_Load
Warum das denn ?
Hat ekkehard doch gar nicht gesagt. Nimm das Ereignis das Du auch hattest.
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
Hallo,
Gibt es bei Text67 (sehr sinniger Name) leere Felder?