There are many ways to learn to code these days. From coding bootcamps like Flatiron School to online courses to totally free beginner resources. The best way to learn to code depends on many factors, but the most important one is you. See what course is best for you.
Solved
Problem accessing MS access database from MS Word
Posted on 2016-08-29
I am using the following code in MS Word to access a MS Access database:
How do I stop these popups? Thanks.
strDatabaseName = "C:\AccessReferences\Patient Information.mdb"
strSQL = "SELECT DISTINCT * FROM Contacts WHERE (([Contacts].[FirstName] & "" "" & [Contacts].[LastName])=""" & strName & """) OR ((Contacts.CompanyName)=""" & strName & """)"
With ActiveDocument.MailMerge.OpenDataSource strDatabaseName, wdOpenFormatText, False, True, True ', , , , , , , , strSQL
GetFaxNumber = ActiveDocument.MailMerge.DataSource.DataFields("FaxNumber").Value
-
8
4
- +1
14 Comments
Active today
<<How do I stop these popups? Thanks.>>
Are there any other processes using the DB besides this one?
Jim.
Are there any other processes using the DB besides this one?
Jim.
Active 2 days ago
The database is open in MS Access. Sometimes I can stop the popups in subsequent calls by closing then reopening MS Access.
BTW: the "WIth" on line 3 of the code was included here in error. It is not in the actual code.
BTW: the "WIth" on line 3 of the code was included here in error. It is not in the actual code.
Active today
Put a stop in the code so you can print out the contents of strSQL. Post the generated string if you don't see the issue.
Active 2 days ago
here is a sample strSQL:
SELECT DISTINCT * FROM Contacts WHERE (([Contacts].[FirstName] & " " & [Contacts].[LastName])="Sa
SELECT DISTINCT * FROM Contacts WHERE (([Contacts].[FirstName] & " " & [Contacts].[LastName])="Sa
Active today
That can't be the actual contents of strSQL. Please put a stop in the code and paste the contents after strSQL has been populated.
Active 2 days ago
This is an actual sample of the contents of strSQL that works at getting the correct results from the Contacts table in the database. I copied it after a code stop after the line:
strSQL = "SELECT DISTINCT * FROM Contacts WHERE (([Contacts].[FirstName] & "" "" & [Contacts].[LastName])="""
strSQL = "SELECT DISTINCT * FROM Contacts WHERE (([Contacts].[FirstName] & "" "" & [Contacts].[LastName])="""
Active 2 days ago
Concatenation is valid in a SQL query.
Here is that SQL string converted to design view:
And here are the results of that SQL string:
Here is that SQL string converted to design view:
And here are the results of that SQL string:
Active today
Yes, concatenation is allowed but we should not be seeing strName in the query so you didn't post the strSQL as the query engine is seeing it. You posted the code that builds it.
Active 2 days ago
strName is not in strSQL when it is sent to Access.
Here is strSQL as sent to Access again:
SELECT DISTINCT * FROM Contacts WHERE (([Contacts].[FirstName] & " " & [Contacts].[LastName])="Sa
Here is strSQL as sent to Access again:
SELECT DISTINCT * FROM Contacts WHERE (([Contacts].[FirstName] & " " & [Contacts].[LastName])="Sa
Active 5 days ago
Try to see whether this helps you:
https://support.microsoft.com/en-us/kb/303257
https://support.microsoft.com/en-us/kb/303257
Active 2 days ago
xtermie,
I don't think that article applies here. I have the latest edition of the Jet Service Pack; I am not getting the error mentioned in the article and as you see, I have no joins in the query.
I don't think that article applies here. I have the latest edition of the Jet Service Pack; I am not getting the error mentioned in the article and as you see, I have no joins in the query.
Featured Post
Squarespace’s all-in-one platform gives you everything you need to express yourself creatively online, whether it is with a domain, website, or online store. Get started with your free trial today, and when ready, take 10% off your first purchase with offer code 'EXPERTS'.
Question has a verified solution.
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Join & Write a Comment Already a member? Login.
The best software application must always have an error handling tool
The most emerging queries of the user is to upload Outlook OST mailboxes to Office 365 account. So, here we will provide the manual as well as an automated solution for to transfer OST file to MS Office 365 in an absolute manner.
Add bar graphs to Access queries using Unicode block characters. Graphs appear on every record in the color you want. Give life to numbers.
Hopes this gives you ideas on visualizing your data in new ways ~
Create a calculated field in a query:
…
Enter Foreign and Special Characters
Enter characters you can't find on a keyboard using its ASCII code ... and learn how to make a handy reference for yourself using Excel ~
Use these codes in any Windows application! ... whether it is a Micr…
Suggested Courses
Course of the Month5 days, 10 hours left to enroll
569 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.