1. Dim db As DAO.Database
  2. Dim rs As DAO.Recordset
  3. Dim strSQL As String
  4. Dim rsFiltered As DAO.Recordset
  5. Dim strSQL2 As String
  7. strSQL = "SELECT [SQL Results 2T].BEREICH, " & _
  8. "[SQL Results 2T].ANWENDUNG," & _
  9. "[SQL Results 2T].[COUNT(ERSTELLDATUM)]," & _
  10. "[SQL Results 2T].[COUNT(VERSANDDATUM)]," & _
  11. "[SQL Results 2T].[COUNT(EMPFANGSDATUM)]," & _
  12. "[SQL Results 2T].QVERSAND," & _
  13. "[SQL Results 2T].QRUECKLAEUFER," & _
  14. "[SQL Results 2T].DQ1," & _
  15. "[SQL Results 2T].DQ2," & _
  16. "[SQL Results 2T].DQ3," & _
  17. "[SQL Results 2T].DQ4," & _
  18. "[SQL Results 2T].DQ5," & _
  19. "[SQL Results 2T].DQ6," & _
  20. "[SQL Results 2T].DQ7," & _
  21. "[SQL Results 2T].DQ8 " & _
  22. "FROM [SQL Results 2T];"
  24. strSQL2 = "SELECT [SQL Results 2T].BEREICH, " & _
  25. "[SQL Results 2T].ANWENDUNG, " & _
  26. "[SQL Results 2T].[COUNT(ERSTELLDATUM)], " & _
  27. "[SQL Results 2T].[COUNT(VERSANDDATUM)], " & _
  28. "[SQL Results 2T].[COUNT(EMPFANGSDATUM)], " & _
  29. "[SQL Results 2T].QVERSAND, " & _
  30. "[SQL Results 2T].QRUECKLAEUFER, " & _
  31. "[SQL Results 2T].DQ1, " & _
  32. "[SQL Results 2T].DQ2, " & _
  33. "[SQL Results 2T].DQ3, " & _
  34. "[SQL Results 2T].DQ4, " & _
  35. "[SQL Results 2T].DQ5, " & _
  36. "[SQL Results 2T].DQ6, " & _
  37. "[SQL Results 2T].DQ7, " & _
  38. "[SQL Results 2T].DQ8 " & _
  39. "FROM [SQL Results 2T] " & _
  40. "WHERE [SQL Results 2T].BEREICH = EVAL('Forms![TestFormularF]![cbxBereich2]');"
  42. Debug.Print strSQL2
  44. Set db = CurrentDb
  45. Set rs = db.OpenRecordset(strSQL)
  47. With rs
  48. If rs.EOF Then
  49. Debug.Print .RecordCount
  50. ElseIf Not rs.EOF Then
  51. rs.MoveLast
  52. rs.MoveFirst
  53. rs.MoveNext
  54. If rs.EOF Then
  55. Debug.Print .RecordCount
  56. End If
  57. End If
  58. '...
  59. .Filter = "[BEREICH]= 'IT'"
  60. Set rsFiltered = .OpenRecordset
  61. If rsFiltered.EOF Then
  62. Debug.Print 0
  63. ElseIf Not rsFiltered.EOF Then
  64. Do While (Not rsFiltered.EOF)
  65. rsFiltered.MoveLast
  66. rsFiltered.MoveFirst
  67. tbAllCalls2 = rsFiltered.RecordCount
  68. rsFiltered.MoveNext
  69. Loop
  70. End If
  71. .Close
  72. End With
  74. Set rs = Nothing
  75. Set db = Nothing
  77. Me.Requery

VBA Code