82 lines
1.7 KiB
Plaintext
82 lines
1.7 KiB
Plaintext
|
|
Private Sub Babbrechen_Click()
|
|
|
|
DoCmd.Close
|
|
|
|
End Sub
|
|
|
|
Private Sub BOk_Click()
|
|
|
|
Dim where1 As String
|
|
|
|
where1 = ""
|
|
If OListe = 1 Then
|
|
'MGNR
|
|
If Not IsNull(TVon1) Then
|
|
where1 = where1 + " AND TMitglieder.MGNR>=" + Format(TVon1)
|
|
End If
|
|
If Not IsNull(TBis1) Then
|
|
where1 = where1 + " AND TMitglieder.MGNR<=" + Format(TBis1)
|
|
End If
|
|
Else
|
|
'PLZ
|
|
If Not IsNull(TVon1) Then
|
|
where1 = where1 + " AND TMitglieder.PLZ>='" + Format(TVon1) + "'"
|
|
End If
|
|
If Not IsNull(TBis1) Then
|
|
where1 = where1 + " AND TMitglieder.PLZ<='" + Format(TBis1) + "'"
|
|
End If
|
|
End If
|
|
|
|
|
|
Select Case OListe
|
|
|
|
Case 1:
|
|
DoCmd.OpenReport "BMitgliedStammblattMGNR", acPreview, , "[Aktives Mitglied]=True AND ZNR=" + Format(Forms!MStammblatt!TZNR) + where1
|
|
Case 2:
|
|
DoCmd.OpenReport "BMitgliedStammblatt", acPreview, , "[Aktives Mitglied]=True AND ZNR=" + Format(Forms!MStammblatt!TZNR) + where1
|
|
|
|
End Select
|
|
|
|
If OLiefermengen Then
|
|
DoCmd.OpenReport "BLiefermenge", acViewDesign
|
|
|
|
Select Case OListe
|
|
Case 1:
|
|
Reports("BLiefermenge").GroupLevel(0).ControlSource = "MGNR"
|
|
Case 2:
|
|
Reports("BLiefermenge").GroupLevel(0).ControlSource = "PLZ"
|
|
End Select
|
|
|
|
DoCmd.Save
|
|
DoCmd.Close , "BLiefermenge"
|
|
|
|
DoCmd.OpenReport "BLiefermenge", acPreview, , "[Aktives Mitglied]=True AND ZNR=" + Format(Forms!MStammblatt!TZNR) + where1
|
|
End If
|
|
|
|
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
Private Sub Form_Open(Cancel As Integer)
|
|
|
|
OListe = 1
|
|
OLiefermengen = False
|
|
TZNR = DFirst("ZNR", "TZweigstellen")
|
|
TFusstext = GetParameter("STAMMBLATTTEXT")
|
|
|
|
End Sub
|
|
|
|
|
|
Private Sub TFusstext_Exit(Cancel As Integer)
|
|
|
|
If IsNull(TFusstext.Value) Then
|
|
SetParameter "STAMMBLATTTEXT", " "
|
|
Else
|
|
SetParameter "STAMMBLATTTEXT", TFusstext.Value
|
|
End If
|
|
|
|
End Sub |