Private Sub BNeuerNied_Click()

If IsNull(LGNR) Then
  MsgBox "Bitte zuerst Gemeinde auswählen !", vbCritical
Else
  DoCmd.OpenForm ("FRiedeMitglied")
End If


End Sub

Private Sub LRiede_GotFocus()
query1 = "SELECT RNR, BEZEICHNUNG FROM TRiede WHERE GNR=" + Format(LGNR) + " order by BEZEICHNUNG "
LRiede.RowSource = query1
LRiede.Requery

End Sub

Private Sub LRiede_LostFocus()
query1 = "SELECT RNR, BEZEICHNUNG FROM TRiede order by BEZEICHNUNG;"
LRiede.RowSource = query1
LRiede.Requery

End Sub