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
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]
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