VBA-Forum - Das Forum zu Microsoft VBA

Ansicht des Beitrags:

Von: need help	Datum: 23.08.2006 15:00:50	Views: 2058	Rating:	Antwort:
Thema: VBA Hilfe RecordSet
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

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen