Here is the code below
It is blowing up when I am trying to change the date field to today’s date (SEE BELOW). It seems like it is expecting string so I tried setting a variable to convert to a string but that didn’t work. Any help would be great
Thanks in advance
John
Dim Session As New NotesSession
Dim Date1 As String
Date1= Cstr(Date$)
If Status1 <> Source.FieldGetText(“QManualSubSection”)Then
Call Source.FieldSetText (“QMDate”,Date1)
Elseif Status2 <> Source.FieldGetText(“QManualSubSectionDesc”) Then
Call Source.FieldSetText (“QMDate”,Date1)
Elseif Status <> Source.FieldGetText(“QManualSection”) Then
Call Source.FieldSetText (“QMDate”,Date1)
End If