[ask] Import Data From Ms Word To Ms Access Via Macro

[superChaos]

hi, i'm trying to make macro in ms word..
the idea is ...
everytime i push/select save button in ms word, the name and path of current document will automaticly saved to ms access...

this far.. i already succeed to make this macro triggered every time i select "save" on ms word, but about the data .. failed !
i can't append/add the data to ms access.

please help me..
thanks before

[FishVal]

hi, i'm trying to make macro in ms word..
the idea is ...
everytime i push/select save button in ms word, the name and path of current document will automaticly saved to ms access...

this far.. i already succeed to make this macro triggered every time i select "save" on ms word, but about the data .. failed !
i can't append/add the data to ms access.

please help me..
thanks before

Hi, there.

You can establish connection with database from word document and add new record to a table via recordset or SQL command.

[superChaos]

Hi, there.

You can establish connection with database from word document and add new record to a table via recordset or SQL command.

yup... thx for your help.
i'm still wondering, how this SQL statement is writen into my macro.. please correct my macro below ( because every time i try it.... pop up error always occur )

Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim strSQL As String
Dim strPath As String
Dim Doc As Document

Set Doc = ThisDocument
strSQL = "INSERT INTO TPath ( Nama, Path, Keterangan ) VALUES (Tes3, TesPath3, KeteranganPath3)"

strPath = "C:/Access/myDB.mdb"

'Update path to database file.

Set db = OpenDatabase(strPath)
Set rst = db.OpenRecordset(strSQL)

Set db = Nothing
Set rst = Nothing

=================================

this day... i know (maybe) the problem is "set rst = db.OpenRecordset(strSQL)"
... so i change it to "set rst = db.Execute(strSQL)"

but the error is still occured... can u help me, please ?

[FishVal]

yup... thx for your help.
i'm still wondering, how this SQL statement is writen into my macro.. please correct my macro below ( because every time i try it.... pop up error always occur )

Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim strSQL As String
Dim strPath As String
Dim Doc As Document

Set Doc = ThisDocument
strSQL = "INSERT INTO TPath ( Nama, Path, Keterangan ) VALUES (Tes3, TesPath3, KeteranganPath3)"

strPath = "C:/Access/myDB.mdb"

'Update path to database file.

Set db = OpenDatabase(strPath)
Set rst = db.OpenRecordset(strSQL)

Set db = Nothing
Set rst = Nothing

=================================

this day... i know (maybe) the problem is "set rst = db.OpenRecordset(strSQL)"
... so i change it to "set rst = db.Execute(strSQL)"

but the error is still occured... can u help me, please ?

• Make sure DAO library is referenced
• db.Execute(strSQL) is right approach for action query, but to the best of my knowledge it doesn't return recordset and for action query recordset is not expected to be returned

BTW, here is an example of working code updating table via recordset
"Microsoft ActiveX Data Object x.x Library" has to be referenced.

Private Sub CommandButton1_Click()
 
    Dim con As New ADODB.Connection
    Dim rs As New ADODB.Recordset
 
    With con
        .ConnectionString = "Provider=Microsoft.jet.oledb.4.0;" & _
            "Data Source=X:\db1.mdb"
        .Open
    End With
 
    With rs
        .Open "tblPaths", con, adOpenDynamic, adLockOptimistic
        .AddNew
        ![txtPath] = ThisDocument.Path
        ![txtName] = ThisDocument.Name
        .Update
        .Close
    End With
 
    con.Close
 
    Set rs = Nothing
    Set con = Nothing
 
End Sub
 

[superChaos]

yup... i have tried your code... it worked... :)
so glad.....

right now, i can add what i need to this code... thank you very much..

the problem is solved.....

[FishVal]

yup... i have tried your code... it worked... :)
so glad.....

right now, i can add what i need to this code... thank you very much..

the problem is solved.....

You are welcome.
Good luck.