עזרה בבנית תוכנה לוועד בית
-
אני מחפש את הדרך הקצרה ביותר לעשות את השאילתה.
אשמח שתראו את הקובץ ולקבל עזרה.
בטופס הוצאות הלחצן "עדכן נתונים" אמור ליצור שורה חדשה לכל דייר בטבלת גביה, ואח"כ לעדכן את הסכום של כל דייר משדה בטופס שבו כתוב כמה כל דייר אמור לשלם.
כמובן.. שלחיצה שוב על הלחצן, לא תיצור עוד פעם שורה לכל דייר, אלא תבדוק האם אין שורה, ואם יש שורה שרק תעדכן את הסכום (אולי שינו..)פורסם במקור בפורום CODE613 ב21/10/2015 19:35 (+03:00)
-
בשליפה.
לא נגעתי בשמות הפקדים. אם כי הייתי נותן שם בעל משמעות לכפתור ולתיבות טקסט שאיתם אתה משתמש. (ובכלל אולי הייתי נותן שמות באנגלית, העברית עושה הרבה בלגן בקוד)
בבקשה:
(תדביק את הקוד מאחורי האירוע "קליק" של הכפתור פקודה)Private Sub פקודה79_Click() ' הגדרת אקסס לא להציג הודעות שאילתות DoCmd.SetWarnings False 'הוספת שורות חסרות DoCmd.RunSQL "INSERT INTO גביה ( [קוד דייר], [קוד הוצאה], [סכום לתשלום] ) SELECT דיירים.מזהה, [Forms]![הוצאות]![מזהה] AS Expr1, [Forms]![הוצאות]![טקסט66] AS Expr2 FROM דיירים WHERE (((דיירים.מזהה) Not In (select [גביה].[קוד דייר] from [גביה] where [גביה].[קוד הוצאה]=[Forms]![הוצאות]![מזהה])));" 'עידכון סכום חדש DoCmd.RunSQL "UPDATE גביה SET גביה.[סכום לתשלום] = [Forms]![הוצאות]![טקסט66] WHERE (((גביה.[קוד הוצאה])=[Forms]![הוצאות]![מזהה]));" ' הגדרת אקסס להציג הודעות שאילתות DoCmd.SetWarnings True 'ריענון הטופס משנה Me![משנה הוצאות].Requery End Subפורסם במקור בפורום CODE613 ב21/10/2015 21:10 (+03:00)
-
אשמח לשמוע חוות דעת,
עדין לא כל הפונקציות פעילות וכו'...פורסם במקור בפורום CODE613 ב11/12/2015 01:31 (+02:00)
-
תודה רבה על העזרה,
מצ"ב הקובץ הסופי (כמעט..)
גרסה 32 ולגרסה 64 ביט.פורסם במקור בפורום CODE613 ב13/12/2015 18:55 (+02:00)
