I would like to create a control that would put the current date at the top of a memo field each time a user clicks on the control.

Any information would be greatly appreciated

Why would you want to put a date in a memo field? just put a date in a date field and if you need to append the date to the memo field at run time, do that instead.

dates go in date fields.



Sal

An usual request but ....

Option Compare Database
Option Explicit

Sub AddDateToMemo()
Dim TheMemo As String
Dim Db As DAO.Database
Dim Rs As DAO.Recordset
Set Db = CurrentDb
Set Rs = Db.OpenRecordset("memos")

Do
TheMemo = Rs!memofld1 ' get the current memo
With Rs
  .Edit
  !memofld1 = CStr(Now()) & "__" & TheMemo ' update the memo
  .Update
  .MoveNext
End With

If Rs.EOF Then
   Exit Do
End If
Loop

End Sub


Dave