uhrzeit

[clannad]

hallo,


ich habe nun das erste mal versucht lotusscript anzuwenden. und zwar habe ich einen button gemacht, auf dem uhrzeit steht - wenn ich diesen button klicke so soll er die uhrzeit ausgeben.

ich befinde mich in der option click und habe folgendes eingegeben

Sub Click(Source As Button)
     Dim s As NotesSession
     Dim db As NotesDatabase
     Dim view As NotesView
     Dim doc As NotesDocument
     Dim item As NotesItem
     Set item = doc.GetFirstItem( "DateComposed" )
     Set dateTime = item.DateTimeValue
     
End Sub


doch da kommen viele fehlermeldungen.
was ist daran verkehrt?

[Axel]

Hi,

du hast einige Objektvariablen vergessen. Ändere deinen Code wie folgt ab.

Sub Click(Source As Button)

Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim item As NotesItem
Dim dateTime As NotesDateTime

Set uidoc = workspace.CurrentDocument
Set doc = uidoc.Document
Set item = doc.GetFirstItem( "DateComposed" )
Set dateTime = item.DateTimeValue
 
End Sub

Axel

[clannad]

ich danke dir schon mal, aber es kommt noch immer das die objektvariablen nicht gesetzt sind...

ich hab das ganze jetzt mal so gemacht

     Set item = doc.GetFirstItem( "uhrzeit" )  
     Set notesItem.DateTimeValue = notesDateTime

doch hier kommt dann: variant does not contain an object ...

fehlt da noch die ausführung?

[Axel]

Hi,

wo befindet sich denn der Button, in einer Ansicht oder einem Dokument ?

Axel

[clannad]

der button ist in einem dokument ...

[Axel]

Hi,

dann sollte mein Code funktionieren. Eigentlich weise ich allen notwendigen Variablen ein Objekt zu.

Das einzigste Unsicherheitsfaktor ist die Zeile:

Set item = doc.GetFirstItem( "DateComposed" )

Hier muß ein gültiger Feldname übergeben werden. Gibt es bei dir das Feld "DateComposed" ?

Schau auch mal mit dem Debugger, an welcher Stelle er den Fehler bringt.

Axel

[clannad]

ich habe das problem jetzt einfach mit

Msgbox "Beim nächsten Ton ist es " + Now gelöst

danke!