Pass value from one form to another form.

[troyu]

Hi, I am trying to pass the "sent" value from one form to a user-defined field in a 2nd form. The value that I get in the 2nd form is

Fri 12/29/1899 12:00 AM

This is not correct. Any ideas why this value, and not the correct value is being passed? Code snipit below:

Sub cmdconfirm_click
Set MyNameSpace = Application.GetNameSpace("MAPI&quot
Set PublicFolders = MyNameSpace.Folders("Public Folders&quot
Set AllPublicFolders = PublicFolders.Folders("All Public Folders&quot
Set MyFolder = AllPublicFolders.Folders("Product Recalls&quot
Set MyItem = MyFolder.Items.Add("IPM.Post.Confirmed&quot
MyItem.Subject = "After Hours Product Advisory Confirmation"
MyItem.UserProperties.Find("OrigSentTime&quot.Value = Item.Sent
MyItem.Post
Item.Close 1
End Sub

 

[JustinEzequiel]

Uninitialized date variables default to
Dec. 30, 1899 12:00 AM on my machine


Dim dDate As Date
Debug.Print Format$(dDate, "Ddd MM/DD/YYYY HH:NN AM/PM&quot

returns "Sat 12/30/1899 12:00 AM"

 

[troyu]

Thanks Justin, appreciate the reply. I think I got it working another way however:

MyItem.UserProperties.Find("OrigSentTime&quot.Value = Item.Sent

should be:

MyItem.UserProperties.Find("OrigSentTime&quot.Value = Item.SentOn

The only change needed was that I needed to use "SentOn" instead of "sent".