Duplicate Comment into all records

[Marianna_Air]

Can anyone tell me how to duplicate a comment that will be the same on all records. Right now I have to copy and paste the comment into the comment block of each record.



Thanks

[JoeM]

Have a look at using an Update Query. Access built-in help files can help you create one.

[Marianna_Air]

Thanks, I'm going to take a different approach. I think I'm going to have the note be a part of the email I'm generating to send the report out on

[Missinglinq]

Just so that you know, a simple Update Query, like this, really is simple!

Just execute this statement in code:

Currentdb.Execute "UPDATE YourTableName SET CommentFieldName = 'Whatever your comment is'", dbFailOnError

If it's a one time thing, you can do it from behind a temporary Command Button, or simply go into the Code Module of any Form, enter the line in the Immediate Window (<Ctrl> + <G>) and hit <Enter>.

Linq ;0)>

[Marianna_Air]

I'm going to use this, just not for the email message, I do have a note that needs to be in the body of the report itself that I will use this code for

Thanks again, this will be very helpful to me

Kevin

[Missinglinq]

Glad we could help!

Purely out of curiosity (I have way too much time on my hands!) is the Marianna_Air in your handle related to the facility that rehabs C5 Galaxies for the Air Force?

Linq ;0)>

[Marianna_Air]

Yes it is, funny that you know that, I never heard of the company until I submitted my resume for a job opening about 4 months ago, and I've been in this business for about 20 years 10 of them with Lockheed Martin

[Marianna_Air]

Ok, I must have something wrong in my code, can't get it to run correctly

CurrentDb.Execute "UPDATE Request For Quotes SET RequestforQuotesDescription = 'FULL CERTIFICATION OF MATERIALSPROCESSES, FINISHES, TESTS AND DIMENSIONAL INSPECTION DATA (AS APPLICABLE) AND CERTIFICATE OF CONFORMANCE MUST BE PROVIDED FOR INSPECTION.  ALL SHELF-LIFE LIMITED MATERIALS MUST HAVE AT LEAST 75% OF SHELF-LIFE REMAINING AT TIME OF DELIVERY.  MSDS IS REQUIRED WITH ALL CHEMICALS, SEALS, GASKETS, ORINGS, PACKING, ETC.  MUST BE INDIVIDUALLY PACKAGED AND LABELED WITH CURE DATES PER APPLICABLE MIL STANDARDS.  ALSO, PLEASE NOTE ALL ADDITIONAL CHARGES THAT MAY APPLY.  PLEASE QUOTE FOB CANTONMENT, FLORIDA.  THANK YOU.'", dbFailOnError

[JoeM]

For one thing, if "Request for Quotes" is your table name and contains spaces, it must be put in square brackets, i.e.

CurrentDb.Execute "UPDATE [Request for Quotes] SET ..."

[Missinglinq]

JoeM's guess would be my bet, as well!

Linq ;0)>

[Marianna_Air]

That helped a little, thanks
Now I'm getting a new error 3075 missing operator in query expression

[JoeM]

I always recommend creating the Update Query in Query Builder first and testing it out. When you have it working the way you want, they you can change it to SQL view and copy and paste the code to VBA.

Also, what is the data type of the "RequestforQuotesDescription" field? Is it a "Memo" field?

[Marianna_Air]

Yes, it's a memo field,

I want this memo to show on all records, old and new

Maybe I need to take a different approach?

[JoeM]

Did you try building your Update Query in Query Builder and running it (in a test copy of your database), to see if it works, and if it does copying the SQL code from it into VBA (to ensure you have all your syntax correct)?

[Marianna_Air]

I did do that, and it works, but now I'm not smart enough to figure out were I need to paste it in my VBA
I pasted it to the immidiate window and hit enter to test it not sure if thats correct but I got an error "compile error: excpected end of statement"