מחפש קוד vba להדפיס דוחות אקסס במהירות לפי רשימת אקסל או אקסס
-
@אוריי אמר במחפש קוד 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
סליחה שאני מטריח אותך.
האם יש סיכוי שאתה קצת מסביר לי על הקוד הזה
ואיך קראת ללולאה (איזה שם)? -
@אוריי אמר במחפש קוד vba להדפיס דוחות אקסס במהירות לפי רשימת אקסל או אקסס:
האם יש סיכוי שאתה קצת מסביר לי על הקוד הזה
אשמח להסביר הכל, אבל לצערי אני חייב לסיים כעת. אהיה פנוי יותר לקראת הערב אם תרצה
-
@אוריי אמר במחפש קוד 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
תודה רבה הצלחתי להפעיל אותו הוא עובד מצויין
רק נשאר לי בעיה קטנה בקוד הזהDoCmd.OpenReport "yy", acViewPreviewהקוד הזה פותח את הדוח בתצוגה לפני הדפסה
אבל אני רוצה שהוא ידפיס לי בלי תצוגה מקדימה
תודה מראש.. -
@אוריי אמר במחפש קוד vba להדפיס דוחות אקסס במהירות לפי רשימת אקסל או אקסס:
אבל אני רוצה שהוא ידפיס לי בלי תצוגה מקדימה
עריכה:
תשנה ל:DoCmd.OpenReport "yy", acViewNormal -
