3.4k Aufrufe
Gefragt in Datenbanken von flixe84 Mitglied (107 Punkte)
Hallo zusammen,

habe im Internet gesucht und auch folgenden Arbeitshinweis gefunden:
http://www.ms-office-forum.de/forum/showthread.php?t=50301

==========================================================
Dort wird der Code beschrieben:
Private Sub Form_Open(Cancel As Integer)
NameLaufschrift = DLookup("Laufschrift", "tblLaufschrift") & ""
End Sub

Private Sub Form_Timer()
ElementLaufschrift = Right(ElementLaufschrift, 1) & Left(ElementLaufschrift,
Len(ElementLaufschrift) - 1)
Me.Repaint
End Sub
==========================================================

Wenn ich also das Formular öffne müsste somit die Laufschrift kommen,
es kommt aber vom Visual Basic folgendes "Laufzeitfehler"5, wenn ich dann auf Debuggen gehe springt der gelbe Pfeil zu folgendem

ElementLaufschrift = Right(ElementLaufschrift, 1) & Left(ElementLaufschrift,
Len(ElementLaufschrift) - 1)

Nun zur Meiner Frage, was ist da falsch, oder wäre es anderst besser.

Danke für EURE Hilfe!

Grüße
Flixe84

2 Antworten

0 Punkte
Beantwortet von paul1 Experte (4.9k Punkte)
Hallo,

Im nachfolgenden Link gibt es ein Beispiel zum Downloaden (VBA).

Beispiel


Gruß

Paul1
0 Punkte
Beantwortet von paul1 Experte (4.9k Punkte)
Hallo Felix,

Im nachfolgenden Link noch ein Beispiel:

Lauftext

Weitere Infos im Formular „Lauftext“


Gruß

Paul1
...