Private Sub Weiter_Click(Cancel As Integer)
        Hon_Nr_Neu 'neue Honorarnummer ermitteln
        Datensatz_Neu 'neue Datensätze in Honorarermittlungstabellen anlegen
        FilterChildForm 'Formular frmHonorar öffnen und zu aktuellen Datensatz 
        ' gehen
     DoCmd.Close acForm, Me.Name
End Sub
Private Sub FilterChildForm()
    PID = Me!IdHonorar
    DoCmd.OpenForm "frmHonorar"
    DoCmd.GoToControl "IdHonorar"
    DoCmd.FindRecord PID, , , , , , True 'wird auch in Form frmHonorar angezeigt
End Sub

Private Sub Form_Load()
Dim sSQL As String
Dim oRs As DAO.Recordset
 
  ' Recordset-Objekt erstellen
  sSQL = "SELECT IdHonorar, Ermittlungsnummer, Bezeichnung, ErstellungsDatum," & _
    "AenderungsDatum, IdAnsatz, " & _
  "MwSt, IdZone, IdSatz " & _
    "FROM tblHonorarErmittlungen WHERE IdHonorar = " & Me!IdHonorar & ";"
  Set oRs = CurrentDb.OpenRecordset(sSQL)
 
  With sevGrid1
     .LockUpdate True
     .CreateClone = True
     .Clear True
    Set .Recordset = oRs
    .CaptionVisible = True
    .CaptionFont.Name = "Tahoma"
    .CaptionFont.Bold = True
    .Caption = "Honorarermittlung"
    .Columns(6).ColType = TYPE_CHECKBOX
    .Columns(8).ColType = TYPE_COMBOBOX
    .Columns(9).ColType = TYPE_COMBOBOX
    .Columns(1).Width = 100
    .Columns(2).Width = 800
    .Columns(3).Width = 3000
    .Columns(4).Width = 600
    .Columns(5).Width = 600
    .Columns(6).Width = 400
    .Columns(7).Width = 600
    .Columns(8).Width = 800
    .Columns(9).Width = 800
    ' interaktives Hinzufügen, Ändern und Löschen ermöglichen
    .AllowEdit = True
    .AutoUpdate = True
    .AllowDelete = False
    ' interaktives Ändern der Spaltenbreiten zulassen
    .AllowColumnSizing = True
    ' autom. Neuzeichnen einschalten
    .LockUpdate False
    .Refresh
    ' 1. Zeile selektieren
    .Row = 1
    ' ursprüngliches Recordset zerstören
    oRs.Close
    Set oRs = Nothing
  End With