View Single Post
  #43 (permalink)  
Old 09-11-07, 15:35
jwalker343 jwalker343 is offline
Registered User
 
Join Date: Jul 2006
Posts: 108
Seperate notes/memos from detail record

something neat i designed and wanted to share...

This code allows you to use a button, that will open another form and reference the memo/notes field of that particular record.

In theory this is easy. however this code is designed so that a single "notes" form can be used for an unlimited number of other forms

example:
you have 4 tables all which have a notes portion

Vendors....Customers....Purchase Orders....Receipts

since they all have a common field "NOTES" you can create a single form named "notes" then use the following code on each of these forms to open the notes form and display the code for that particular record.


in this example frm_memonotes is my "notes" form
Code:
DoCmd.OpenForm ("frm_memonotes")
Forms.Item("frm_memonotes").SetFocus
Forms.Item("frm_memonotes").Form.Caption = me.caption " & [ID] & " MEMO"
Forms.Item("frm_memonotes").RecordSource = "SELECT " & Me.RecordSource & ".ID, " & Me.RecordSource & ".memo, " & Me.RecordSource & ".notes FROM " & Me.RecordSource & " WHERE " & Me.RecordSource & ".ID = " & Me.ID
Forms!frm_memonotes!Text0.ControlSource = "MEMO"
place in a button on any form.
Reply With Quote