Hallo,

Ich übergebe mehrere Werte an eine Acess Datenbank. Ich hätte aber gerne das, wenn die Eingabe länger als 12 Zeichen ist, der fortlaufende Text in die darunter liegende Spalte geschrieben wird.

zB Das sind 12 Z
-----eichen

Ich habe mich schon ein wenig mit Mid,Left,Right usw. gespielt habs aber leider noch nicht geschafft!

Ich hoffe Ihr könnt mir helfen!

lg

dusty

Geht im Prinzip ganz einfach mit Left() und Right():

Code :

1 2 3 4 5 6

Do  vZeichen = Left(vZeilen, 12)  'Den Inhalt der Variable vZeichen schreibst du dann in deine Datenbank    vZeilen = Right(vZeilen, Len(vZeilen) - 12) Loop Until vZeilen = ""

Ich hab den Code jetzt nicht getestet, kann sein, dass ein Fehler kommt, es würde dann noch eine If-Abfrage reingehören.


Der Doc!

Irgendwie funktioniert das bei mir nicht! Was ist eigentlich unter Vzeilen gemeint?

Bekomme Fehlermeldung : Ungültiger Prozeduraufruf oder ungülitiges Argument

Code :

1	vzeilen = Right(vzeilen, Len(vzeilen) - 12) '(vzeilen=leer)

Hätte es kommentieren sollen, vZeilen ist die Variable, in der dein zu teilender Text steht (du kannst den Namen natürlich anpassen).


Der Doc!

Vielen Dank! Funktioniert prima!

Gibt doch noch ein Prob. und zwar wenn der text nicht genau 24 Zeichen ist, dann tritt der oben genannte Fehler nochmals auf, aber ansonsten funktionierts.

Wie gesagt, da gehört noch eine If-Abfrage rein (hatte vorher keine Zeit), der Code würde gesamt so lauten:

Code :

1 2 3 4 5 6 7 8 9

Do  vZeichen = Left(vZeilen, 12)  'Den Inhalt der Variable vZeichen schreibst du dann in deine Datenbank  If Len(vZeilen) > 12 then   vZeilen = Right(vZeilen, Len(vZeilen) - 12)  Else:   vZeilen = ""  End If Loop Until vZeilen = ""

Der Doc!

Vielen Dank für deine Geduld!

Jetzt hab ichs geschafft! *Respekt*