Import data from Word Forms into Access (1 Viewer)

[ShawnJohnson]

Sorry guys, after a few more mods and running debug, i am getting stuck at (in red):


With rst
.AddNew
!Make = doc.FormFields("Make").Result
!Model = doc.FormFields("Model").Result
!Title = doc.FormFields("Title").Result
!ReportType = doc.FormFields("ReportType").Result
!Year = doc.FormFields("Year").Result
!BodyStyle = doc.FormFields("BodyStyle").Result
!Engine = doc.FormFields("Engine").Result
!Cases = doc.FormFields("Cases").Result
!VIN1 = doc.FormFields("VIN1").Result
!km1 = doc.FormFields("km1").Result
!Eng1 = doc.FormFields("Eng1").Result
!Trans1 = doc.FormFields("Trans1").Result
!Paint1 = doc.FormFields("Paint1").Result
!VIN2 = doc.FormFields("VIN2").Result
!km2 = doc.FormFields("km2").Result
!Eng2 = doc.FormFields("Eng2").Result
!Trans2 = doc.FormFields("Trans2").Result
!Paint2 = doc.FormFields("Paint2").Result
!VIN3 = doc.FormFields("VIN3").Result
!km3 = doc.FormFields("km3").Result
!Eng3 = doc.FormFields("Eng3").Result
!Trans3 = doc.FormFields("Trans3").Result
!Paint3 = doc.FormFields("Paint3").Result
!LabourOp = doc.FormFields("LabourOp").Result
!DrivingConditions = doc.FormFields("DrivingConditions").Result
!Environment = doc.FormFields("Environment").Result
!Concern = doc.FormFields("Concern").Result
!Cause = doc.FormFields("Cause").Result
!Correction = doc.FormFields("Correction").Result
!Success = doc.FormFields("Success").Result
!AdditionalVINs = doc.FormFields("AdditionalVINs").Result
!PartNo = doc.FormFields("PartNo").Result
!PartsName = doc.FormFields("PartsName").Result
!PartsAvailable = doc.FormFields("PartsAvailable").Result
!Originator = doc.FormFields("Originator").Result
!OrininatorEmail = doc.FormFields("OrininatorEmail").Result
!DealerCode = doc.FormFields("DealerCode").Result
!Date = doc.FormFields("Date").Result
.Update
.Close
End With
doc.Close
If blnQuitWord Then appWord.Quit

MsgBox "Report Imported!"

Cleanup:
Set rs = Nothing
Set db = Nothing
Set doc = Nothing
Set appWord = Nothing
Exit Sub

GoTo Cleanup
End Sub

 

[ShawnJohnson]

Debug show error 91, the word doc is a drop down field.....

 

[ShawnJohnson]

NOTE i did add fld to the statement....

!Make = doc.FormFields("fldMake").Result

 

[ShawnJohnson]

all, good got it working....