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

[OdedDvir]

@אוריי זו אכן הדרך הנכונה.
אם אין ענין דווקא בקובץ אקסל - יהיה יותר נוח על טבלה באקסס, למרות שאקסס מסוגלת לייבא בקלות קובץ אקסל עם מבנה טבלה תקין. (הבעיות מתחילות כשהקובץ לא נראה כמו טבלה)
בוא ונפרק את המשימה לשלבים:

1. צור פונקציה A שמקבלת כפרמטר את מספר המדף ומציגה \ מדפיסה את הדוח.
   תוכל להעזר בשאילתא שכבר רשמת ששולפת את המספר מהטופס.
2. צור פונקציה B שרצה בלולאה על הטבלה וקוראת לפונקציה A עם הפרמטר.

[אוריי]

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

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

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

    DoCmd.OpenReport "yy", acViewPreview

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

2. צור פונקציה B שרצה בלולאה על הטבלה וקוראת לפונקציה A עם הפרמטר.

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

(הבעיה שאני לא יודע איך לעשות לולאה בקוד)

[OdedDvir]

@אוריי אתה צריך ליצור פונקציה שמשנה את השאילתא שעליו מבוסס הדוח. אני מניח שכרגע השאילתא הנ"ל שולפת את המספר ישירות מהטופס, אתה צריך ליצור משפט SQL שבונה את השאילתא בהתאם לפרמטר שאתה תעביר לו בשעת הקריאה.
עבור לשאילתא שעליה מבוסס הטופס, ותציג אותה בתצוגת SQL, ותדביק כאן את הנוסח שקיבלת.

[אוריי]

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

1. פקודה שתרשום את המס' מדף בטופס.
2. פקודה שתדפיס את הדו''ח בצורה מהירה ללא תצוגה
3. פקודה שתמחוק את הטקסט בטופס.

ועל כל זה לתת לולאה שתרוץ ותחליף את המס' בצורה סדירה עד הסוף.

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

עריכה:

פונקציה של לולאה עשיתי (מקווה שעשיתי טוב)

Public Function lol() As String
Dim i, num
For i = 1 To 133
num = num + i
Next

מה שחסר לי זה הנוסחה שתעשה כמין vlookup על הטבלה..

[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
אני לא יודע למה אבל פתאום הוא התחיל לעבוד גם עם הקוד הקודם