Forums Neueste Beiträge
 

Leeren Datumswert übergeben

03/03/2010 - 17:43 von Marion Hildebrandt | Report spam
Moin, Moin,
Ich hoffe, es ist meine letzte Frage für heute. Noch ein kleines Problem.
Ich übergebe Daten aus dem Formular Bestellung in den Postausgang. Vor der
Datenübergabe frage ich mit einem PopUp „frmParameterWiedervorlagedatum“
noch das Datum für eine Wiedervorlage ab. Bei der Auswahl besteht natürlich
auch die Möglichkeit kein Datum für die Wiedervorlage auszuwàhlen. Siehe
nachfolgender Code bei Case Else: dateWiedervorlagedatum=Null
Das geht natürlich nicht, weil dann die Fehlermeldung „Unzuverlàssige
Verwendung von Null“ erscheint. (Allerdings bei Anfügeabfragen übergebe ich
immer für ein leeres Datumfeld zBsp. … Null As PADatum…)
Wenn ich Case Else einfach weglasse, wird das Datum „31.12.1899“ übergeben.
Ich möchte natürlich in diesem Fall nur ein leeres Datumfeld im Postausgang.
Muss die Variable „dateWiedervorlagedatum“ vom Typ Datum in einen Leerstring
umgewandelt werden? Und wie würde das in meinem Beispiel aussehen? Ich danke
für eure Hilfe.


Private Sub cmdPostausgang_Click()

Dim dateWiedervorlagedatum As Date
Dim rst As DAO.Recordset

DoCmd.OpenForm "frmParameterWiedervorlage", , , , , acDialog, 2
If IsLoaded("frmParameterWiedervorlage") = True Then
Select Case
Forms!frmParameterWiedervorlage.Form!frmWiedervorlagedatum
Case Is = 1
dateWiedervorlagedatum = DateAdd("d", 3, Me.BSDatum)
Case Is = 2
dateWiedervorlagedatum = DateAdd("d", 7, Me.BSDatum)
Case Is = 3
dateWiedervorlagedatum = DateAdd("m", 1, Me.BSDatum)
Case Is = 4
dateWiedervorlagedatum =
Forms!frmParameterWiedervorlage.Form!txtDatum
Case Else
dateWiedervorlagedatum = Null
End Select
DoCmd.Close acForm, "frmParameterWiedervorlage"
End If

Set rst = CurrentDbC.OpenRecordset("tblPostausgang", dbOpenDynaset,
dbAppendOnly)
With rst
.AddNew

!PADatum = Date
!PAWiedervorlagedatum = dateWiedervorlagedatum
.Update
End With

End Sub

Viele Grüße aus Hamburg
Marion
 

Lesen sie die antworten

#1 Stefan Hoffmann
03/03/2010 - 18:09 | Warnen spam
hallo Marion,

On 03.03.2010 17:43, Marion Hildebrandt wrote:
Und wie würde das in meinem Beispiel aussehen? Ich danke
für eure Hilfe.


Zwei Möglichkeiten:

1. Du deklarierst deine Variable als Variant.
2. Du benutzt IIf(dateWiedervorlagedatum = #1/1/1899#, NULL,
dateWiedervorlagedatum) als Zuweisung.


mfG

Access-FAQ http://www.donkarl.com/
KnowHow.mdb http://www.freeaccess.de
Newbie-Info http://www.doerbandt.de/Access/Newbie.htm

Ähnliche fragen