VBA Access Laufzeitfehler 440 Automatisierungsfehler

Ich bin mir nicht sicher, was diesen Fehler verursacht und möchte einige helfen, zu verstehen, was Fehler, den ich machte, das Sie verursachte, als auch helfen, oder Vorschläge, wie das Problem zu beheben
Unten ist ein Abschnitt des Codes, dass ich immer die Fehler auf.
Die debug-flags bis auf Zeile 7 "Feb = (Me.BillRate * DayNum) * Me.Util_"

    Set dayRs = db.OpenRecordset("SELECT WrkDays FROM WrkDays ORDER BY WrkMonth;")
    dayRs.MoveFirst
    Set DayNum = dayRs.Fields("WrkDays")
    While Not dayRs.EOF
        Jan = (Me.BillRate * DayNum) * Me.Util_
        dayRs.MoveNext
        Feb = (Me.BillRate * DayNum) * Me.Util_
        dayRs.MoveNext
        Mar = (Me.BillRate * DayNum) * Me.Util_
        dayRs.MoveNext
        Apr = (Me.BillRate * DayNum) * Me.Util_
        dayRs.MoveNext
        May = (Me.BillRate * DayNum) * Me.Util_
        dayRs.MoveNext
        Jun = (Me.BillRate * DayNum) * Me.Util_
        dayRs.MoveNext
        Jul = (Me.BillRate * DayNum) * Me.Util_
        dayRs.MoveNext
        Aug = (Me.BillRate * DayNum) * Me.Util_
        dayRs.MoveNext
        Sep = (Me.BillRate * DayNum) * Me.Util_
        dayRs.MoveNext
        Oct = (Me.BillRate * DayNum) * Me.Util_
        dayRs.MoveNext
        Nov = (Me.BillRate * DayNum) * Me.Util_
        dayRs.MoveNext
        Dec = (Me.BillRate * DayNum) * Me.Util_
    Wend

Ich nehme an, die basieren auf, wie ich gebaut dieser code, dass ich sehr wahrscheinlich eine ähnliche Fehlermeldung auf den code-Zeilen, die Folgen, nach dem "Jan" - Linie. Ich will also verstehen, diese Fehler mehr klar, so dass ich korrigieren kann Zukunft stellen.

UPDATE
Nach der Zusammenarbeit mit Hans zeigte er mir mit dem recordset.getrows-Methode erreicht, die den gleichen Prozess, den ich versuche zu tun, mit weniger Kopfschmerzen. Also, vielen Dank Hans

Ich würde dringend bitten, Sie zu re-Namen Me.Util_. Die Verwendung des Unterstrichs ist sicher, um Probleme zu schaffen, darunter vielleicht die, die Sie zu tun haben.
Ich würde denken, die Linie Set DayNum = dayRs.Fields("WrkDays") gehen muss, INNERHALB der While Schleife.
Leider ist die Mir.Util_ auf einem Feld basiert, habe ich keine Kontrolle auf umbenennen. Können Sie erklären, warum das Set DayNum = dayRs.Felder("WrkDays") - Zeile sollte innerhalb der Schleife?
Da dayRs.Fields("WrkDays") vermutlich ändert sich mit jedem neuen Datensatz, so dass Sie haben, um es frisch.

InformationsquelleAutor Mr. Finn | 2013-12-26

1

Leider, dass insbesondere die Fehlermeldung ist eher Dünn auf details.

Mein Erster Vorschlag ist, deaktivieren Sie diese Zeile ...
```
'Set DayNum = dayRs.Fields("WrkDays")
```
Dann überall dort, wo Sie verwenden DayNum im rest des Codes, die auf das Feld Wert direkt ein.
```
'Jan = (Me.BillRate * DayNum) * Me.Util_  ' use the following instead
Jan = (Me.BillRate * dayRs!WrkDays.Value) * Me.Util_ ' .Value should not be needed here; use it anyway
```
Allerdings bin ich mir nicht sicher, der Vorschlag ist der fix. Wenn es nicht ist,
legen Sie einen Haltepunkt auf die Feb = Linie und untersuchen den status des recordset-Objekts die aktuelle Zeile und die Werte aller Einheiten ...
```
While Not dayRs.EOF
    Jan = (Me.BillRate * dayRs!WrkDays.Value) * Me.Util_
    dayRs.MoveNext
    Feb = (Me.BillRate * dayRs!WrkDays.Value) * Me.Util_ ' <-- set break point on this line
```
In das Direktfenster ...
```
' are we perhaps at EOF already?
? dayRs.EOF
' confirm you still get the same error with this ...
? (Me.BillRate * dayRs!WrkDays.Value) * Me.Util_
' examine the components
? (Me.BillRate * dayRs!WrkDays.Value)
? Me.BillRate
? dayRs!WrkDays.Value
? Me.Util_
```
Hoffentlich, dass der Aufwand wird etwas verraten, das kann dazu führen, zu beheben.
- dayRs ist ein einzelnes Feld des Datensatzes. Funktioniert das mit einem recordset?
- Ich kann nicht aus irgendeinem Grund denken, warum es nicht funktionieren würde, im Allgemeinen, aber dein code verwirrt mich. Die beste, die ich vorschlagen kann, ist versuchen es.
- Ja, die beste, die ich anrufen kann ist es ein Versuch, eine mögliche Lösung. Ich versuche die Sachen, die Sie veröffentlicht jetzt, um zu sehen, was ich kriegen kann arbeiten
- Ok, ich hatte eine Idee, aber ich bin nicht sicher, wie es zu tun. gibt es eine Möglichkeit zum Auffüllen der ein array mit den Werten aus einer Tabelle? denn das wäre viel leichter mein problem zu lösen.
- Bitte versuchen Sie die änderung, die ich vorgeschlagen zuerst. Es sollte ein schneller test. Vielleicht können wir diskutieren Ansätze, die später, wenn nötig.
- Ok, ich habe einige Informationen auf, was Los ist aus den Informationen, die Sie geschrieben "? dayRs.EOF True"
- Auch "? dayRs!WrkDays.Wert", kam zurück mit einem Laufzeitfehler 3021 (kein Aktueller Datensatz)
- Ausgezeichnet!!! Untersuchen Sie das recordset der Datenquelle einer neuen Abfrage in der Access-Abfrage-designer: SELECT WrkDays FROM WrkDays ORDER BY WrkMonth; Vielleicht ist es nur eine Zeile zurückgibt?
- gerade lief die Abfrage und gibt es 12 Einträge in der richtigen Reihenfolge
- Whoa! Dann verstehe ich nicht, wie können Sie wind up auf dayRs.EOF nach nur einem MoveNext aus dem ersten recordset-Zeile. Da bin ich überfragt, zumindest für jetzt. Sorry.
- Was ist, wenn ich mich bewegte dayRs.MoveFirst innerhalb der Schleife? würde das funktionieren?
- lassen Sie uns weiter, diese Diskussion im chat
InformationsquelleAutor HansUp
1

