24 lines
500 B
Plaintext
24 lines
500 B
Plaintext
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 |