אקסס: איפוס מספור אוטמטי?

[yits]

יש לי פונקציה שמרוקנת את הטבלאות ומאפסת את המספר הרץ שלהם.
בכל הטבלאות זה עובד חוץ מאחת (שאת הטבלה הזו אני יצרתי ב VBA ולא בעיצוב טבלאות).

זה הקוד שאני מריץ:

For n = 1 To UBound(MyAraay)
    CurrentDb.Execute "DELETE [" & MyAraay(n, 1) & "].* FROM [" & MyAraay(n, 1) & "];"
    If Nz(MyAraay(n, 2)) <> "" Then
        'CurrentDb.Execute "ALTER TABLE [" & MyAraay(n, 1) & "] ALTER COLUMN [" & MyAraay(n, 2) & "] COUNTER(1,1)"
        strDdl = "ALTER TABLE [" & MyAraay(n, 1) & "] ALTER COLUMN [" & MyAraay(n, 2) & "] COUNTER(1,1)"
        CurrentProject.Connection.Execute strDdl
    End If
Next

אם אני מריץ את הפונציה עם CurrentProject.Connection.Execute אני מקבל שגיאה כזאת:
-2147467259 ‏‏סוג נתוני שדה לא חוקי

ואם אני מריץ את אותה פונקציה תחת CurrentDb.Execute אני מקבל שגיאה כזאת:
3259 ‏‏סוג נתוני שדה לא חוקי.

חפשתי בגוגל וזה מה שאני מצאתי על שגיאה 3259:
https://stackoverflow.com/questions...ld-data-type-on-alter-table/33188788#33188788

ובדקתי אצלי את הערך של הפרופרטי בדטה בייס תחת "New Database Sort Order" והערך הוא 1033
וגם בכל הטבלאות שנוצרו דרך עיצוב טבלאות הערך של CollatingOrder = 1033
אבל בטבלה שנוצרה ב VBA הערך של CollatingOrder = 1024

בקיצור מה הפתרון??

 

[מ.ש.]

בSQL SERVER יש פקודה שנקראת TRUNCATE.
בACCESS אין פקודה כזו.
מצורף קישור שמראה הקבלה לפקודה הנל באקסס.
https://stackoverflow.com/questions/7230605/is-there-truncate-in-access

 

[yits]

@מ.ש. בטח שבאקסס יש וכתבתי את הפונקציה בקוד המצורף
הבעיה היא שבטבלה מסוימת זה לא עובד

 

[moishy]

לא הבנתי למה לא לעשות 'דחיסה ותיקון'?
בין השאר, זה גם מאפס את המיספור.

 

[yits]

@moishy אתה צודק
אבל מה השגיאה המוזרה??

 

[moishy]

פתרונות יש.
תיאוריה? אין לי מושג.