Option Compare Database
Option Explicit

Private Sub Form_Close()

AddNewRied

End Sub

Private Sub Form_Open(Cancel As Integer)

LGNR = Forms!FMitglieder!FUnter.Form![LGNR]
If DCount("RNR", "TRiede", "") = 0 Then
 TRNR = 1
Else
 TRNR = DMax("RNR", "TRiede", "") + 1
End If
TWGBZS = 0

End Sub


Sub AddNewRied()

Dim db1 As Database
Dim rs1 As Recordset

If Not IsNull(TBezeichnung) Then

  Set db1 = CurrentDb
  Set rs1 = db1.OpenRecordset("TRiede")
  rs1.AddNew
  rs1!RNR = TRNR
  rs1!GNR = LGNR
  rs1!Bezeichnung = TBezeichnung
  rs1!RZS = TWGBZS
  rs1.Update
  [Forms]![FMitglieder]![FUnter].[Form]![LRiede] = TRNR
End If


End Sub