Insert small memo to a Notes field

  • Thread starter Thread starter Frank Situmorang
  • Start date Start date
F

Frank Situmorang

Hello,

This is my updateQuery in order to update the Notes on member. How can we
make it in the middle of the road there is a message box that says: " Notes
taken by: then we type " John", then it adds to each end of note " Notes
taken by John"

Thanks for any help.
 
Thanks Arvin for your response.

What I meant is that in the midde of the process of this query:
Private Sub MemberNotesUpdate_Click()
On Error GoTo Err_MemberNotesUpdate_Click

DoCmd.SetWarnings False 'Turn messages back OFF
DoCmd.OpenQuery "Qry_UpdateCatatan", acNormal, acEdit
'Add your other query here
DoCmd.SetWarnings True 'Turn messages back ON


Exit_MemberNotesUpdate_Click:
Exit Sub

Err_MemberNotesUpdate_Click:
MsgBox Err.Description
Resume Exit_MemberNotesUpdate_Click
End Sub

Waht we want is that there is a messagbox that prompt awaiting our manual typing ( not using the user login name). I as a secretary will type any name.

The next time I received a data from Pastor B for example then I will type Pastor B in the message box and thie end of his note at the bottom there is His Name.

I have created a button to run the above query.

I appreciate again your help

Frank



Arvin Meyer [MVP] wrote:

You can add a button to the form which does:Sub cmdMyButton_Click()Me.
11-Jan-10

You can add a button to the form which does

Sub cmdMyButton_Click(
Me.NotesField = Me.NotesField & vbCrLf & "Notes taken by: "
fOSUserName(
End Su

FOSUserName () function is at

http://www.mvps.org/access/api/api0008.ht
-
Arvin Meyer, MCP, MV
http://www.datastrat.co
http://www.mvps.org/acces
http://www.accessmvp.com

Previous Posts In This Thread:


Submitted via EggHeadCafe - Software Developer Portal of Choice
..NET Compact Framework Missing DataTable .Copy()
http://www.eggheadcafe.com/tutorial...14-841b27bdddb2/net-compact-framework-mi.aspx
 
Back
Top