---

Warum kennt MS-Office im speziellen Access in manchen Systemen die Funktion Datum() nicht. Und wie kann man das Problem lösen, wenn Rechner auf die DB zugreifen, die die Funktion zum Teil kennen, zum anderen teil nicht.

MfG kai

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo kai,

darüber hab ich mich auch schon geärgert, probiers mal mit der Funktion.

Public Function GetAccessDate(ByVal vDate As Variant, _
                              Optional ByVal bIncludeTime As Boolean = True) As String
'wandelt beliebige Datumsangaben in ein für Access-Datenbanken gültiges Format um
Dim mDate As Date
  On Error GoTo ErrorHandler
  If IsDate(vDate) Then mDate = CDate(vDate)
  If bIncludeTime Then
'  Datum mit Zeitangabe
    GetAccessDate = "#" & Format(mDate, "mm\/dd\/yyyy hh:mm:ss AM/PM") & "#"
  Else
'  nur Datum
    GetAccessDate = "#" & Format(mDate, "mm\/dd\/yyyy") & "#"
  End If
ErrorHandler:
End Function

HTH pablo

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP