Exported VBA

2022-11-14 23:29:49 +01:00
parent 47e3c75051
commit dff7c4d0f2
134 changed files with 17682 additions and 0 deletions
--- a/wgmaster/vba/Form_FAuszahlungSortenAuswahl.frm
+++ b/wgmaster/vba/Form_FAuszahlungSortenAuswahl.frm
@ -0,0 +1,108 @@
+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