תחומים - פורום חרדי מקצועי

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

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

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

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

עריכה:

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

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

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

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

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

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

    DoCmd.OpenReport "yy", acViewPreview

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

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

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

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

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

ויש לי לחצן הדפסה כזה שמדפיס את הרשומות המוצגות
עכשיו יש לי רשימת אקסל שיש לי שם את כל המספרים שאני רוצה להדפיס כזו

(לא מחייב דווקא רשימת אקסל אני יכול ליצר גם טבלה באקסס אם יהיה יותר קל)
עכשיו אני רוצה קוד שבעת שאני ילחץ עליו הוא ידפיס לי את כל הדוחות (רק אלו שמצוינים ברשימה)

חשבתי על רעיון של קוד כזה

1. שירשום לי בשדה הנ''ל את המס' הראשון
2. ידפיס בצורה של הדפסה מהירה
3. ימחק את השדה הנ''ל ירשום את השני בצורה של לולאה (הבעיה שאני לא יודע איך לעשות לולאה בקוד)
4. ידפיס וכו'

השאלה היא האם זה הדרך הנכונה וא''כ איך עושים את זה?

@chv
תודה עובד מעולה

@chv
צודק טעות שלי

זה הקוד

    Set MyAccess = CreateObject("Access.Application")
    MyAccess.Visible = True
    MyAccess.OpenCurrentDatabase CurrentProject.Path & "\" & "Catalog 1.0.0.accdb"

יש לי קובץ אקסס שאיתו אני פותח קובץ אקסס אחר לקחתי את הקוד ש @חיים-יודלביץ הביא כאן
זה עובד מצויין הבעיה היא שכל פעם שהוא פותח את האקסס האקסס נפתח לא על כל המסך ולא מוצג עליון יש איזה שהוא קוד vba שמסדר את זה?

@מעמד
אני לא יודע בדיוק לומר..
אבל אני חושב שאם החוק אומר שהוא צריך להעביר לך את תוצאות הבדיקה אין הבדל אם הבדיקה חינם או לא. (הרי הוא עובד אצלך והחוק אומר שהוא צריך להעביר לך ואם לא הוא ברח באמצע)
הרי בסוף היום הוא מגלם לך את המחיר במשקפיים עצמם..

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

@aknvtchtk א''א לאכול את העוגה מכל הכיוונים או שנח או שלא מתפוצץ
אני אומר את זה מניסיון ...

@aknvtchtk
הצינורות האלו מחזיקים הכי הרבה זמן

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

@מעמד
אם יש לך הקלטה של השיחה הזו תוכל גם לתבוע ממנו פיצויים

@yits
הרבה תודה הסתדרתי עם זה

יצרתי שגיאה באקסס (MsgBox‏) ואני רוצה שאם מתקיימת השגיאה שיעבור לפעולה אחרת
איפה אני מכניס את הפקודה?

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

@OdedDvir
ואיפה אני כותב את זה בגיליון נתונים?

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

@OdedDvir
ניסית לכתוב בבונה נוסחת iif בצורה כזו ומשום מה לא עובד אולי צריך לכתוב את זה בצורה שונה

=IIf([Booklist]![idBook]="","",Now())

הוא מחזיר שגיאה

@zvinissim אמר בתאריך ושעת יצירת שורה בטבלת אקסס:

@אוריי אמר בתאריך ושעת יצירת שורה בטבלת אקסס:

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

@אוריי אחרי אירוע השמירה תוסיף שאילתת SQL-הוספה של תאריך+שעה (NEW) עם קטריון של ID אחרון

@zvinissim אמר בתאריך ושעת יצירת שורה בטבלת אקסס:

או לפני אירוע השמירה תשנה את הזמן של השדה ואז תשמור

תוכל לפרט מה אני צריך לעשות?