מחפש קוד 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 -
שלום! נראה שהשיחה הזו מעניינת אותך, אבל עדיין אין לך חשבון.
נמאס לכם לגלול בין אותם הפוסטים בכל ביקור? כשנרשמים לחשבון, תמיד תחזרו בדיוק למקום שבו הייתם קודם, ותוכלו לבחור לקבל התראות על תגובות חדשות (בין אם במייל, ובין אם בהתראת פוש). תוכלו גם לשמור סימניות ולפרגן ב-upvote לפוסטים כדי להביע הערכה לחברי קהילה אחרים.
בעזרת התרומה שלך, הפוסט הזה יכול להיות אפילו טוב יותר 💗
הרשמה התחברות