VBA MS Access DateAdd Funktion liefert Fehlermeldung

Hallo, Jessika!
<br />>newdate = DateAdd("q",-1,Firstdate) 'Fehlermeldung: Fehler beim Kompilieren: Variable oder Prozedur anstelle eines Moduls erwartet
<br />Die Fehlermeldung besagt, dass du in der Datenbank ein VBA-Modul hast, das den Namen "DateAdd" trägt. VBA-Module dürfen nicht den Namen von eingebauten VBA-Funktionen haben, sonst gibt es einen Namenskonflikt. Also, falls du wirklich ein Modul so genannt hast, dann benenne es um. Am besten gibst du ihm eine der üblichen Vorsilben "bas" oder "mdl". Das vermeidet solche Konflikte ziemlich zuverlässig.
<br />
<br />

Guten Tag,
<br />es hängt leider weiterhin an der DateAdd.
<br />Selbst wenn ich mit folgendem arbeite:
<br />Public Sub Datumanpassen()
<br />Dim newdate as Date
<br />Dim Firstdate as Date
<br />Firstdate = Date 'wegen dem aktuellen Systemdatum, dass klappt auch noch, hab ich durch MsgBox überprüft
<br />newdate = DateAdd("q",-1,Firstdate) 'Fehlermeldung: Fehler beim Kompilieren: Variable oder Prozedur anstelle eines Moduls erwartet, dass ändert sich auch nicht, wenn ich die Datumsnamen mit txt anpasse
<br />End Sub
<br />Gruß Jessika
<br />
<br />

Hallo Jhoch,

Ich bin Michelle und würde mich freuen, Ihnen bei Ihrer Anfrage oder Ihrem Anliegen zu helfen.

Bitte beachten Sie, dass zwei Erklärungen für das ursprüngliche Datum und das neue Datum vorliegen. Msgbox zeigt sie dann beide hier in verschiedenen Zeilen:
sub addingDate()
Dim txtStartDate als Datum
Dim txtEndDate als Datum
txtStartDate = Now 'Oder wo auch immer Sie diese Informationen erhalten
txtEndDate = DateAdd("d", 18, txtStartDate)
MsgBox (txtStartDate & vbNewLine & txtEndDate)
Ende Sub

Das sollte jetzt funktionieren.

Ich hoffe, diese Informationen helfen Ihnen. Wenn Sie Fragen haben, lassen Sie es mich bitte wissen und ich werde mehr als glücklich sein, Sie dabei weiter zu unterstützen.

Bitte beachten Sie, dass diese Antwort automatisch übersetzt wurde. Infolgedessen kann es zu grammatikalischen Fehlern oder seltsamen Ausdrücken kommen.

Alles Gute

Michelle

Diese Antwort ist automatisch übersetzt worden. Daher kann sie grammatikalische Fehler oder fremde Ausdrücke enthalten.
<br />

Hallo Jhoch,

Danke für das Update. Ich teile mit Ihnen dieses Mal die Problemumgehung, die dieses Problem häufig beheben wird, da es scheint, dass dies ein Fehler oder beschädigte Dateien oder Treiber ist.
Wenn eine Office-Anwendung wie Word oder Excel nicht ordnungsgemäß funktioniert, wird das Problem manchmal durch einen Neustart behoben. Wenn das nicht funktioniert, können Sie versuchen, es zu reparieren. Wenn Sie fertig sind, müssen Sie möglicherweise Ihren Computer neu starten.

Repair Office über die Systemsteuerung
Die Schritte für den Zugriff auf das Reparaturtool variieren je nach Betriebssystem. Wählen Sie aus der Dropdown-Liste unten.

Klicken Sie in Windows 8 und Windows 10 (linke untere Ecke) mit der rechten Maustaste auf die Windows-Schaltfläche Start und wählen Sie im Popupmenü Apps und Funktionen aus.

Screenshot des Startmenüs mit Apps und Funktionen
Wählen Sie das Microsoft Office-Produkt aus, das Sie reparieren möchten, und wählen Sie Ändern aus.

Hinweis: Dadurch wird die gesamte Office-Suite repariert, auch wenn es sich nur um eine Anwendung handelt, die Sie reparieren möchten, z. B. Word oder Excel. Wenn Sie eine eigenständige App installiert haben, suchen Sie nach dieser Anwendung anhand des Namens.

Je nachdem, ob es sich bei Ihrer Office-Kopie um eine Klick-und-Los- oder MSI-basierte Installation handelt, werden die folgenden Optionen angezeigt, um mit der Reparatur fortzufahren. Führen Sie die Schritte für Ihren Installationstyp aus.

Klick-und-Los

Wählen Sie im Fenster Wie möchten Sie Ihre Office-Programme reparieren, Onlinereparatur > Reparatur aus, um sicherzustellen, dass alles repariert wird. (Die schnellere Schnellreparaturoption ist ebenfalls verfügbar, erkennt und ersetzt jedoch nur beschädigte Dateien.)

MSI-basiert

Wählen Sie unter Installation ändern die Option Reparieren aus, und klicken Sie dann auf Weiter.

Folgen Sie den Anweisungen auf dem Bildschirm, um die Reparatur abzuschließen.

Hinweis: Diese Antwort wurde automatisch übersetzt. Infolgedessen kann es zu grammatikalischen Fehlern oder seltsamen Ausdrücken kommen.

Ich hoffe, diese Informationen helfen Ihnen. Wenn Sie Fragen haben, lassen Sie es mich bitte wissen und ich werde mehr als glücklich sein, Sie dabei weiter zu unterstützen.
Wenn die Antwort hilfreich ist, klicken Sie bitte auf "Als Antwort akzeptieren". Vielen Dank und genießen Sie Ihren Tag.

Alles Gute

Michelle

Diese Antwort ist automatisch übersetzt worden. Daher kann sie grammatikalische Fehler oder fremde Ausdrücke enthalten.
<br />

Hallo,
<br />vielen Dank für ihre Antwort. Ich hatte mir das tatsächlich versehentlich als Notiz erst so abgespeichert und es dann nicht mehr gecheckt.
<br />Jetzt funktioniert es auch bei mir.
<br />Mit freundlichen Grüßen
<br />Jessika
<br />