Thema Datum  Von Nutzer Rating
Antwort
Rot movenext funktioniert nicht
13.06.2024 10:44:53 Michael
NotSolved
13.06.2024 15:56:56 ralf_b
NotSolved
13.06.2024 17:49:52 Michael
NotSolved
13.06.2024 19:08:00 ralf_b
NotSolved
14.06.2024 14:32:57 Michael
NotSolved
15.06.2024 01:47:09 ralf_b
NotSolved

Ansicht des Beitrags:
Von:
Michael
Datum:
13.06.2024 10:44:53
Views:
86
Rating: Antwort:
  Ja
Thema:
movenext funktioniert nicht

Hallo zusammen,

ich habe eine kleine Routine, die ich im Prinzip schon x-fach in meinem Programm so oder so ähnlich nutze, aber in der konkreten Ausführung funktioniert MoveNext nicht. Ich habe eine kleine sql-routine, die ich anschließend mit einer Do-Until-Loop Schleife durchlaufen und dabei mit MoveNext die einzelnen Datensätze ansprechen möchte. In dem konkreten Beispiel hat die Datei (QBamfUmstufung) 3 Datensätze. So sieht der Quelltext aus:

 

Private Sub Befehl44_Click()

Dim db As Database

Dim iCount As Integer

Dim rs As DAO.Recordset

Dim sTest As String

Dim sAss As String

 

Set db = CurrentDb

Set rs = CurrentDb.OpenRecordset("QBamfUmstufung", dbOpenDynaset)

rs.MoveFirst

iCount = DCount("teTyp", "QBamfUmstufung") '3

rs.MoveFirst

 

Do Until rs.EOF

      sTest = sTest + teTyp + "  " + Str(teDatum) + "  " + teErgebnis & vbCrLf

       sAss = tenote

      MsgBox "Vor " + Str(teNr)

      rs.MoveNext 'bleibt immer auf dem gleichn DS stehen??

      MsgBox "nach " + Str(teNr)

Loop

 

rs.Close:  Set rs = Nothing

Set db = Nothing

 

End Sub

 

Für eine Idee, warum MoveNext nicht den jeweils nächsten Datensatz aufruft, wäre ich sehr dankbar.


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

Thema Datum  Von Nutzer Rating
Antwort
Rot movenext funktioniert nicht
13.06.2024 10:44:53 Michael
NotSolved
13.06.2024 15:56:56 ralf_b
NotSolved
13.06.2024 17:49:52 Michael
NotSolved
13.06.2024 19:08:00 ralf_b
NotSolved
14.06.2024 14:32:57 Michael
NotSolved
15.06.2024 01:47:09 ralf_b
NotSolved