Hallo ich brauche Eure Hilfe, hier ist ein Teil meines Moduls, dort wo die 6 im rs.Filter steht soll eine Zahleneingabe durch eine textbox erfolgen!
Public Sub Main()
Dim rs As ADODB.Recordset
Dim i, j As Integer
Dim Kundennummer As Integer
Range("A6:E8").Select
Selection.ClearContents
Range("A6").Select
Set rs = NewRecSet("SELECT Kunde.Kundennummer, Kunde.Vorname, Kunde.Nachname, Kontakt.Ergebnis, Count(Kontakt.Ergebnis) AS Kontakthäufigkeit FROM Kunde INNER JOIN Kontakt ON Kunde.Kundennummer = Kontakt.Kundennummer GROUP BY Kunde.Kundennummer, Kunde.Vorname, Kunde.Nachname, Kontakt.Ergebnis")
rs.Filter = "Kundennummer LIKE '6'"
With rs
' Wenn keine Datensätze vorhanden, verlasse das Programm
If .EOF And .BOF Then Exit Sub
' Springe zu Datensatz 1
.MoveFirst
j = 6
' Lese solange Datensätze aus der Datenbank und schreibe
' ihren Inhalt auf das aktuelle Blatt, bis das Ende der Da-
' sätze erreicht ist.
While Not .EOF
For i = 1 To .Fields.Count
Cells(j, i) = .Fields(i - 1)
Next
j = j + 1
.MoveNext
Wend
End With
End Sub
|