Private Sub BBefüllungBeenden_Click()

ChargeBefuellungBeenden (TCNR)

End Sub

Private Sub BBefüllungStarten_Click()

ChargeBefuellungStarten (TCNR)

End Sub

Private Sub BChargenstammblatt_Click()

DoCmd.OpenReport "BChargenStammblatt", acViewPreview, , "CNR=" + Format(TCNR)

End Sub

Private Sub BUmfuellen_Click()

DoCmd.OpenForm "FChargeUmfuellen"

End Sub

Private Sub Form_Current()

LLieferungen.Requery
LChargenVorgaenger.Requery
LChargenNachfolger.Requery

End Sub

Private Sub LChargenNachfolger_DblClick(Cancel As Integer)

filter = "CNR=" + Format(LChargenNachfolger)
FilterOn = True

End Sub

Private Sub LChargenVorgaenger_DblClick(Cancel As Integer)

filter = "CNR=" + Format(LChargenVorgaenger)
FilterOn = True


End Sub

Private Sub TBNR_Exit(Cancel As Integer)

RefreshChargennummer

End Sub

Sub RefreshChargennummer()

Dim Maxcounter1 As Long
'MsgBox (TChargennummer)
If IsNull(TChargennummer) And TBNR > 0 Then
 DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
 TChargennummer = GeneriereChargennummer(TCNR, Maxcounter1)
 TChargennummerZaehler = Maxcounter1
End If

End Sub

Private Sub TChargennummer_Exit(Cancel As Integer)

RefreshChargennummer

End Sub