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

@ראש-פינה תוסיף שדה טקסט בדוח.
תכתוב בנתונים =1.
במאפיין 'סכומים מצטברים' תשנה ל'מעל הכל'.

@ששא כתב בAPI לרשימת יישובים בישראל:

ויש גם כמה פעמים כל יישוב

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

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

מדריך שבנה צעד אחרי צעד תוכנה

@יהודי-טוב @Sara-Rivka האתר שהבאתם הוא בסגנון של מה שכתבתי שאני מעדיף?
לא שאני מזלזל בקורסים אחרים, רק ניסיתי לחפש סגנון מסויים של לימוד.
תודה!

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

@one1010 מה הסיומת של הקובץ?
תנסה לפתוח את הקובץ תוך כדי שאתה לוחץ של מקש שיפט.

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

for i = 1 to 10000
     'your code
next i

איפה זה מסתבך?
בלי לדעת את המבנה הבסיסי של התוכנה, לא נראה לי שאפשר לעזור יותר מזה...

@שמעון-חבצלת א. אתה צריך להוסיף לreferences את Microsoft scripting runtime.
ב. אתה יכול ליצור טבלה ובה לשמור את הערך האחרון שמתקבל בכל קריאה.

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

JsonConverter.bas

@OdedDvir
הצלחתי!
תודה!!!

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

תיבת בימון היא תמיד מלאה, או בFalse (שקר) או בTrue (אמת)

@האדם-החושב רצית משהו כזה?
עשיתי לך שאילתה שמכילה שדה שמשרשר את כל השיטות לשדה אחד (באמצעות קוד VBA).
מכאן ואילך אתה יכול לשחק עם זה איך שאתה רוצה.

תריג-מצוות.accdb

@מטעמים אתה יכול גם לעשות קוד VBA שיבדוק עם API של בנק ישראל.
לדוג' הבקשה הבאה:
https://data.gov.il/api/action/datastore_search?resource_id=1c5bc716-8210-4ec7-85be-92e6271955c2&filters={"Bank_Code":"52","Branch_Code":"172"}
תבדוק האם קוד בנק 52 (פאג"י) וקוד סניף 172 נכונה. במידה וכן היא תחזיר את פרטי הסניף.
זה לא יעזור לך לבדוק נכונות של פרטי החשבון, רק מספר בנק וסניף.

@מנחם תודה.
זה הרבה יותר יעיל ממה שאני כתבתי.

עריכה: סתם בשביל הסקרנות בדקתי...
הקוד שלי לקח על 50 רשומות משיטס 4 שניות, ושלך 3 שניות.
אז בזמן זה לא כ"כ משמעותי (לא אמור להיות בקובץ יותר מכמה עשרות רשומות), אבל זה בהחלט יותר פשוט ויעיל.

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

Public Function GetNewData()
Dim XL As Excel.Application, WB As Excel.Workbook
Dim WKS As Excel.Worksheet
Dim path As String

'קובץ האקסל עם חיבור לגוגל שיטס
path = "C:\Users\1\Downloads\חוברת1.xlsm"

'פתח את קובץ האקסל כדי לרענן את הנתונים
Set XL = New Excel.Application
XL.Visible = False
Set WB = XL.Workbooks.Open(path)
Set WKS = WB.Worksheets(1)
WKS.QueryTables.Item(1).Refresh

'המתן לסיום הריענון
Sleep (2000)

'יבא את הנתונים לטבלה חדשה זמנית
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12Xml, "חדשים", path, True

'סגור את הקובץ ונקה את המשתנים
WB.Close False

Set XL = Nothing
Set WB = Nothing
Set WKS = Nothing

'יבא נתונים חדשים מהטבלה הזמנית לטבלת הנתונים
CurrentDb.Execute "INSERT INTO נתונים SELECT חדשים.* FROM חדשים LEFT JOIN נתונים ON (חדשים.תאריך = נתונים.תאריך) AND (חדשים.טלפון = נתונים.טלפון) AND (חדשים.[שם פרטי] = נתונים.[שם פרטי]) AND (חדשים.[שם משפחה] = נתונים.[שם משפחה]) AND (חדשים.[חותמת זמן] = נתונים.[חותמת זמן]) WHERE (((נתונים.[חותמת זמן]) Is Null))"

'מחק את הטבלה הזמנית
DoCmd.DeleteObject acTable, "חדשים"

End Function

כמו שאמרתי, ברור שזה לא דרך המלך, אבל כרגע זה מה שאני יודע.
מה דעתכם על זה?
תודה.

@מלא סליחה, שכחתי להגיב על זה...
אכן גילית שיש כמה קבצים שכן יוצאים טוב, אז בדקתי מה המכנה המשותף לכל המשובשים, וגיליתי שכל הקבצים שיש להם גופן calibri יוצאים טוב, וכל מה שבגופן david משתבשים.
תודה רבה!

תודה.
בסוף עשיתי באמת ייבוא עם קוד VBA והלך בקלות.

@מלא אני חושב שבסוף @מטעמים הסביר מצוין מה הוא רוצה.

@מטעמים כתב בעזרה | משתנה חודשים עוקבים שחוזר לתחילת שנה:

נניח שאנחנו בחודש 11 ואני רוצה שיהיה כתוב בתא מקביל את החודש שיגמר הסמסטר, 4 חודשים קדימה. (חודש 03)

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

@laswater אתה פשוט מעביר את הטבלאות לקובץ אחר, או באופן ידני 'גזור-הדבק', או באופן אוטומטי בתפריט כלי מסד נתונים>מסד נתונים של Access שם יש לך פיצול מסד נתונים.
לאחר מכן אתה בקובץ של הטפסים נכנס לתפריט נתונים חיצוניים>מנהל טבלאות מקושרות, ושם אתה מקשר את הטבלאות לקובץ של הטפסים.
את הקובץ של הטבלאות אתה יכול לשמור בכל מקום, רק בניהול טבלאות מקושרות (כך קוראים לחיבור של שתי הקבצים) אתה מכניס את המיקום של הקובץ.
בעדכון, אם אתה רק מעדכן את הטפסים אתה פשוט שולח ללקוח קובץ חדש והוא מחליף את הישן בחדש, ואז הוא יצטרך מסתמא לעדכן את מיקום הטבלאות (בתפריט הנ"ל).
אם אתה רוצה גם לעדכן טבלאות, זה קצת יותר מסובך ותצטרך לעשות את זה באמצעות קוד VBA.