Einfügen von null-Wert-Datum-Feld in access mit vba

Bin versucht, das Datum aus einer Tabelle zu einer anderen Tabelle mit vba in access, Aber eine der Datum-Werte aus der Tabelle leer ist. Also beim einfügen des Datums in eine neue Tabelle es zeigt Ungültige Verwendung von null Ausnahme Laufzeitfehler 94.

InformationsquelleAutor Cherry | 2014-10-29
  1. 1

    Wenn das schreiben von DAO-code zum löschen des Datum-Feldes, ich fand, dass ich hatte, zu verwenden "Leer". Null und "" wird nicht funktionieren. Also für Feld dtmDelivery (Typ Datum), ich hatte die Verwendung der folgenden. strDelivery ist nur ein string mit dem Datum in der it.

    Set rst = dbs.OpenRecordset("tblSomething", dbOpenDynaset)
If (strDelivery = "") Then                      
    rst!dtmDelivery = Empty    
Else 
    rst!dtmDelivery = strDelivery
End If

rst.Update
    InformationsquelleAutor Chris Patterson
  2. 0

    können Sie die Verwendung der NZ () - Funktion einen Wert definieren, der verwendet werden sollte anstelle von NULL. Intern wird ein Datum ist ein float-Wert, wo die Zahl steht für die Tage zwischen 01.01.1900 und das Datum, das gespeichert werden soll. Der Teil hinter dem Dezimalpunkt repräsentiert, Stunden/Minuten (.25 zum Beispiel 6 UHR). So können Sie mit der NZ() Funktion zum ersetzen von NULL bei 0 (was würde so interpretiert werden, 01.01.1900).

    Andere Lösung wäre die Konfiguration der Ziel-Tabelle in einer Weise, dass es NULL-Werte zulässt. Sie können dies tun, einfach in die Entwurfsansicht der Tabelle.

    • Ich habe den Pflichtfeld-status auf Nein.Funktioniert immer noch nicht. Und ist es möglich, lassen Sie das Feld als leer, falls kein Wert eingefügt werden?
    • ändern Sie die "requiered" - Eigenschaft des Feldes in der Tabelle design.
    • Vielen Dank für Ihre Hilfe.
    InformationsquelleAutor cboden
  3. 0

    Ich denke, dass ich es herausfinden , deklarieren Sie die variable auf Zeichenfolge. Dann prüfen, ob der Wert aus der Tabelle leer ist, werden dann null zuweisen es.Andere weisen, die weisen Sie den Wert aus der Tabelle.

    beispielsweise

       Dim newdate As String

    Prüfen, ob die abgerufenen Werte null ist oder nicht

       If IsNull(rst![value]) Then
            newdate = "null"
   Else
           newdate = rst![value]
   End If
    InformationsquelleAutor Cherry
  4. 0

    Ich begegnet diesem problem und löste es auf diese Weise.

    SQL = "update mytable set mydatefield = '" & txtdate & "'"

    Auf die txtdate auf Ihre form, setzen Sie ein Datum-format, um sicherzustellen, Datum ist entweder ein real date oder einfach nur leer.

    InformationsquelleAutor Peter Mali
Schreibe einen Kommentar