42 lines
636 B
Plaintext
42 lines
636 B
Plaintext
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 |