Private Sub Text1_Change()
 
Dim sql As String
 
    lblstatus.Caption = "Satz " & CStr(Data1.Recordset.AbsolutePosition + 1) & _
      " von " & Data1.Recordset.RecordCount
 
    gsAbfrageDB = gsKeyDBName
    Me!Text2.Text = dmDLookup("Beschreibung", "Geschlecht", "Art = '" & _
      Me!Text3.Text & "'")
    Me!Text5.Text = dmDLookup("Klartext", "AndereSchule", "AndereSchule = '" & _
    Me!Text6.Text & "'")
    Me!Text7.Text = dmDLookup("Klartext", "Beschäftigungsart", _
    "Beschäftigungsart = '" & Me!Text8.Text & "'")
    Me!Text4.Text = dmDLookup("Klartext", "Rechtsverhältnis", "Rechtsverhältnis" & _
    "= '" & Me!Text9.Text & "'")
 
    gsAbfrageDB = gsDBName
    Unt = dmDSum("U71ZSTD", "Satz71", "U71LEHK = '" & Me!Text11.Text & "'")
 
    With grdUnterricht
 
 
         sql = "SELECT DISTINCTROW (U71JG & U71P) AS KLASSE, U71FACH, Sum(" & _
           "U71ZSTD) AS [Summe von U71ZSTD] "
         sql = sql & "FROM Satz71 WHERE NOT U71JG = '' AND U71LEHK = '" & _
         Me!Text11.Text & "' "
         sql = sql & "GROUP BY U71JG, U71P, U71FACH;"
 
         Set .Recordset = gdbCurrentDB.OpenRecordset(sql)
 
         .Columns(3).FooterText = Format(Unt, "0.00 ")
         .Columns(3).FooterAlign = ALIGNMENT_RIGHT
         .FooterForeColor = vbBlue
 
         .Refresh
 
    End With
 
 
 
End Sub