Welcome to SPN

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

Sign Up Now!

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
     

Share This Page