I'm creating a word document from Access, using bookmarks, and save the document when it's first created. However, the user may then update the word document with additional information a the Access record with additional information. How can I get the bookmarks to refresh in the word document when the user clicks on the link to open the word document without erasing any additional information they've typed into the word document by hand?
View RepliesHello friends, I have a good question for you.
I have a form in Access with a check box named chk1.
On the same form I have a code that export my data to a template in MS Word. I use bookmark to export my access data. No problem with regular data but cannot handle checkboxes. Basically I need help to export the check box value (yes or no) into a check box places in my word template. In this template I have a checkbox. If I doulble click in to it I get a window which allows me to bookmark the checkbox but when I export the access data, I will get a YES or NO priot to the checkbox in word. Is there any way I can solve this problem?
This is a sample of my code:
objWord.ActiveDocument.Bookmarks("chek1").Select
If Err.Number = 0 Then
objWord.Selection.Text = Me.chek1
Else
Err.Number = 0
End If
Is the probkem in the Selection.text?
Thank you.
I have been trying to get this to work but without success.
My original source was [URL] ....
The code looks good apart from the fact that the Inspector was not Dimensioned. Anyway, here is my code which fails as the error message is that objSel is not set.
Code:
Dim MyOutlook As Outlook.Application
Dim MyMail As Outlook.MailItem
Set MyOutlook = New Outlook.Application
Set MyMail = MyOutlook.CreateItemFromTemplate(DLookup("TemplateFolder", "Company Details") & "eMail Template bm4.oft")
MyMail.To = strTarget
MyMail.Subject = "Test"
[Code] .....
How to match 4 character word or number or combination by identical 4 characters word or number or combination in one word have 10 or 15 characters.
I have to two separate tables (Table A and Table B). Table A has one column (Tag No) and Table B has about 15 columns with one column name Tag No as below
Table A
Table B
Tag No
Tag No
2009
ZZZ-2030-DC
2010
ZZZ-2010-M9P
[code]....
They're both in MS Access.I am trying to match 2 tables - columns (Tag No) with join query, but not success. I want to match 4 characters in Table-A with 4 similar characters in Table-B (Tag No) cell.What query is suitable to compare two tables.
My end goal is to populate a pre-existing table in an MS Word document with records from a query. The easiest way I've found (through scouring the internet) is to start with the code below (ran during OnClick() even in Access) to get the table the same size as the recordset:
Code:
Dim wDoc As Word.Document
Dim wTable As Word.Table
Dim wCell As Word.Cell
Set wDoc = appWord.Documents.Add(strDocLoc)
wDoc.Visible = True
[Code] ....
The code will shrink the table down just fine if the table has more rows than the recordset +1 (for header column). My hangup with this is the last line ("Selection.InsertRowsBelow 5") isn't executing; rows are not being added to the table. I get no errors -- it just does nothing. I set it as "Selection.InsertRowsBelow 5" arbitrarily just to see if it would even add rows, and sure enough it's not.
I have a form that has combo boxes and text fields (as well as sub forms). There is also a button linked to some code that says'
Private Sub cmdQuote_Click()
'Creates quote date and prints quote
Me.QuoteDate = Now()
Me.cbAgentID.Requery
DoCmd.OpenReport "Quote", acViewPreview, , "BookingID = " & Me.BookingID
End Sub
When the button is pressed the QuoteDate field (it is bound) should be be populated, but unfortunately it is not. I have played with refresh and requery but cannot derive a solution.
Hi,
I am exporting a table to word and I have come across a problem.
My code opens a template, creates a table with the correct number of rows and columns at a certain position, and then adds data to it.
At this point, everything is fine. But, here is where the problem sticks its ugly head out. I am modifying the column widths and every other time I run it, it crashes, saying something about not being able to access the remote server. Run time error 462.
I have checked in the task manager that word is being quit properly each time and tried going to different templates.
The first time I run it, it runs fine. The second time, it crashes on the line where I change the width. Here is the line of code.
mytable.Columns(1).Width = InchesToPoints(1.2)
I have found that if I close the document after it is created and leave word open, it will run fine.
I think I am in the same boat as mrpauly. But his post date is 23rd April 2001…
http://www.access-programmers.co.uk/forums/showthread.php?t=26363
Has anyone else seen or heard anything like this? I’m really confused…
Thanks for any help anyone can give.
Hello,
I made a database application and i need some help: in the application i use a script that modifies word documents by opening ms word application, but some customers don't want to install ms word. I'm asking if someone knows tto exist some kind of word runtime that i can modify word documents without having word installed. I'm using also vb6.
Thanks!!!!
and I want to write in some places
I know to open the word
and write in to the word
to write in to word:
Dim objWord As Word.Application
Set objWord = CreateObject("Word.Application")
objWord.Visible = False 'True is visible
objWord.Documents.Add ("C:DocumentsTest.dot")
objWord.ActiveDocument.Bookmarks("bmCusDetails").Select
objWord.Selection.Text = Forms![a]![b]
objWord.Visible = True
but how am I write in a special place?
thanks alot, and sorry on my english
Exporting datasheet to word, how is this possible using vb. Actually, I do have a thread in Form forum. But, I think not a lot of people visit that place. Anyways, I have created bookmarked and used datavariable to export the data (by ansentry's help). But the only thing that it exports is just one selection on that datasheet, instead of all the chosen rows.
I am exhausted now after searching everywhere, and not finding a clue. How to resolve that situation. If there is an example that I can use, that would be gr8.
Thanks In Adv.
Right the thing is i can export my reports to word but when they export they don't hold the lines that i placed around the text boxes, this is becoming quite annoying as the reason i put the lines around the boxes,was so when the report is output it looks like the original.
Help please!!
Im having a problem getting this code to work.
It is meant to fire up Word (which it does), open up a new doc based on the template (which it also does) and then populate a field in the doc with data from the query table (which it doesn't).
I've put the fields in the Word doc via firstly, defining them as Custom Document Properties in the File, Properties box, and then as "{ DOCPROPERTY "<fieldname>" *MERGEFORMAT }" codes in the text.
The field in the Word doc is type 'text' and the field in Access is type 'text', so I am stumped by the "Type Mismatch" error it gives when attempting to get/open the recordset.
It hasnt even got to transferring the values across to the doc.?
Ive not done this before (Access newbie) and even found creating the custom fields in Word not as straighforward as I expected!
Please can someone help?
Private Sub butDocPreview_Click()
Dim dbs As Database
Dim objDocs As Object
Dim objWord As Object
Dim prps As Object
Dim rst As Recordset
Dim strClient As String
Dim strAccountManager As String
On Error Resume Next
Set objWord = GetObject(, "Word.Application")
If Err.Number = 429 Then
'Word is not running; creating a Word object
Set objWord = CreateObject("Word.Application")
Err.Clear
End If
On Error GoTo cmdWord_ClickError
DoCmd.SetWarnings False
'Open query..
DoCmd.OpenQuery "qryClientDocHdr_Export"
intCount = DCount("*", "tmpClientDocHdr")
Debug.Print "Number of Text items: " & intCount
' Check that there is at least one line..
If intCount < 1 Then
MsgBox "No text to process; cancelling"
Exit Sub
End If
Set dbs = CurrentDb
'==stops here with "Type Mismatch" error==
Set rst = dbs.OpenRecordset("tmpClientDocHdr", dbOpenDynaset)
With rst
strClient = Nz(![Client])
strAccountManager = Nz(![AccountManager])
End With
rst.Close
...
...
...
To queries here:
Database is the MS Contacts Template with minor adjustments.
1. Trying to insert a link to an image using a bound OLE object in my form. Now I've got it top work. However, the link appears normal size in the centre of the object box. Problem is when I resize the oject box so that llink text just fits fine. The text resizes with the box and you need a microscope to read it.
2. I want to be able to cerate merged letter but I cant select Tools>Merge it with MS word fro some reason (i've aslo tried with with DB's we use in work with same problem) but publish with Word is available.:confused:
I am by no means an expert with Access so please, please post replies in lamens terms.
Thanks,
Marc
Hi,
This is my First post - so please be kind. I'm quite new at coding things and have learnt almost every thing from this forum so far by search old posts but can't find the answer to the below. I know how frustrating it must be to answer the same question over and over again so if this has been answered before please accept my appologies and if you could direct me to the old post I'll pick it up from there.
I have managed to get my DB to output to Excel using the below code:
Set Xl = CreateObject("Excel.Application")
Xl.Visible = True
Xl.Workbooks.Open ("C:TEMPPACLPACL - Blank") ',,True
Xl.range("C8").Value = [Text78]
Xl.range("C9").Value = [tender name]
Xl.range("C10").Value = [Request Number]
Xl.range("F10").Value = [Accepted offer]
Xl.range("C14").Value = [Site Status]
Xl.range("C16").Value = [Accepted offer SPO]
Xl.range("C17").Value = [Type]
Xl.range("C19").Value = [Mpan]
Xl.range("C20").Value = [HH MOP]
Xl.range("C32").Value = [Payment Terms]
Xl.range("C13").Value = [No of sites]
Xl.range("C4").Value = [Text173]
Xl.range("A47").Value = [Additional comments]
I now need to do the same for word;
I have managed:
Dim oApp As Object
Set oApp = CreateObject("Word.Application")
oApp.Visible = True
oApp.Documents.Open ("C:TEMPQuatation") ',,True
but I have no idea how to get the info held in field [tender name] in my database into the Ln 5, col 10 in my word document.
I hope this makes sense, any help will be greatly received as I am very new at this and very eager to learn.
i've a question.
is there a way to associate a word document to a table entry?
i would like to create a database of microsoft word files where you can search for a certain keyword that is linked to a word document. is there a way to do this?
Im new here so Hi!My name is jitze de wilde. Im from the netherlands. Im 21. I work at www.visualmedia.nlOn my current asignment im collecting data on all the business in the local area.I aquired alot of information and there are bount to be duplicates. now my question. Is there a way in Access to fish out duplicate items or records (dont know the name)?example:I enter the following data.Kreeft Holding B.V.Agarica B.V.S.I.T. Controls B.V.Robatechniek B.V.Mannak Techniek B.V.Kip Caravans B.V.Van Venrooy B.V.Robatechniek B.V.In the list Robatechniek B.V. exists twice. Is there a way access will prompt a message "item already exists" or something like that?
View 7 Replies View RelatedHi there
I have a table in my database with a field called description. Imagine if one of my discriptions is "I learn a lot in access world forums". I need a query that if I look only for a word "access" will retrieve this discription. Is this possible to be done in access?
Thanks
How do I Pubish a from from access into word using a word template i have created? and not just into a blank word document?
View 1 Replies View RelatedOkay, m sorry to bring this topic up again!
I have created this command button from tools that output the access report into word file. However, it prints all the record into word file, is there a way that it would print one record or selective record at a time. I mean, lets just say if I am on record 3 after I am done I press the button and I don't want it to output 1 to 3 record just the 3rd one. Is it possible to do it like that or not?
Okay, I searched prolly even hit my head over the keyboard several times to find something resourceful in context to what I am looking for. But I didn’t, if there is something out there and it didn’t appear during my search or I missed it by any chance. Then accept my apologies. Now here is the question.
I have a master form and a subform, now I am able to send my master form to word, and my subform is in the form of datasheet. And this datasheet has a combo box, so the user can select as my options as they want. I want these options to export to word with the master form. I tried doing that through doc variable and also as book mark, but the only thing that’s transferring is the first field. I know couple of ppl went through the same trouble to achieve the same goal as me. And they asked the same question but their queries were un-answered, is it something that can not be done??? I am sure there has to be a way to do this; I am looking for some assistance here. That I will really appreciate.
I know I have a topic going on for a while now, about the same topic. But seem like there is no point of bringing that thread up over again, and it’s kind of dead.
Okay, I searched prolly even hit my head over the keyboard several times to find something resourceful in context to what I am looking for. But I didn’t, if there is something out there and it didn’t appear during my search or I missed it by any chance. Then accept my apologies. Now here is the question.
I have a master form and a subform, now I am able to send my master form to word, and my subform is in the form of datasheet. And this datasheet has a combo box, so the user can select as my options as they want. I want these options to export to word with the master form. I tried doing that through doc variable and also as book mark, but the only thing that’s transferring is the first field. I know couple of ppl went through the same trouble to achieve the same goal as me. And they asked the same question but their queries were un-answered, is it something that can not be done??? I am sure there has to be a way to do this; I am looking for some assistance here. That I will really appreciate.
I know I have a topic going on for a while now, about the same topic. But seem like there is no point of bringing that thread up over again, and it’s kind of dead.
Hey all! :cool:
I have a question to ask you all. This has been killing :( me I have not been able to find an answer. :confused:
Lets say I have a form open. In this form, there are text boxes that have a persons name, address, an account number, and phone number. This part is the easy part.
Now, what I would like to do is some how when you click on the account number, (it doesn't have to be a link) it will open up another form that shows available Word Documents for only that account number.
Different account numbers will have different Word Documents available to them. When this new form opens, then the user can pick a Word Document that is available to them.
Please help! Your help would mean a lot! :)
Boy am I frustrated.
I have searched the forums for similar problem but I was unable to find it.
I have some buttons that export the data from a form into a Word Document. It generally works but there are some issues.
I have Access 2003 but the people using it only use the runtime version of Access and the environment is Office 2000.
I have copied code from other examples and maybe missing something that is causing the issues.
1. When I export the record it is causing problems with the Normal.dot template. When I try to close Word it keeps asking me that I have modified that template. After pressing Cancel button twice it the save box disappears.
2. When I leave the code Dim objWord As word.Application I get an error message about a compile error User defined Type not defined.
2. When the users try to export a record to the specific word template I
created and a required field is empty an error message is displayed and then closes the application.
Any help will be appreciated. I am a newbie when it comes to code.
Sample code is below.
Private Sub Command1079_Click()
Dim objWord As word.Application
'Start Microsoft Word 2000.
Set objWord = CreateObject("Word.Application")
With objWord
'Make the application visible.
.Visible = False
'path and name of the template your are using.
' objWord.Documents.Add ("U:Asset Strategy and Commercial PropertyCommercial PropertyTaskmasterletterofobjection.dot")
.Documents.Open ("C:Documents and SettingsDadMy DocumentsWorkTaskmasterletterofobjection.dot")
'This is for the bookmark that you created in the template
.ActiveDocument.Bookmarks("bmSubject").Select
Selection.Text = Forms![frmTaskMaster_LeaseManagement]![Subject]
.ActiveDocument.Bookmarks("bmCurrentRent").Select
.Selection.Text = Format(CCur(Forms![frmTaskMaster_LeaseManagement]![CurrentRent]), "Currency")
.ActiveDocument.Bookmarks("bmVendetails").Select
.Selection.Text = Forms![frmTaskMaster_LeaseManagement]![VenDetails]
.ActiveDocument.Bookmarks("bmDateNotice").Select
.Selection.Text = Format(CDate(Forms![frmTaskMaster_LeaseManagement]![RentNotice]), "dd mmmm yyyy")
.ActiveDocument.Bookmarks("bmRentReviewDate").Select
.Selection.Text = Format(CDate(Forms![frmTaskMaster_LeaseManagement]![ReviewDate]), "dd mmmm yyyy")
.ActiveDocument.Bookmarks("bmAskingRent").Select
.Selection.Text = Format(CCur(Forms![frmTaskMaster_LeaseManagement]![AskingRent]), "Currency")
End With
Print_Reconsideration_Err:
'If a field on the form is empty, remove the bookmark text, and
'continue.
If Err.Number = 94 Then
.Selection.Text = ""
Resume Next
End If
objWord.Application.Options.PrintBackground = False
objWord.Application.ActiveDocument.PrintOut
End Sub
Looking for a way to count the number of pages in a word document (while in MS Access)
Also looking to delete a page of Word while in Access.
Hi does anybody know if there is a way to import data from a word
template to fields in an access database? any help will be greatly appreciated!
thanks, Treasa
Is one better than the other to get information into Word Documents
Using access to control word and use mail merge (can I set up the data source for the word document from access...how?)
-or-
Using access, fill in bookmarks created in Word
I have about 30 word documents from a real estate company that they want data from the database merged into the word documents. Too much formating in the word documents to use access report. Any suggestions?