מחפש קוד vba להדפיס דוחות אקסס במהירות לפי רשימת אקסל או אקסס

[OdedDvir]

@אוריי אמר במחפש קוד vba להדפיס דוחות אקסס במהירות לפי רשימת אקסל או אקסס:

אבל אני חשבתי על פתרון אחר יותר קל לעניות דעתי בצורה כזו

מצוין.
אתה צריך לעשות לולאה על טבלה. אני אדגים כאן באופן כללי:
נניח שיש לי טבלה MyTable ואני רוצה לעבור על כל השורות ולהדפיס את השדה MyNumber:

Dim rs as DAO.Recordset
Set rs = CurrentDb.OpenRecordset("MyTable", dbReadOnly, dbSnapshot)
rs.MoveFirst
While Not rs.EOF
    Debug.Print rs!MyNumber 'הדפס את הערך בשדה
    rs.MoveNext
Wend
rs.Close

[אוריי]

@OdedDvir
סליחה שאני מטריח אותך.
האם יש סיכוי שאתה קצת מסביר לי על הקוד הזה
ואיך קראת ללולאה (איזה שם)?

[OdedDvir]

@אוריי אמר במחפש קוד vba להדפיס דוחות אקסס במהירות לפי רשימת אקסל או אקסס:

האם יש סיכוי שאתה קצת מסביר לי על הקוד הזה

אשמח להסביר הכל, אבל לצערי אני חייב לסיים כעת. אהיה פנוי יותר לקראת הערב אם תרצה

[אוריי]

פוסט זה נמחק!

[אוריי]

@OdedDvir
תודה רבה הצלחתי להפעיל אותו הוא עובד מצויין
רק נשאר לי בעיה קטנה בקוד הזה

DoCmd.OpenReport "yy", acViewPreview

הקוד הזה פותח את הדוח בתצוגה לפני הדפסה
אבל אני רוצה שהוא ידפיס לי בלי תצוגה מקדימה
תודה מראש..

[OdedDvir]

@אוריי אמר במחפש קוד vba להדפיס דוחות אקסס במהירות לפי רשימת אקסל או אקסס:

אבל אני רוצה שהוא ידפיס לי בלי תצוגה מקדימה

עריכה:
תשנה ל:

DoCmd.OpenReport "yy", acViewNormal

[אוריי]

@OdedDvir
הוא מחזיר שגיאה כזו

[OdedDvir]

@אוריי תבדוק במאפייני הדוח האם מסומן "אפשר תצוגת דוח"

[אוריי]

פוסט זה נמחק!

[OdedDvir]

@OdedDvir סליחה, טעיתי, תשנה ל:

DoCmd.OpenReport "yy", acViewNormal

שיניתי גם למעלה במקור

[אוריי]

@OdedDvir
אני לא יודע למה אבל פתאום הוא התחיל לעבוד גם עם הקוד הקודם