Ms Access Form - Error - MS access can't append all the records in the append query

Question

Hello,

I have created a form in which when the user enter data that record is stored in temporary table and when the Run Query button is press that record should be append with the main table and delete from temporary table. When i press the Run Query button it gives error which i am not able to sort out , i check my form properties and related things but i don't understand why it is so.

Can any one help me in this. Thank you in advance for your efforts and time.

Error further details : Microsoft Access can't append all the records in the append query.

Microsoft Access set 0 fields to Null due to type conversion failure, and it didn't add 1 records to the table due to key violation, 0 records due to lock violation, and 0 records due to validation rule violation. 

Do you want to run the query anyway?

Answer 1

This is the solution to my Problem:

...

The autonumber seed may be corrupted.  You will be able to tell if this is the case by opening the table in datasheet view.  Sort the table by autonumberID.  Go to the end of the data and start typing in the empty row.  If the generated autonumber is less than the highest existing number, the seed is corrupted.  Here is the code to fix it.  You will need to add a reference to the ADO library.  Open any code module.  Then Tools/References and choose the  newest ADO library you have installed.

To reset the seed, 

Call ResetSeed("yourtablename")

Function ResetSeed(strTable As String) As String

    'Purpose:   Reset the Seed of the AutoNumber, using ADOX.

    Dim strAutoNum As String    'Name of the autonumber column.

    Dim lngSeed As Long         'Current value of the Seed.

    Dim lngNext As Long         'Next unused value.

    Dim strSql As String

    Dim strResult As String

    lngSeed = GetSeedADOX(strTable, strAutoNum)

    If strAutoNum = vbNullString Then

        strResult = "AutoNumber not found."

    Else

        lngNext = Nz(DMax(strAutoNum, strTable), 0) + 1

        If lngSeed = lngNext Then

            strResult = strAutoNum & " already correctly set to " & lngSeed & "."

        Else

            Debug.Print lngNext, lngSeed

            strSql = "ALTER TABLE [" & strTable & "] ALTER COLUMN [" & strAutoNum & "] COUNTER(" & lngNext & ", 1);"

            Debug.Print strSql

            CurrentProject.Connection.Execute strSql

            strResult = strAutoNum & " reset from " & lngSeed & " to " & lngNext

        End If

    End If

    ResetSeed = strResult

End Function

''--------------------------------------------------------------------------------

Function GetSeedADOX(strTable As String, Optional ByRef strCol As String) As Long

    'Purpose:   Read the Seed of the AutoNumber of a table.

    'Arguments: strTable the table to examine.

    '           strCol = the name of the field. If omited, the code finds it.

    'Return:    The seed value.

    Dim cat As New ADOX.Catalog 'Root object of ADOX.

    Dim tbl As ADOX.Table       'Each Table in Tables.

    Dim col As ADOX.Column      'Each Column in the Table.

    'Point the catalog to the current project's connection.

    Set cat.ActiveConnection = CurrentProject.Connection

    Set tbl = cat.Tables(strTable)

    'Loop through the columns to find the AutoNumber.

    For Each col In tbl.Columns

        If col.Properties("Autoincrement") Then

            strCol = "[" & col.Name & "]"

            GetSeedADOX = col.Properties("Seed")

            Exit For    'There can be only one AutoNum.

        End If

    Next

    'Clean up

    Set col = Nothing

    Set tbl = Nothing

    Set cat = Nothing

End Function

''--------------------------------------------------------------------------------

Answer 2

This is just a shot in the dark but Timestamp is a reserved word. 

Does this fail no matter what is entered? 

Do you try replace some fields from the source with hard-coded values in the query?

Answer 3

Timestamp is a reserve word but it doesn't fail in three forms which i make before.

I didn't get the other part what i should do? "Do you try replace some fields from the source with hard-coded values in the query?"

Answer 4

Take you query like:

INSERT INTO tblGeneration ( Country, Product, Years, [Values], Show, [Current], Source, Notes, PType, Entered_By, [Timestamp], Sector, Unit )

SELECT tblGenProductTemp.Country, tblGenProductTemp.Product, tblGenProductTemp.Years, tblGenProductTemp.Values, tblGenProductTemp.Show, tblGenProductTemp.Current, tblGenProductTemp.Source, tblGenProductTemp.Notes, tblGenProductTemp.PType, tblGenProductTemp.Entered_By, tblGenProductTemp.Timestamp, tblGenProductTemp.Sector, tblGenProductTemp.Unit

FROM tblGenProductTemp;

Replace tblGenProductTemp.Country with a know good value like 

INSERT INTO tblGeneration ( Country, Product, Years, [Values], Show, [Current], Source, Notes, PType, Entered_By, [Timestamp], Sector, Unit )

SELECT "England", tblGenProductTemp.Product, tblGenProductTemp.Years, tblGenProductTemp.Values, tblGenProductTemp.Show, tblGenProductTemp.Current, tblGenProductTemp.Source, tblGenProductTemp.Notes, tblGenProductTemp.PType, tblGenProductTemp.Entered_By, tblGenProductTemp.Timestamp, tblGenProductTemp.Sector, tblGenProductTemp.Unit

FROM tblGenProductTemp;

Keep trying a similar strategy until it works. If nothing works, you may want to try post a limited file somewhere that you can share so we can troubleshoot.

Answer 5

@dhookom, no it's not working also. How can i post a limited file?