Wenn Sie nur suchen für die Tage (oder Tage) pro Monat, die Sie tun können, besser mit VBA-Datums-Funktionen. Zum Beispiel, info hier.

Ihre Anforderungen werden immer komplexer-vielleicht die Tage für einen Monat durch den Benutzer angegeben ist. In diesem Fall müssen Sie fixieren Sie die Schleife. While...Wend ist die Förderung der cursor durch das recordset, und so ist MoveNext.
```
While Not dayRs.EOF
    ...
    dayRs.MoveNext
    ...
    dayRs.MoveNext
    ...
    dayRs.MoveNext
    ...
Wend
```
Versuchen auskommentieren der While und Wend Linien. Macht den code ausführen die gleichen?
- Ich bin nicht sicher, ich verstehe, was du meinst. mein Verständnis ist, dass die dayRs.MoveNext-Befehl weist das Programm an, sich zu bewegen, um den nächsten Datensatz in der dayRs Recordset. Dies ist ein Bereich, ich hatte eine Menge Probleme mit, mit zu beginnen, so wäre ich sehr interessiert an alternativen Lösungen. Ich muss ziehen eine Reihe von Werten aus der Tabelle, wo das recordset gerichtet ist (das ist baisically arbeiten Tage der verschiedenen Monate) muss ich dann tun, die Mathematik zugeordnet, die Sie auf die Linien zwischen den dayRs.MoveNext bekommen diese zugewiesen. Wenn es einen besseren Weg gibt, um darüber zu gehen im all für ihn.
- Tut WrkDays haben 12 Datensätze? Wenn so, es scheint, Sie wollen, um zu bestimmen, Abrechnung pro Monat. Ich denke, es gibt wirklich einfachere Wege, dies zu behandeln. Ich Frage mich, welche Daten in Util_?
- Seine eine Berechnung der Einnahmen Vorhersagen. Bill-rate ist, was Ihre abrechenbaren Zeit Wert ist. Die "" ist der Platzhalter verwendet VBA für die " % " - symbol wird in der Spalte name. Util ist die % der Stunden, die die als "Fakturierbare" Stunden. so seine Bill-rate * (Arbeitstage im Monat*40) * die % - Auslastung gibt den Vorhersagen der zu erwartenden Einnahmen-Produktion.
- Tut WrkDays haben 12 Datensätze?
- ja nur 12 Datensätze
InformationsquelleAutor Smandoli

Diese arbeiten mit genau 12 Datensätze, oder, wichtiger noch, mehr oder weniger.
Nach einer Zeit können Sie feststellen, dass Sie mehr Datensätze.

   Set dayRs = db.OpenRecordset("SELECT  WrkMonth, SUM( WrkDays )FROM WrkDays GROUP BY  WrkMonth  ORDER BY WrkMonth;")
   dayRs.MoveFirst
   Do While not dayRs.EOF
    DayNum = dayRs.Fields("WrkDays")
    SELECT CASE WrkMonth;
     CASE 1
      Jan = (Me.BillRate * DayNum) * Me.Util_daysRs
     CASE 2
      Feb = (Me.BillRate * DayNum) * Me.Util_daysRs
     CASE 3
      Mar = (Me.BillRate * DayNum) * Me.Util_daysRs
     CASE 4
      Apr = (Me.BillRate * DayNum) * Me.Util_daysRs
     CASE 5
      May = (Me.BillRate * DayNum) * Me.Util_daysRs
     CASE 6
      Jun = (Me.BillRate * DayNum) * Me.Util_daysRs
     CASE 7
      Jul = (Me.BillRate * DayNum) * Me.Util_daysRs
     CASE 8
     Aug = (Me.BillRate * DayNum) * Me.Util_daysRs
     CASE 9
      Sep = (Me.BillRate * DayNum) * Me.Util_daysRs
     CASE 10
      Oct = (Me.BillRate * DayNum) * Me.Util_daysRs
     CASE 11
      Nov = (Me.BillRate * DayNum) * Me.Util_daysRs
     CASE 12
      Dec = (Me.BillRate * DayNum) * Me.Util_daysRs
    SELECT END
   daysRs.movenext
   Loop

InformationsquelleAutor donPablo

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.