Memo Field - Double Click to Add Date.

[Curt Gordon]

I would like to allow the user to double click inside a
memo field and have the current date and time entered
automatically at the cursor point. Does anyone know if
this is possible? This memo field contains comments that
need to be dated as they are entered. The user could
enter the date manually or I could create a more
complicated design with another table, but I was hoping
they could just double click and have the current date
entered for them.

I tried the expression =Now() in the double click
property, but nothing happens.

Thanks,
Curt Gordon

 

[Dan Artuso]

Hi,
Try this amd see if it works for you:

Private Sub test_DblClick(Cancel As Integer)
Dim intStart As Integer
Dim strTemp As String

intStart = Me.test.SelStart
strTemp = Left(Me.test.Text, intStart) & " " & Date & " "
Me.test = strTemp & Mid(Me.test.Text, intStart + 1)

End Sub

 

[Curt Gordon]

Awesome, Thanks a million! It works perfectly.

Curt Gordon