הרצת שאילתה בלולאה - VBA אקסס
-
@OdedDvir @dovid האמת שאחרי ששאלתי את השאלה ישבתי עוד זמן רב על התוכנה, והבנתי שהשאלה נבעה מהבנה שגויה שלי על המבנה של ה DB.
אני לא יכול לצרף מבנה טבלאות כמו שביקש @dovid בצדק רב, (וליתר דיוק זה דורש ממני עבודה מיותרת כמו שאסביר).לאחר מעשה הבנתי שהנסיונות לפתור את הבעיה באמצעות שאילתות עדכון אחרות וכדו' לא רלוונטי, והאופציה היחידה שרלוונטית במקרה שלי זה כמו ששאלתי בהתחלה (באופן לא ברור....) וכמו שכתב @OdedDvir (באופן ברור):
לכתוב קוד שמפעיל את הכפתור 10000 פעמים.
בסופו של דבר זו האופציה היחידה שרלוונטית במקרה שלי.
כך שהשאלה צריכה להיות הרבה יותר פשוטה:
מה אני צריך להוסיף לקוד כדי שיפעיל את הכפתור בכל אחד מהטפסים הרציפים?
אני יודע שזה לא מומלץ וגוזל משאבים רבים, ובכל זאת כמו שכתבתי זו האפשרות היחידה מבחינתי.
תודה רבה, וסליחה על הבלבול בשאלה... -
@סקרן-0 האמת שאף פעם לא שמעתי על אפשרות גרועה כ"כ, במיוחד שלפי מה שאתה טוען זו האפשרות היחידה....
הקוד לכאו' אמור להיות די פשוט:for i = 1 to 10000 'your code next i
איפה זה מסתבך?
בלי לדעת את המבנה הבסיסי של התוכנה, לא נראה לי שאפשר לעזור יותר מזה... -
נקודה למחשבה:
מה יעזור לך ההרצה בלולאה הנ"לאם מדובר על עדכון של אותו איש שיווק לכל הלקוחות - כאמור, תבצע עדכון גורף
אם מדובר על עדכון איש שיווק שונה בכל לקוח
את אותה טרמינולוגיה שאתה מעוניין להכניס בלולאה בלחצן
(כגון: אם זה לקוח ג'ינג'י שייך לסוכן איציק, אם זה לקוח רזה שייך לסוכן שלמה)תכניס מראש בשאילתת עדכון הגורפת
-
@mekev זה בדיוק הנקודה (ולכן גם מה שכתב @ארי צריך איזו התאמה למה שאני צריך...)
מדובר על עדכון שונה לכל לקוח על פי פרמטר נוסף, ובעיקרון ברור שהדרך הנכונה והיעילה לעשות את זה, זה שאילתות מהסוג שהציעו כאן.
במקרה שלי זה לא רלוונטי כיון שבהסכם הרכישה של התוכנה יש תנאי שאסור לי לבצע שינויים במבנה מסד הנתונים.(במקור נראה לי שיש בכרטיס הוספת לקוח אירוע אחרי עדכון שאמור לעדכן את זה עם Dlookup כל פעם שמוסיפים לקוח, אבל זה לא עובד. ולכן יוצר התוכנה יצר טופס מיוחד כדי לעדכן את זה ידנית כמו שתיארתי - טפסים רציפים לכל איש שיווק בכל קטגוריה. אויבער חוכעם - אבל זה לא הבעיה שלי...)
לכן האופציה היחידה שיש לי זה זה להשתמש בטופס העדכון שהוא יצר. אני רק מנסה לחסוך מעצמי את הכאב ראש שיש בללחוץ 5000 פעמים על אותו כפתור.
תודה רבה, מקווה שהובנתי. (הייתי צריך להשקיע קצת יותר בניסוח בהתחלה, אבל אני מקווה שלפחות עכשיו זה יותר מובן...
)
-
@OdedDvir ע"פ מה שזכור לי (ואני אבדוק את זה שוב בהסכם הרככישה שאינו תחת ידי כרגע), כל פעולה שפועלת ישירות על נתונים גורמת להסרת האחריות (כיון שאז המשתמשים יכולים לפגוע באמינות התוכנה), מה שאין כן בקוד כזה שבס"ה מפעיל שאילתא שהמתכנת יצר. לכן אני חושב שיש חילוק, ולכן אני בכל זאת אשמח לקבל קוד שיעשה את זה.
על הצד שזה כן יהיה מותר לי (וסתם להעשרה...) התחביר של השאילתא צריך להיות כך?
UPDATE משווקים INNER JOIN (לקוחות) ON משווקים.פרמטר = לקוחות.פרמטר SET לקוחות.משווק = [משווקים].[משווק];
תודה רבה, ושוב תודה לכל מי שעונה אפילו שהשאלה לא ברורה מספיק...
-
@סקרן-0 כתב בהרצת שאילתה בלולאה - VBA אקסס:
לכן האופציה היחידה שיש לי זה זה להשתמש בטופס העדכון שהוא יצר
כפי שכולם אמרו אין מצב.
אל תטרח, רק תענה על השאלות הבאות ואני אכתוב את השאילתה עבורך.
שאלות:- שם הטבלה של הלקוחות, שם השדה של מזהה לקוח, השדה שאתה מכין לאחסן את המזהה/שם משווק
- שם הטבלה של המשווקים, שם השדה של מזהה משווק.
- איפה נמצא הנתון של הקשר בין הלקוחות למשווק/עובד. אם זו טבלה מה שמה, ומה שמות השדות הרלוונטיים, אם זה משהו אחר (?) אנא פרט את הנקודה הזו העיקרית שחסרה מאז בואך לנושא.
-
@סקרן-0 כתב בהרצת שאילתה בלולאה - VBA אקסס:
@OdedDvir ע"פ מה שזכור לי (ואני אבדוק את זה שוב בהסכם הרככישה שאינו תחת ידי כרגע), כל פעולה שפועלת ישירות על נתונים גורמת להסרת האחריות (כיון שאז המשתמשים יכולים לפגוע באמינות התוכנה), מה שאין כן בקוד כזה שבס"ה מפעיל שאילתא שהמתכנת יצר. לכן אני חושב שיש חילוק, ולכן אני בכל זאת אשמח לקבל קוד שיעשה את זה.
אפשר בקוד לכתוב את כל השאילתה, ולכן מה שכתבת לא רלוונטי.
כמתכנת, קוד שמפעיל כפתור שלי X פעמים היה גורם לי להסיר את האחריות לא פחות מאשר קוד שמפעיל שאילתת עדכון. עזוב, תן לנו לעזור לך, בבקשה! -
@dovid כתב בהרצת שאילתה בלולאה - VBA אקסס:
אפשר בקוד לכתוב את כל השאילתה, ולכן מה שכתבת לא רלוונטי.
מה זה קשור? אם אני מוסיף משהו שמתעסק עם הנתונים - אני לוקח סיכון כביכול שיהיה שיבוש בפעילות התוכנה. ההסכם יוצא מנקודת הנחה שגם מישהו שחושב שהוא מבין עשוי לפגוע בחלקים אחרים של מסד הנתונים - לדוגמה אם הנתונים בשדה אמורים להיות בטייפ אחר וכו' וכו'.
כשאני מפעיל קוד שהתפקיד שלו זה לעשות את מה שהמתכנת רצה שיקרה - אין בזה שום סיכון. זה הסיבה שאני חושב (מסברא, וכמו שאמרתי אין לי כרגע דרך לוודא את זה), שזה לא יגרום להסרת האחריות.@dovid כתב בהרצת שאילתה בלולאה - VBA אקסס:
עזוב, תן לנו לעזור לך, בבקשה!
וואו! - אני אביא את המקרה האמיתי (הוא קצת יותר מורכב כדלהלן, ולכן העדפתי לשאול ע"י משל... אולי טעיתי...)
בדוגמא הזו אני מעדכן שכונה לתורם ע"פ הכתובת שהוזנה. המשתמש לא מזין את השכונה בעצמו כיון שזה נתון אוטומטי ע"פ הרחוב והעיר.
1.טבלת "תורמים" - "רחוב", "עיר", "שכונה".
2. טבלת "רחובות" - "מזהה_רחוב", "מזהה_עיר", "שם_רחוב", "מזהה_שכונה"
3. טבלת "ערים" - "מזהה_עיר", "שם_עיר"
4. טבלת "שכונות" - "מזהה_שכונה", "שם_שכונה".כעת המטרה היא שבהזנת העיר והרחוב יתעדכן אוטומטית הנתון ב תורמים.שכונה
הקוד המקורי שאמור לעשות את זה הוא:
If Not IsNull(Me!רחוב) Then Me!שכונה = Nz(DLookup("שם_שכונה", "שכונהלרחוב", "רחוב = '" & Me!רחוב & "' AND עיר = '" & Me!עיר & "'"), "") End If
(שכונהלרחוב זו שאילתא שמוציאה את שם_עיר מ"ערים", שם_רחוב מ"רחובות", ושם_שכונה מ"שכונות")
הקוד הזה לא עובד, והסיבה שלא שאלתי איך לתקן אותו היא מהסיבה דלעיל, שחששתי שזה יפגע באחריות וכו'.
למעשה יש טופס עדכון, שמבוסס על הטבלה "רחובות", כשעל כל שורה יש כפתור "עדכון", שמריץ את הקוד הבא:
Private Sub עדכן_Click() DoCmd.SetWarnings 0 DoCmd.RunSQL "UPDATE תורמים SET תורמים.שכונה = '" & DLookup("שם_שכונה", "שכונה", "קוד_שכונה =" & Me!קודשכונה & " and קוד_עיר = " & Me!קודעיר) & "' WHERE (((תורמים.עיר)= '" & DLookup("שם", "ערים", "קוד =" & Me!קודעיר) & "') AND ((תורמים.רחוב)= '" & Me!שם & "'));" DoCmd.SetWarnings -1 End If End Sub
במצב כזה, אני צריך לעבור רחוב רחוב (כ 5000 רלוונטיים במצטבר) וללחוץ על "עדכון".
זה כל המידע שיש לי לומר, וכל עזרה תתקבל בברכה.נ.ב. @dovid האם כדאי למחוק את הפוסטים הקודמים שלי? או שיש בהם איזה תוספת מידע מועילה? לשיקולך...)
תודה ענקית!
-
@סקרן-0 שאילתה כזו:
SELECT שכונות.שם_שכונה, רחובות.שם_רחוב, ערים.שם_עיר FROM (רחובות INNER JOIN שכונות ON רחובות.מזהה_שכונה = שכונות.מזהה_שכונה) INNER JOIN ערים ON רחובות.מזהה_עיר = ערים.מזהה_עיר
מניבה תוצאה נכונה או שגיאה כל שהיא?
ואם התוצאה נראית נכונה, האם בשאילתה הבאה ישנה התאמה בין הרחובות והערים והשכונה:SELECT רחוב, עיר, שכונה, שאילתה.שם_שכונה FROM תורמים LEFT JOIN ( SELECT שכונות.שם_שכונה, רחובות.שם_רחוב, ערים.שם_עיר FROM (רחובות INNER JOIN שכונות ON רחובות.מזהה_שכונה = שכונות.מזהה_שכונה) INNER JOIN ערים ON רחובות.מזהה_עיר = ערים.מזהה_עיר ) AS שאילתה ON שאילתה.שם_רחוב = תורמים.רחוב AND שאילתה.שם_עיר = תורמים.עיר
-
@dovid תיקנתי את זה בעצמי ולמרות זאת זה החזיר את אותה שגיאה.
האם אתה מתכוון לזה:SELECT ערים.שם, שכונה.שם_שכונה, רחובות.שם FROM ערים INNER JOIN (שכונה INNER JOIN רחובות ON שכונה.קוד_שכונה = רחובות.קודשכונה) ON (ערים.קוד = שכונה.קוד_עיר) AND (ערים.קוד = רחובות.קודעיר);
(השמות בפועל קצת שונים ממה שכתבתי בהתחלה, כמובן שתיקנתי אצלי לפני שעדכנתי על השגיאה)
נ.ב. בינתיים הרצתי אצלי את השאילתה שהבנתי שאתה מתכוון אליה, וחוזרת הודעת שגיאה על צירופים חיצוניים רב משמעיים...
(הגדרתי את הצירופים כצירוף שמאלי, שמציג את כל הרשומות מ"תורמים" ורק את הזהות ב"שאילתה", וכן שמרתי את שאילתת המשנה בנפרד, ועדיין...) -
@dovid אוקיי, אני חושב שהבנתי במה טעיתי... תיקנתי, והשאילתה עובדת - הנה:
SELECT תורמים.רחוב, תורמים.עיר, תורמים.שכונה, שאילתה.שם_שכונה FROM תורמים INNER JOIN (SELECT ערים.שם as עיר, שכונה.שם_שכונה, רחובות.שם as רחוב FROM ערים INNER JOIN (שכונה INNER JOIN רחובות ON שכונה.קוד_שכונה = רחובות.קודשכונה) ON ערים.קוד = רחובות.קודעיר ) AS שאילתה ON (תורמים.עיר = שאילתה.עיר) AND (תורמים.רחוב = שאילתה.רחוב);
כשעשיתי LEFT JOIN בין התורמים לשאילתתה המשנה חזרה טבלה ריקה, וכשעשיתי RIGHT JOIN חזרו כל השורות של התורמים וכן כל השורות של השכונות.
זה בסדר? או שיש חשיבות לצירוף השמאלי, ואז זה אומר שיש לי טעות?נ.ב. בתצוגה באתר יש ערבוב עם האנגלית, עכ"פ הכינויים לשדות בשאילתת המשנה הם בסדר...