לולאה באקסס

[nefertity]

לולאה באקסס

אני עובדת עם אקסס אבל לא יצא לי ממש לעבוד עם לולאות דרך הVB אני מנסה לעבור על נתונים משאילתה כך שעבור כל רשומה תווצר רשומה חדשה בטבלה אחרת קיימת איך רצים עם הלולאה, ואיך אני כותבת לתוך הטבלה?

 

[yaron881]

ככה:

dim rstSource as recordset dim rstTarget as recordset set rstSource=currentdb.openrecordset("MyQry") set rstTarget =currentdb.openrecordset("NewTable") rstSource.movelast rstSource.movefirst while not rstSource.eof rstTarget.addnew rstTarget("Field1")=rstSource("OrgField") rstTarget.update rstSource.movenext wend rstSource.close set rstSource=nothing rstTarget.close set rstTarget=nothing​

 

[nefertity]

הוא נותן לי שגיאה ../images/Emo10.gif

כבר על השורה הראשונה Set rstSource = CurrentDb.OpenRecordset("FeedingTanks") type mismatch

 

[yaron881]

תבדוק אם יש לך הפניה ב-refrences ל-

Microsoft DAO 3.6 object library

 

[nefertity]

עדיין עושה

הוספתי ת'הפניה ויש אותה שגיאה באותה שורה

 

[yaron881]

אתה יכול לשים צילום מסך של ההפניות ?

 

[nefertity]

אלה שמסומנות

אני לא כל כך יכולה לשם צילום של כולן כי יש מלא

 

[yaron881]

OK. תעלי את ההפניה כמה שיותר למעלה

 

[yaron881]

..עם החצים של ה- Priority כמובן

 

[nefertity]

לא עוזר ../images/Emo4.gif

 

[yaron881]

קבלי (לשנות סיומת ל-MDB)

,

 

[nefertity]

קודם כל תודה

אבל זה לא עוזר, עשיתי מה שכתבת פעם קודמת בול. הוא לא עובר את השורה הראשונה..

 

[yaron881]

את יכולה להעלות את הקובץ ?

 

[nefertity]

יש מצב לשלוח אותו אליך?

אני לא כל כך רוצה להעלות אותו לרשת

 

[nefertity]

אוקי..

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