Exported VBA

wgmaster/vba/Form_FFlaechenbindungen.frm

@@ -0,0 +1,24 @@
+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