39 lines
612 B
Plaintext
39 lines
612 B
Plaintext
|
|
Private Sub Babbrechen_Click()
|
|
|
|
DoCmd.Close
|
|
|
|
End Sub
|
|
|
|
Private Sub BOk_Click()
|
|
|
|
Select Case OListe
|
|
|
|
Case 1:
|
|
DoCmd.OpenReport "BAbwertungenMGNR", acPreview, , "ZNR=" + Format(Forms!MAbwertungen!TZNR)
|
|
Case 2:
|
|
DoCmd.OpenReport "BAbwertungen", acPreview, , "ZNR=" + Format(Forms!MAbwertungen!TZNR)
|
|
Case 3:
|
|
DoCmd.OpenReport "BAbwertungenSorte", acPreview, , "ZNR=" + Format(Forms!MAbwertungen!TZNR)
|
|
|
|
End Select
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
|
|
Private Sub Form_Open(Cancel As Integer)
|
|
|
|
TZNR = DFirst("ZNR", "TZweigstellen")
|
|
If Month(Date) < 9 Then
|
|
TLesejahr = year(Date) - 1
|
|
Else
|
|
TLesejahr = year(Date)
|
|
End If
|
|
OListe = 1
|
|
|
|
End Sub
|
|
|