Function string_füllen()
'Autor: Heiko Hommes
'Beschr: zwei Fleder werden jeweils mit einem angegebenen Zeichen aufgefüllt,
'				 zusammengeführt und anschliessend in ein Feld geschrieben

Dim db As Database
Dim rs As Recordset
Dim fl1, fl2, flz As Field
Dim i, länge1, länge2, längez, schritt As Integer
Dim tabelle, feld1, feld1_tmp, feld2, feld2_tmp, feldz, filler As String

On Error GoTo fehler

tabelle = InputBox("Bitte Tabellenname eingeben. Groß/Klein Schreibweise beachten!!!")
feld1 = InputBox("Bitte Feldname 1 eingeben. Groß/Klein Schreibweise beachten!!!")
feld2 = InputBox("Bitte Feldname 2 eingeben. Groß/Klein Schreibweise beachten!!!")
feldz = InputBox("Bitte Ziel-Feldname eingeben. Groß/Klein Schreibweise beachten!!!")
länge1 = InputBox("Bitte Feldgröße des ersten Feldes angeben.")
länge2 = InputBox("Bitte Feldgröße des zweiten Feldes angeben.")
längez = InputBox("Bitte Feldgröße des Ziel-Feldes angeben.")
filler = InputBox("Bitte Zeichen eingeben, mit dem das Feld aufgefüllt werden soll")


Set db = DBEngine(0)(0)
Set rs = db.OpenRecordset(tabelle)
Set fl1 = rs.Fields(feld1)
Set fl2 = rs.Fields(feld2)
Set flz = rs.Fields(feldz)

länge1 = Len(rs.Fields(feld1))
länge2 = Len(rs.Fields(feld2))

rs.MoveFirst
rs.Edit

feld1_tmp = rs.Fields(feld1)
For i = 1 To länge1 Step 1
    feld1_tmp = feld1_tmp & filler
Next i

feld2_tmp = rs.Fields(feld2)
For i = 1 To länge2 Step 1
    feld2_tmp = feld2_tmp & filler
Next i

rs.Fields(feldz).Value = feld1_tmp & feld2_tmp

rs.Update
msgbox ("Na du kleiner Scheißer! Bin fertig")
Exit Function

fehler:
msgbox ("FEHLER!! Ein bischen mehr Konzentration")
Exit Function

End Function