1. 'Variablen für die Suchabfrage
  2. Dim db As DAO.Database
  3. Dim rs As DAO.Recordset
  4. Dim strSQL As String
  5. Dim rsFiltered As DAO.Recordset
  6. Dim strSQL2 As String
  7. 'Variablen für das Zusammenzählen der Werte.
  8. Dim All As Double 'Anzahl aller Calls der BU
  9. Dim Send As Double 'Anzahl aller versendeter Calls der BU
  10. Dim Ret As Double 'Anzahl aller erhaltenen Umfragen der BU
  11. Dim QSend As Double 'Summe der Quotienten der versendeten Calls der BU
  12. Dim QRet As Double 'Summe aller erhaltenen Umfragen der BU
  13. '---
  14. Dim SDQ1 As Double 'Geteilte Summe alle Umfrageergebnisse der Frage 1.
  15. Dim SDQ2 As Double 'Geteilte Summe alle Umfrageergebnisse der Frage 2.
  16. Dim SDQ3 As Double 'Geteilte Summe alle Umfrageergebnisse der Frage 3.
  17. Dim SDQ4 As Double 'Geteilte Summe alle Umfrageergebnisse der Frage 4.
  18. Dim SDQ5 As Double 'Geteilte Summe alle Umfrageergebnisse der Frage 5.
  19. Dim SDQ6 As Double 'Geteilte Summe alle Umfrageergebnisse der Frage 6.
  20. Dim SDQ7 As Double 'Geteilte Summe alle Umfrageergebnisse der Frage 7.
  21. Dim SDQ8 As Double 'Geteilte Summe alle Umfrageergebnisse der Frage 8.
  24. 'SQL Statement um alle Einträge zu bekommen
  25. strSQL = "SELECT [SQL Results 2T].BEREICH, " & _
  26. "[SQL Results 2T].ANWENDUNG," & _
  27. "[SQL Results 2T].[COUNT(ERSTELLDATUM)]," & _
  28. "[SQL Results 2T].[COUNT(VERSANDDATUM)]," & _
  29. "[SQL Results 2T].[COUNT(EMPFANGSDATUM)]," & _
  30. "[SQL Results 2T].QVERSAND," & _
  31. "[SQL Results 2T].QRUECKLAEUFER," & _
  32. "[SQL Results 2T].DQ1," & _
  33. "[SQL Results 2T].DQ2," & _
  34. "[SQL Results 2T].DQ3," & _
  35. "[SQL Results 2T].DQ4," & _
  36. "[SQL Results 2T].DQ5," & _
  37. "[SQL Results 2T].DQ6," & _
  38. "[SQL Results 2T].DQ7," & _
  39. "[SQL Results 2T].DQ8 " & _
  40. "FROM [SQL Results 2T];"
  42. 'Wird momentan nicht benötigt, da ich direkt den das erste SQL Statement filtere
  43. '---------------------------------------------------------------------------------
  44. strSQL2 = "SELECT [SQL Results 2T].BEREICH, " & _
  45. "[SQL Results 2T].ANWENDUNG, " & _
  46. "[SQL Results 2T].[COUNT(ERSTELLDATUM)], " & _
  47. "[SQL Results 2T].[COUNT(VERSANDDATUM)], " & _
  48. "[SQL Results 2T].[COUNT(EMPFANGSDATUM)], " & _
  49. "[SQL Results 2T].QVERSAND, " & _
  50. "[SQL Results 2T].QRUECKLAEUFER, " & _
  51. "[SQL Results 2T].DQ1, " & _
  52. "[SQL Results 2T].DQ2, " & _
  53. "[SQL Results 2T].DQ3, " & _
  54. "[SQL Results 2T].DQ4, " & _
  55. "[SQL Results 2T].DQ5, " & _
  56. "[SQL Results 2T].DQ6, " & _
  57. "[SQL Results 2T].DQ7, " & _
  58. "[SQL Results 2T].DQ8 " & _
  59. "FROM [SQL Results 2T] " & _
  60. "WHERE [SQL Results 2T].BEREICH = EVAL('Forms![TestFormularF]![cbxBereich2]');"
  62. 'Debug.Print strSQL2
  63. '---------------------------------------------------------------------------------
  65. 'Setzt die Datenbank als Datenquelle
  66. Set db = CurrentDb
  67. 'Setzt rs als Record(Einträge mit dem SQL Statement als Datenquelle
  68. Set rs = db.OpenRecordset(strSQL)
  70. 'Wenn die Tabelle leer ist(End Of File), dann wird der Wert als Null zurückgegeben.
  71. 'Momentan nur in die Debugkonsole
  72. If rs.EOF Then
  73. Debug.Print rs.RecordCount
  74. Debug.Print "Schleife1"
  75. End If
  76. Debug.Print "Nach Schleife 1"
  77. '...TEST
  78. If rs.EOF Then
  79. Debug.Print "EOF"
  80. End If
  81. If rs.BOF Then
  82. Debug.Print "BOF"
  83. End If
  84. '...TEST
  85. 'Wenn die Tabelle nicht leer ist(not Beginning Of File und not End Of File)
  86. 'Also nicht leer, der Auswahlpunkt steht nicht vor und nach nicht am Ende der Einträge
  87. If Not rs.BOF And Not rs.EOF Then
  88. 'Filter, nachdem die Einträge gefiltert werden.
  89. rs.Filter = "[BEREICH]= 'IT'"
  90. 'Erstellt aus dem vorherigen Filter eine neue Datenliste
  91. Set rsFiltered = rs.OpenRecordset
  92. Debug.Print "Schleife4"
  93. 'Wenn die neue Datenliste leer ist, dann wird der Wert als Null zurückgegeben.
  94. 'Momentan nur in die Debugkonsole
  95. If rsFiltered.BOF And rsFiltered.EOF Then
  96. Debug.Print 0
  97. Debug.Print "Schleife5"
  98. 'Wenn die neue Datenliste nicht leer ist, dann soll er die Einträge durchgehen
  99. ElseIf Not rsFiltered.BOF And Not rsFiltered.EOF Then
  100. Debug.Print "Schleife6"
  101. rsFiltered.MoveLast
  102. rsFiltered.MoveFirst
  103. 'Wenn die Liste das Ende erreicht(EOF), dann soll er bescheid sagen.
  104. If rsFiltered.EOF Then
  105. Debug.Print "Schleife8"
  106. End If
  107. Debug.Print rsFiltered.RecordCount
  108. tbAllCalls2 = rsFiltered.RecordCount
  109. Debug.Print rs.RecordCount
  110. tbSend2 = rs.RecordCount
  111. Debug.Print "Schleife9"
  112. End If
  113. End If
  114. rs.Close
  115. '------------------------------------------------------------------
  116. 'Hier sollen die Einträge dann in die Formularfelder geschrieben werden
  117. '------------------------------------------------------------------
  118. Debug.Print "Alle Anwendungen"
  119. rsFiltered.MoveLast
  120. rsFiltered.MoveFirst
  121. Do While (Not rsFiltered.EOF)
  122. Debug.Print rsFiltered.Fields("ANWENDUNG")
  124. rsFiltered.MoveNext
  125. Loop
  126. '------------------------------------------------------------------
  127. '------------------------------------------------------------------
  128. Debug.Print "ENDE"
  130. 'Setzt die Abfragen auf Null.
  131. Set rs = Nothing
  132. Set db = Nothing
  133. Set rsFiltered = Nothing
  135. 'Aktualisiert die Anzeigen im Formular
  136. Me.Requery