109 lines
2.5 KiB
Plaintext
109 lines
2.5 KiB
Plaintext
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
|