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

@one1010 כתב במאקרו רץ בלולאה:

@ארי כתב במאקרו רץ בלולאה:

איזה הודעה הוא מקפיץ לך?

זאת:

וכשאתה לוחץ אישור הוא מציג אותה שוב?

@one1010 כתב במאקרו רץ בלולאה:

לעצם מה שכתבת, עד עכשיו הוא כן חישב רק את מה שצבוע בצהוב.

לא אמור להיות קשר לקוד, הוא רץ על לולאה בלי קשר לצבע.

לגבי התאריכים, זה קשור לזה שבחודש 2 יש רק 28 יום, וממילא בין ה15/1 עד ל15/2 יש 31 יום, וגם בין ה15/2 ל18/3 יש 31 ימים.

בלולאה, איזה הודעה הוא מקפיץ לך? את אותה ההודעה?אולי יש לך קובץ דוגמא, כי לי בקובץ דוגמא שעשיתי זה עובד מצוין. מצרף דוגמא.

לולאה על טווח תאריכים.xlsm

@one1010 שתי הערות בקוד הנ"ל.

1. האם הוא צריך למצוא רק תאריכים רצופים כמו שכתבת? כי זה נראה שהוא מוצא גם אם הם לא רצופים (וגם בלי קשר לצבע שלהם).
2. הבעיה שלו זה שגם אם הוא מוצא שלוש שדות ריקות הוא מתייחס לזה שהם שווים, צריך להוסיף לו תנאי שאם שלושתם ריקים שיתעלם.

בשביל לפתור את זה שהוא רץ לנצח (אגב, לא לנצח אלא עד שגומר לרוץ על כל הטווח שמוגדר לו) צריך לשנות את השורה הזו:

                If date1 = date2 And date2 = date3 Then

לזה:

If date1 = date2 And date2 = date3 And date1 <> "00:00:00" And date2 <> "00:00:00" And date3 <> "00:00:00" Then

וככה אם השדות ריקות הוא יתעלם מהם.

@one1010 אתה יכול לכתוב כאן את הקוד?
כנראה חסר לו מה שיעצור אותו, אבל בלי לראות את הקוד עצמו אי אפשר לעזור...

@one1010 ממש שאלה קשה...
היא עוד יותר קשה כשאנחנו לא יודעים מה הקוד...
אתה יכול לצרף אותו גדי שנוכל לנסות לעזור לך?

צהרים טובים (ופורים שמח לפרזים שבינינו).
יש לי תוכנת אקסס עם הרבה קודים, וכרגע היא עובדת רק באופיס 32 סיביות, והייתי רוצה מכמה סיבות להתאים אותה שתעבוד גם ב64 סיביות.
מישהו יכול לעזור לי ולהסביר בגדול באיזה קודים יש הבדל בין תוכנות האופיס?
אני יודע שמשתנה Long לא עובד ב64 סיבות (אני צודק?), מה עוד?
תודה רבה!

@מנחם אתה צודק.
שכחתי להוסיף מידע חשוב. לא מותקנת לי תוכנה של pdf, אלא אני משתמש בדפדפן Edge לפתוח קבצי pdf.
האם בשביל הקוד הזה אני חייב אדובי במחשב?

@katz עכשיו לא בדקתי. אבל אתמול בערב עבד.

@katz אני לא משתמש בקהילות, אבל אתמול בערב הAPI של קשר (הבעלים של קהילות) לא עבד לכמה זמן.
בסוף חזר רגיל.

@OdedDvir לא.

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

@ארי הקפצה.
אשמח אם מישהו יוכל לעזור.
תודה!

@OdedDvir
יש לי פקד בטופס בשם 'נערך' (שגם מקושר לשדה בשם זה בטבלה), והיה קוד לאחר עדכון על חלק מהשדות בטופס שיתן ערך True בפקד הזה.
אבל לא היה קוד על הפקד עצמו שלאחר עדכון יעדכן את עצמו. אז לכאורה לא אמורה להיות לולאה אין סופית. לא?
מה שבאמת עשיתי בסוף (מניחוש, לא מידיעה) זה קוד אחד 'לאחר עדכון' על הטופס שישנה את הערך בטבלה ע"י שאילתת עדכון ולא את הפקד בטופס.
אז שאלתי היא: 1. למה התרחשה שגיאה אם לא אמורה להיות לולאה. ו2. האם מה שעשיתי זה באמת הפתרון הטוב ביותר?
תודה!

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

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

@חייםיודלביץ תודה.
אבל אני גם מעוניין לחסום אפשרות של מעבר לחלון אחר בווינדוס ע"י Alt+Tab לדוג'.
בעצם להפוך את התוכנת אקסס לקיוסק.

בוקר טוב.
יש לי טופס שמבוסס על טבלה אחת, ולפעמיים קורה בזמן שאני משנה רשומה קופצת לי ההודעה הבאה:

אין לי שם קוד של עדכון, רק טופס שמבוסס על טבלה.
למה זה קורה? ואיך אפשר לסדר את זה?
תודה רבה!

@אוריי לכאו' יש שתי אפשרויות.

1. כמו שיש לך, רק עם סינון כך:

        Dim EditAbsent As Recordset
        Set EditAbsent = CurrentDb.OpenRecordset("select * from [רשימת תורמים] where קוד_תורם = 1")
        
        EditAbsent.Edit
            EditAbsent!נפקד = True
        EditAbsent.Update

2. לעשות פשוט שאילתת עדכון בלי צורך בRecordSet, כך:

Currentdb.Execute "update [רשימת תורמים] set [רשימת תורמים].נפקד = true where קוד_תורם = 1"

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

@אוריי אולי אתה צריך לשנות את ההגדרות של הטבלה/השאילתה שעליה בנוי הטופס.

@אוריי ולפקדים האלו אין קוד?