Dim db As DAO.Database
Dim rst As DAO.Recordset
 
Private Sub btnStart_Click()
Dim Rohrnetzbezirk As String
Dim Anzahlrst As String
Dim Unterbezirk As Variant
 
Dim iMaxZeile As Integer
Dim iMaxSpalte As Integer
 
Dim FSO As New FileSystemObject
Dim Folder As Folder
Dim sFolderPath As String
Dim sDestPath As String
 
' Initialisierung des Rohrnetzbezirkes
Rohrnetzbezirk = txtEingabe.Text
 
Set db = DBEngine.Workspaces(0).OpenDatabase("D:\Ortsnetzverwaltung.mdb")
Set rst = db.OpenRecordset("SELECT * FROM O_Netz_RNBZ WHERE RNBZ =  '" & _
  Rohrnetzbezirk & "'", dbOpenDynaset)
 
If txtEingabe.Text = "Bitte RNBZ eingeben" Then
    MsgBox "Bitte geben Sie einen Rohrnetzbezirk an!", vbInformation, "Eingabe" & _
      "RNBZ"
    Exit Sub
 
End If
 
If txtEingabe.Text <> db.OpenRecordset.Fields(RNBZ) Then
    MsgBox "RNBZ nicht vorhanden!"
    Exit Sub
 
End If
 
rst.MoveLast
 
iMaxZeile = rst.RecordCount
iMaxSpalte = rst.Fields.Count
Anzahlrst = rst.RecordCount
If MsgBox("Anzahl der zu kopierenden Unterbezirke im Rohrnetzbezirk Nr. " & _
  Rohrnetzbezirk & ": " + Anzahlrst & Chr(13) & "Sollen die Dateien kopiert" & _
  "werden?", vbInformation + vbYesNo, "Bestätigung") = vbNo Then
    MsgBox "Kopieren abgebrochen", vbInformation
    Exit Sub
End If
 
'Zum ersten Recordset springen
rst.MoveFirst
 
 
'Schleife über alle Einträge im Recordset zum gewählten RNBZ
Do Until rst.EOF
 
 
    txtAusgabeRNBZ = rst.Fields(2)
    txtAusgabeRNBZ_Name = rst.Fields(3)
    txtAusgabeO_Netz = rst.Fields(1)
 
 
    'Bestimmung des O_Netz Namens (entspricht dem Dateinamen des zu kopierenden 
    ' Ordners
    Unterbezirk = rst.Fields(1)
    MsgBox (Unterbezirk)
 
    ' Mauszeiger als Sanduhr darstellen - Beginn Kopierprozess
    Form1.MousePointer = 11  'Hourglass pointer
 
    'Screen.MousePointer = vbHourglass
 
        'Welcher Ordner soll kopiert werden?
        sFolderPath = "\\SESSN031\RGFileservice\GIS\Dokumente\Ortsnetze\" + _
          Unterbezirk
        'Wohin soll der Ordner kopiert werden?
        sDestPath = "D:\Vancraeyenest\"
        'Kopiervorgang starten
        Set Folder = FSO.GetFolder(sFolderPath)
        Folder.Copy sDestPath
 
        If Err > 0 Then MsgBox Err.Description
 
    ' Sanduhr wieder als Pfeil darstellen - Ende Kopierprozess
    Form1.MousePointer = 0   'Default pointer
    'Screen.MousePointer = vbDefault
    rst.MoveNext
Loop
 
'Zurücksetzten der Ausgabetextfelder
txtAusgabeRNBZ.Text = ""
txtAusgabeRNBZ_Name.Text = ""
txtAusgabeO_Netz.Text = ""
 
rst.Close
db.Close
 
Set rst = Nothing
 
MsgBox ("Die Daten wurden erfolgreich kopiert!")
 
End Sub
 
 
Private Sub btnEnde_Click()
End
End Sub
 
Private Sub Form_Load()
 
'Positionierung des Forms zentriert auf dem Bildschirm
Form1.Left = Screen.Width / 2 - Form1.Width / 2
Form1.Top = Screen.Height / 2 - Form1.Height / 2
 
'Textfelder als unbearbeitbar initialisieren
txtAusgabeRNBZ.Enabled = False
txtAusgabeRNBZ_Name.Enabled = False
txtAusgabeO_Netz.Enabled = False
 
End Sub

If Me!txtEingabe.Text <> db. ... Then