אקסס | RecordCount מחזיר ערך לא נכון

[OdedDvir]

אני חושב שזה בגלל שבVBA כל משפט IF בודק את כל התנאים שב-AND יחד, גם אם הראשון FALSE.
תנסה להפריד את התנאים, ולבדוק אחד אחד:
If RS.EOF then
result =0
else
RS.Movelast
result = RS.recordCount
end if

[WWW]

@OdedDvir גם כשאני כותב RS.Movelast בלי IF, זה לא עוזר.

עכשיו הטבלה ריקה לגמרי
וזה מציג לי 75...

זה כנראה בגלל שאני מדביק כל הזמן חומר, ויש שגיאות הדבקה שמושמטות.
כנראה יש לו בעייה עם הרענון.

אני מאמין שדחוס ותקן יפתור את הבעיה.

אבל זה קובץ ענק אין לי זמן לזה

[OdedDvir]

יש לי רעיון:
אם אתה צריך רק את מספר הרשומות, אולי DCount יעזור?
עוד רעיון
אולי תריץ שאילתת יצירת טבלה, ותכניס רק עמודה אחת לתוכה (אם אתה צריך רק את מספר הרשומות), ותבדוק כמה שורות יש בה
SELECT [id] INTO [NewTable] FROM [TableName]
ותבדוק כמה רשומות יש ב-NewTable

[OdedDvir]

עוד כיוון:
איך את פותח את ה-RS? מה פקודת OpenRecordset?
תנסה להוסיף את הדגל dbReadOnly או dbOpenSnapshot

[WWW]

@OdedDvir אמר באקסס | RecordCount מחזיר ערך לא נכון:

dbOpenSnapshot

עזר!
עדכון:
לא עזר, כעת זה מציג לי על 7000 רשומות 1.

[OdedDvir]

@WWW מה פקודת OpenRecordset שאתה משתמש בה?

[WWW]

@OdedDvir

CurrentDb.OpenRecordset("A")

[OdedDvir]

תנסה OpenRecordset("A", dbOpenSnapshot, dbReadOnly)

[OdedDvir]

או OpenRecordset("A", dbPessimistic, dbReadOnly)

[WWW]

@OdedDvir אמר באקסס | RecordCount מחזיר ערך לא נכון:

או OpenRecordset("A", dbPessimistic, dbReadOnly)
תנסה OpenRecordset("A", dbOpenSnapshot, dbReadOnly)

כנ"ל מחזיר 1.

[OdedDvir]

@WWW וואו איזה תיסכול
ניסית ליצור טבלת עזר ולספור את הרשומות שם (כמו שהצעתי למעלה)?
או אולי במקום שם הטבלה "A" תכניס שאילתא (זה יוצר עותק של הטבלה)
set RS = currentdb.OpenRecordset("SELECT id FROM A", dbOpenSnapshot, dbReadOnly)

[WWW]

@OdedDvir אמר באקסס | RecordCount מחזיר ערך לא נכון:

set RS = currentdb.OpenRecordset("SELECT id FROM A", dbOpenSnapshot, dbReadOnly)

ניסיתי כבר בהתחלה.
לא עזר.

בכל אופן אני הסתדרתי, הפרויקט הזה שהייתי צריך אותו כבר סיימתי ב"ה.