Option Compare Database
Option Explicit





Private Sub Befehl51_Click()

DoCmd.Close

End Sub

Private Sub BOk_Click()

Dim aznr1 As Long ' the actual AZNR
Dim SNR1 As String  ' actual snr
Dim SANR1 As String
Dim SNR2 As String
Dim SANR2 As String

Dim db1 As Database
Dim rs1 As Recordset
Dim rs2 As Recordset
Dim i As Long
Dim gebunden1 As Integer
Dim gebunden2 As Integer
Dim varElement As Variant


If MsgBox("Wollen Sie die eingegebene Sortentabelle auf die ausgewählten Sorten kopieren ?", vbYesNo) = vbYes Then

DoCmd.Hourglass True
 aznr1 = Forms!FAuszahlung!TAZNR
 SNR1 = Forms!FAuszahlung!TSNR
 gebunden1 = Forms!FAuszahlung!TGebunden
 If IsNull(Forms!FAuszahlung!TSANR) Then
  SANR1 = ""
 Else
  SANR1 = Forms!FAuszahlung!TSANR
 End If


Set db1 = CurrentDb


'For Each varElement In LSorten.ItemsSelected
For i = 0 To LSorten.ListCount - 1

    If LSorten.Selected(i) Then
    
     LSorten.BoundColumn = 1
     SNR2 = LSorten.ItemData(i)
     LSorten.BoundColumn = 5
     If IsNull(LSorten.ItemData(i)) Then
      SANR2 = ""
     Else
      SANR2 = LSorten.ItemData(i)
     End If
     LSorten.BoundColumn = 4
     If LSorten.ItemData(i) = "gebunden" Then
      gebunden2 = True
     Else
      gebunden2 = False
     End If
     
     'MsgBox (SNR2)
     
     If SANR1 = "" Then
      Set rs1 = db1.OpenRecordset("SELECT * FROM TAuszahlungSorten WHERE AZNR=" + Format(Forms!FAuszahlung!TAZNR) + " AND SNR='" + SNR1 + "' AND Gebunden=" + Format(gebunden1) + " AND SANR IS NULL ORDER BY Oechsle")
     Else
      Set rs1 = db1.OpenRecordset("SELECT * FROM TAuszahlungSorten WHERE AZNR=" + Format(Forms!FAuszahlung!TAZNR) + " AND SNR='" + SNR1 + "' AND Gebunden=" + Format(gebunden1) + " AND SANR='" + SANR1 + "' ORDER BY Oechsle")
     End If
     If SANR2 = "" Then
      Set rs2 = db1.OpenRecordset("SELECT * FROM TAuszahlungSorten WHERE AZNR=" + Format(Forms!FAuszahlung!TAZNR) + " AND SNR='" + SNR2 + "' AND Gebunden=" + Format(gebunden2) + " AND SANR IS NULL ORDER BY Oechsle")
     Else
      Set rs2 = db1.OpenRecordset("SELECT * FROM TAuszahlungSorten WHERE AZNR=" + Format(Forms!FAuszahlung!TAZNR) + " AND SNR='" + SNR2 + "' AND Gebunden=" + Format(gebunden2) + " AND SANR='" + SANR2 + "' ORDER BY Oechsle")
     End If
     
     While Not rs1.EOF
        
      
      rs2.Edit
      rs2!Betrag = rs1!Betrag
      rs2.Update
    
      
      rs2.MoveNext
      rs1.MoveNext
     
     Wend
     
     rs1.Close
     rs2.Close
     
    End If

'Next varElement
Next i

DoCmd.Hourglass False

End If

DoCmd.Close
Forms!FAuszahlung!FUnter1.Requery

End Sub