Private Sub Data1_Reposition()
wh$ = "linktätigkeit = " + Str$(Adressen!Data1.Recordset("Linknummer")) 
frmtätigkeiten.Data1.RecordSource = "select linktätigkeit, von, bis, Tätigkeit," & _
  "Beschreibung, [mod], user, date, gelöscht, laufnummer from tätigkeit where " _
  & wh$ & " order by von desc"
frmtätigkeiten.Data1.Refresh
End Sub

Private Sub DataGrid1_BeforeColUpdate(ByVal ColIndex As Integer, OldValue As _
  Variant, Cancel As Integer)
If Not IsNull(Data1.Recordset("mod")) Then mo$ = Data1.Recordset("mod")
DataGrid1.Columns(5).text = mo$ + "M|"
DataGrid1.Columns(6).text = stduser
DataGrid1.Columns(7).text = Now
End Sub
 
Private Sub DataGrid1_OnAddNew()
DataGrid1.Columns(0).text = Adressen.Data1.Recordset("Linknummer")
DataGrid1.Columns(5).text = "N"
DataGrid1.Columns(6).text = stduser
DataGrid1.Columns(7).text = Now
DataGrid1.Columns(9).text = maxlaufnr(Adressen.Data1.Recordset("Linknummer"))
End Sub