|
| |
|
Add Dated and Signed Notes to a Memo Field |
| |
|
To add dated and signed notes to a memo field, you can add the
following code to the OnClick property of a Command button, or
alternatively to the OnEnter property of the Memo box itself:
|
If Not (IsNull(Me!ContactNotes)) Then Me!ContactNotes = Format(Date,
"m/d/yy") & " (entered by " & DLookup("[stafffirstname]", "staff",
"[staffid]=forms!login!staffid") & " " & DLookup("[stafflastname]",
"staff", "[staffid]=forms!login!staffid") & "): " & vbCrLf &
ContactNotes
If (IsNull(Me!ContactNotes)) Then ContactNotes = Format(Date, "m/d/yy")
& " (entered by " & DLookup("[stafffirstname]", "staff", "[staffid]=forms!login!staffid")
& " " & DLookup("[stafflastname]", "staff", "[staffid]=forms!login!staffid")
& "): "
|
ContactNotes is the memo field
Login is a form that opens at Startup, records a user name (and checks
it against a password, as explained in "Password-protect
a form".
Staff is a table with Staff data.
|
|