Welcome to SPN

Register and Join the most happening forum of Sikh community & intellectuals from around the world.

Sign Up Now!
  1. Guest ji, please consider donating today!   Become a Supporter    ::   Make a Contribution   
    Monthly (Recurring) Target: $300 :: Achieved: $95

Merge doc from Access - need to revise

Discussion in 'Information Technology' started by Donna G, Jul 28, 2006.

  1. Donna G

    Donna G
    Expand Collapse
    Guest

    Created access database; merged to a word doc and saved as "document 1"; the
    new document has hot links to another new word "document 2". Want to add
    entries to database and have them show up in the already-merged document 1.
    Can then create a link to document 2. How can I do this? Thank you for any
    help you can provide.
     
  2. Loading...


  3. Albert D.Kallal

    Albert D.Kallal
    Expand Collapse
    Guest

    I have a nice working example that does just as you ask....

    Try downloading and running the "super easy word merge"


    http://www.members.shaw.ca/AlbertKallal/msaccess/msaccess.html

    Read the instructions on that web site...it explains how to use the above
    example in your code. In fact, many people have written me, and stated that
    they did not know how to program, but were able to run the above in their
    application. Give it a try.....

    --
    Albert D. Kallal (Access MVP)
    Edmonton, Alberta Canada
    pleaseNOOSpamKallal@msn.com
    http://www.members.shaw.ca/AlbertKallal
     
  4. bobbyz

    bobbyz
    Expand Collapse
    Guest

    Hi Albert,

    Thanks for the code, I think it will do exactly what I am looking for.
    However, I get a:

    Run-time error '438':
    Object doesn't support this property or method

    when clicking the command button on the line :

    f InStr(vText, Chr(34)) > 0 Then

    in the function:

    Function qu(vText As Variant) As String
    ' takes a string and surrounds it with double quotes
    ' All " (double quotes) are converted to ' (single quotes) before
    ' this is done

    If IsNull(vText) = False Then
    If InStr(vText, Chr(34)) > 0 Then
    vText = strDReplace(CStr(vText), Chr(34), "'")
    End If
    End If

    qu = Chr$(34) & vText & Chr$(34)

    End Function

    I have gone over the instructions several times and can not seem to
    resolve this issue, any suggestions?

    Thanks,
    Bobby
     
Since you're here... we have a small favor to ask...

More people are visiting & reading SPN than ever but far fewer are paying to sustain it. Advertising revenues across the online media have fallen fast. So you can see why we need to ask for your help. Donating to SPN's is vote for free speech, for diversity of opinions, for the right of the people to stand up to religious bigotry. Without any affiliation to any organization, this constant struggle takes a lot of hard work to sustain as we entirely depend on the contributions of our esteemed writers/readers. We do it because we believe our perspective matters – because it might well be your perspective, too... Fund our efforts and together we can keep the world informed about the real Sikh Sikhi Sikhism. If everyone who writes or reads our content, who likes it, helps us to pay for it, our future would be much more secure. Every Contribution Matters, Contribute Generously!

    Become a Supporter      ::     Make a Contribution     



Share This Page