Berichtsdesigner Fehlermeldung

[TottoW]

Hallo zusammen,

im Berichtdesigner erscheint bei mir die folgende Meldung, wenn ich ein Script hinterlege:



Zum testen habe ich nur eine MSGBOX hinterlegt, vorher kam eine Inputbox mit der Abfrage der Menge. Die bestehenden Labels funktionieren, aber nicht das Neue.

Hat vielleicht jemand eine Idee?

Danke im Voraus

 

[TottoW]

Hier vielleicht der Quellcode dazu

Imports System
Imports Microsoft.VisualBasic.Interaction
 


Private Sub label2_BeforePrint(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintEventArgs)
DIM varDefault as string

      varDefault = "Menge bitte eintragen"
label2.text = InputBox("Menge:",varDefault, "1")

End Sub

 

[TottoW]

Hallo zusammen,
ich habe zwar die Ursache gefunden, kann es mir aber nicht erklären.
Es hat etwas mit der Vorlage zu tun, die war wohl korrupt. Ich habe eine neue mit anderem Namen erstellt, darin den SQL Quellcode von der betreffenden Vorlage kopiert und siehe da...
Warum das so ist habe ich bis jetzt noch nicht heraus gefunden.