Importing Limit

[naturalsn]

Good Day

I am currently importing records from a word document, to different tables within acces. Everthing is working fine, Execpt for one section.
I have A table with 5 Fields in My word document that give user place to enter all their Education Details. IE

Name of Institute
Attended From
To
Course
Degree Obtained

I have provided them with 20 rows to either fill with data or enter 1 or 2.

when i import this section. I have indicated import records 1 -20, but everytime i have a document with say 12 rows completed Acces does not import this. It only imports records up to 10

I have Bookmarked them all correctly in word, and in my module.

Here is the piece of code that imports this section. It is the Civilian Information, The Military one work perfectly. Only has ten row though

'START OF CIVIL EDUCATION TABLE POPULATE 

'Delete previous entries.
CurrentProject.Connection.Execute "DELETE * FROM tblPersonnelInfoEducation WHERE ID = " & ID, l, adCmdText

rstEducation.Open "SELECT * FROM tblPersonnelInfoEducation", CurrentProject.Connection, adOpenDynamic, adLockOptimistic, adCmdText
For n = 1 To 20
    If FixField(doc.FormFields("EdCivInsNamePlace" & n).Result, "") <> "" Then
        With rstEducation
            .AddNew
            !ID = ID
            !EdType = "C"
            ![EdInsNamePlace] = doc.FormFields("EdCivInsNamePlace" & n).Result
            ![EdDateFrom] = doc.FormFields("EdCivInsDateFrom" & n).Result 'Set this As Data Type "Date In Word & DB
            ![EdDateTo] = doc.FormFields("EdCivInsDateTo" & n).Result 'Set this As Data Type "Date In Word & DB
            ![EdCourseAttend] = doc.FormFields("EdCivInsCourseAtt" & n).Result
            ![EdDegreesObtained] = doc.FormFields("EdCivInsDegreeOB" & n).Result
            ![EdAdditionalInfo] = doc.FormFields("EdCivAddInfo").Result
            .Update
        End With
    End If
Next
'END OF CIVIL EDUCATION TABLE POPULATE 

'START OF Military EDUCATION TABLE POPULATE 
For n = 1 To 10
    If FixField(doc.FormFields("EdMilInsNamePlace" & n).Result, "") <> "" Then
        With rstEducation
            .AddNew
            !ID = ID
            !EdType = "M"
            ![EdInsNamePlace] = doc.FormFields("EdMilInsNamePlace" & n).Result
            ![EdDateFrom] = doc.FormFields("EdMilInsDateFrom" & n).Result 'Set this As Data Type "Date In Word & DB
            ![EdDateTo] = doc.FormFields("EdMilInsDateTo" & n).Result 'Set this As Data Type "Date In Word & DB
            ![EdCourseAttend] = doc.FormFields("EdMilCourseAttend" & n).Result
            ![EdDegreesObtained] = doc.FormFields("EdMilDegreeObt" & n).Result
            ![EdAdditionalInfo] = doc.FormFields("EdMilAddInfo").Result
            
            .Update
        End With
    End If
Next

rstEducation.Close
Set rstEducation = Nothing
'END OF Military EDUCATION TABLE POPULATE

Has any one possibly have any ideas what i migth be doing wrong

 

[VRoscioli]

Have you tried stepping through the procedure to see where it is stopping?


-V

 

[naturalsn]

Hi VRoscioli,

Thank for advise and time, found the problem.. spelling error.