אחרי כמה תגובות על הטפסים, אני מנסה לאחד את טפסי ההוספה לטופס נוח אחד.

אני מראה כאן קישור לבדיקה ( - תוכלו לנסות לכתוב ככל העולה על רוחכם ולשלוח - אין לכך משמעות אמיתית).

https://forms.gle/6Z9XBBnUjVoWxxAS7

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

@OdedDvir התגובות הבטוחות שלכם חיזקו בי את המחשבה שאולי זה לא עוד באג של אקסס אלא שלי.

ולמרות שביצעתי בקובץ המקורי את שלב 1 - הקמפול, זה לא הצליח להפוך ל ACCDE.
בנסיון להפוך את זה לקובץ ההרצה, הודעת השגיאה היתה אותה הודעה כמו במקרה שזה לא עובר קמפול.

מה שעבד באופן מפתיע זה דווקא כשעברתי על כל הקוד והסרתי את כל הפעמים שכתבתי ON ERROR GOTO (כהמלצתך @OdedDvir במקו"א) זה כן הסכים להפוך ל ACCDE .

תודה רבה!

@A0533057932 מקבל שגיאה 404

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

@פשוט-אבל-תותח בבקשה:

תייבא את הספריה VBA-JSON מכאן. תוריד את הקובץ bas ותייבא לפרוייקט שלך. תוסיף הפנייה לספרייה "Microsoft Scripting Runtime". הקוד הבא שולח בקשת GET ומחזיר מחרוזת של התוכן: Public Function HttpGet(url As String) As String Dim httpRequest As Object Set httpRequest = CreateObject("WinHttp.WinHttpRequest.5.1") Dim res As String httpRequest.Open "GET", url, False httpRequest.Send HttpGet = httpRequest.responseText End Function את התגובה אתה צריך לפרסר עם הספריה VBA-JSON.
הנה דוגמא לשימוש ב-API של טסטים, שמחזיר נתוני דמה של משתמשים, ושליפת ערך השדה "firstname" מהתגובה: Dim res As String Dim json As Object res = HttpGet("https://jsonplaceholder.typicode.com/users/1") Set json = ParseJson(res) MsgBox json("username")

התוצאה:
8199d788-ad65-44eb-b7e7-41d6fbdf870b-תמונה.png

:(טוב. אז אתן את הפתרונות שלי לבינתיים.

ראשית אסביר את הצורך:
פונקציות SHEETS יש בהם מעלה מבחינות מסוימות על JS:

הם צפויות מאוד, וכל הזמן יש תוצאה ברורה לערך הנצרך. משא"כ בJS שהיא שפה לא מקומפלת, אז יש התמודדות כל הזמן עם באגים אפשריים. הם עוקבות אחרי מיקומי התאים - ההפניות מתעדכנות, כך שאין סכנה שבשינוי שם גליון או מיקום תא הכל יקפוץ פתאום או יותר גרוע - יחשב בטעות בלי שנדע. אין בהם הגבלת זמן - בשונה מהגבלות הזמן של APP SCRIPT ל30 שניות לפעולה בודדת ושעה וחצי לכל יום לכל הפרויקטים של כתובת המייל הנוכחית (כשיש הרבה פרויקטים, או כשמתמשים בAPP SCRIPT למשהו אחר זה מגביל).

הצורך בשימוש ב JS:

פונקציות SHEETS כשהם מתחילות להיות ברמה גבוהה, הקובץ נטען לאט יותר. עד כדי סכנה מפני קפיאת הקובץ. בייבוא על ידי IMPORTRANGE , אם החישוב הקודם היה באמצעות פונקציות זה נחשב כבד יותר, ואז מהר מאוד נגיע לבאג של גוגל המעצבן שפתאום ללא התראה, גם כשהקובץ סגור, הפונקציה הופכת להיות ERROR.

אז הפתרון שלי:
יצרתי פונקציה מותאמת אישית (בתוך SHEETS - לא קשור לAPP SCRIPT) הכותבת תווים מיוחדים וממוקמת בגליון נפרד, שם כל אירוע קורא אותה.

קראתי לה SETVALUES והיא מחשבת את הפונקציות ופורסת את מערך התוצאה בשרשור ארוך בתא בו היא נמצאת, שאותו הJS קורא ומיישם.

הבעיה בפתרון שלי שמגבלות התאים הם 50,000 תווים לכל תא, כך שבמערכים גדולים - שעבורם השימוש, יהיה צורך לפצל וכו'... כך שעכ"פ זה גם לא פתרון מושלם.

נשמח לשמוע על רעיונות נוספים.

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

"oauthScopes": [ "https://www.googleapis.com/auth/spreadsheets" ],

בשביל להציג את המניפסט, יש ללחוץ על סמל ההגדרות מימין, ולסמן וי בהצג את המניפסט.

b7cec72d-f955-4907-a5bf-6db465ab46d1-image.png
2addc2e2-6c79-424a-8287-e9782015573e-image.png

@שואף תבדוק שאין מקש אחר שמשמש כALT כי ייתכן שהחלפת בטעות בין המקשים

@מלמדן קרא את חוקי הפורום.
ותשתדל לכתוב בלי טעויות כתיב.

@בער
הלואי והיה אפשר לפתור את זה ברמת הפורמס...
אם תדע, אשמח מאוד לשמוע, יהיה לי נפק"מ הרבה.

הפתרון הפשוט הוא ליצור בשיטס המקבל את הנתונים פונקציה

=ARRAYFORMULA(IF(A:A100="ארה""ב",B:B100,C:C100)

@ivrtikshoret אתה בטח מכיר אותה.
הורדתי את זה מכאן,
http://www.runtime.org/data-recovery-software.htm
ואצלי במחשב זה הותקן עם רישיון פרוץ, לא יודע איך.

במה זה יותר טוב מ easeus ?

במקרה שלי זה יותר טוב, כי הצלחתי לשחזר רוב התמונות באיכות מקורית, ולא כמו ב easeus שרק שחזר אבל לא הצלחתי לצפות בתמונות.

@ארי התשובה שקיבלתי מחברת קשר, אם רלוונטי למישהו:
הפסקנו לעבוד בשיטת GET עקב בעיות אבטחה, מעתה בקשות יתבצעו רק דרך POST, פרמטרים מועברים כ-BODY, במקום params עד עתה.
בהצלחה.

@מעלה-ומוריד ה- "משהו" הזה זה התוכנה שעושה גוקים או זבובים במסך, יכול להיות?

יש כזה קובץ שמסתובב....

@Y-Excel-Access
אני כל כך ניחשתי לעצמי שזה משהו טיפשי למדי כך שהתעצלתי במשך לילה שלם לכתוב כאן שאלה ...
כנראה שלא חישבנתי את מרפי...

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

@מעלה-ומוריד אני התחלתי תכנות ממאקרו בווורד. עזרתי לאחי להוציא ספר.
לא הכרתי שום דבר שאינו דרך המאקרו ועשיתי שמה ניסים ונפלאות עד שהחלטתי לברר על השפה, אולי יש שמה טריקים שאני לא מכיר, וככה אח"כ התקדמתי.
כל פעם שאתה רוצה אוטומציה הכי טוב לנסות קודם הקלטת מאקרו הכי ידני שאפשר, לראות את הקוד שנוצר ולנסות להתאים אותו.

@OdedDvir כתב באכסס - פתיחת שני טפסים במקביל:

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

אם הטופס לא נפתח מתוך הטופס הראשוני:

אי אפשר לפתוח שום טופס, מוקפץ או לא, אם הוא לא מודלרי.

אם הטופס נפתח מתוך הטופס הראשוני:

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

אני מצרף דוגמה שבניתי הרגע.‏‏Microsoft Access Database חדש.accdb

(יוצא שעדיין הנוסח הקודם שלי לא היה מדוייק...)