Dann sollte das wohl die Lösung sein?
Zitat:
jo, und wenn es kein
187 Set item = me_doc.GetFirstItem( "DateCreated" )
gibt, dann geht der Code eine Zeile später ( 188 ) auf die Bretter.
Also ersetze mal die Zeile 187 durch den folgenden Block
If me_doc.HasItem ("DateCreated") Then
Set item = me_doc.GetFirstItem( "DateCreated" )
Elseif me_doc.HasItem ("ComposedDate") Then
Set item = me_doc.GetFirstItem( "ComposedDate" ) <-- Zeile 188
Else
Set item = me_doc.GetFirstItem( "DeliveredDate" )
End If
Das, was du da hast ist irgendwie ein uraltes Codeframent