Do While Anweisung funktioniert in Access 2010 nicht mehr

[MatSWN]

Hallo liebe ForumUser,
ich benötige mal wieder Eure Hilfe. Wir haben täglich ein neues Formular zu erstellen (automatisch), in dem zum jeweiligen Datum aus dem Hauptformular in einem Unterformular je Stunde 1 Datendatz erzeugt wird (01:00 bis 00:00). Das wurde bisher in Access 2003 so realisiert.
In der Version von Access 2003 funktionierte das tadellos. Jetzt habe ich alle Tabellen, Abfragen und Formulare per Import in die neue  YX.accdb importiert. Jedoch funktioniert der u.a. Code nicht mehr. Es wäre schön, wenn mir jemand weiterhelfen könnte, ich sage schon einmal danke.


Mat

Public Sub Befehl34_Click()

    Dim Uhrzeit As Date
    Dim counter As Integer
    Dim RS As Recordset
       
        Uhrzeit = Form_frmHeizdampfabgabe.Parent.Datum

        If Form_frmHeizdampfabgabe.RecordsetClone.RecordCount < 24 Then
            Uhrzeit = Uhrzeit + "01:00"

            Form_frmHeizdampfabgabe.AllowAdditions = True

            Do While Form_frmHeizdampfabgabe.CurrentRecord < 24
               
                Set RS = Form_frmHeizdampfabgabe.Recordset
                RS.AddNew
               
                Form_frmHeizdampfabgabe.Uhrzeit = Uhrzeit
                Form_frmHeizdampfabgabe.Uhrzeit.Locked = True
                Uhrzeit = Uhrzeit + "01:00"

            Loop
            Form_frmHeizdampfabgabe.AllowAdditions = False
        End If
       

[bahasu]

Hi,

anbei im Anhang Deine Anweisungen in leicht geänderter Version mit ein paar Kommentaren.
Ist unter a2003 getestet. Ob das dann auch unter a2010 läuft, kann ich leider nicht ausprobieren.

Harald

[Anhang gelöscht durch Administrator]

[database]

Hallo,

setze einen Verweis auf die MS DAO 3.6 Object Library
oder versuch das Recordset mit  Dim RS As DAO.Recordset   zu deklarieren

Danach sollte dein Recordset unter Acc2010 wieder laufen

Ich gehe davon aus, dass du die 32Bit Version im Einsatz hast