Dim db As Database
Dim rs As Recordset
Dim nPos As Integer
Dim rs2 As Recordset
Dim zahl1 As Integer
Dim minwert As Long
Dim randomVAR As Long
Dim ret As Boolean
 
Set db = OpenDatabase(Pfad_Daten)
Set rs2 = db.OpenRecordset("Select * from NeuePersonen")
Set rs = db.OpenRecordset("Select * from Person")
 
rs.MoveFirst
minwert = rs!personid
Do Until zahl1 = 50
 
   '####################  Name   ##########################
 
 
    'Randomize
    randomVAR = Int(Rnd * 87) + 1
    ret = checkpersonid(minwert, randomVAR)
    Do While ret <> True
        randomVAR = Int(Rnd * 87) + 1
        ret = checkpersonid(minwert, randomVAR)
    Loop
 
    Do Until rs!personid = randomVAR
        rs.MoveNext
    Loop
 
    rs2.AddNew
    rs2("Name") = rs!Name
    rs.Close
 
 
 
    '####################  Vorname   ##########################
 
 
    'Randomize
    randomVAR = Int(Rnd * 87) + 1
    ret = checkpersonid(minwert, randomVAR)
    Do While ret <> True
        randomVAR = Int(Rnd * 87) + 1
        ret = checkpersonid(minwert, randomVAR)
    Loop
 
    Do Until rs!personid = randomVAR
        rs.MoveNext
    Loop
 
    rs2.AddNew
    rs2("Vorname") = rs!Vorname
    rs.Close
 
 
 
 
    zahl1 = zahl1 + 50 ' soll 50 "testkunden" machen aber zum test lass ichs _
      nur  einmal    durchlaufen
 
 
Loop
 
 
 
 
'Tabelle.Close
'db.Close
'Set rs = Nothing
'Set rs2 = Nothing
'Set db = Nothing
 
 
    End
End Sub