@גבאי
אכן, זו שגיאה שנוצרת בגלל הצורה בה הקוד מפענח את שמות השדות שמופיעים בקובץ
מכיון שיש שדה Points המערכת מתעלמת מכל הופעה נוספת של Points ולכן אינה מתחשבת בשדה PointsTotal, שים לב שגם העמודות PointsValPoints .PointsLogName . PointsLogPoints הושמטו מאותה סיבה
בשביל לפתור את זה צריך לשנות את הצורה בה הקוד מפענח את השדות, או להצהיר מפורש על שמות השדות הקיימים בקובץ
@אריה
"או להצהיר מפורש על שמות השדות הקיימים בקובץ"
איך עושים את זה?
@אריה אין אפשרות לעשות שהקוד יזהה את השדה בצורה מלאה אז יתפוס גם את השדות האחרים שמכילים את המילה באופן חלקי?
(או שזה מה שהתכוונת לשנות את הצורה שהקוד מפענח את השדות)
@גבאי
במודול ImportingFiles בקוד ImportTextToTable
צריך להחליף את השורה הזאת
NamesFildsFile = GetNameFilds(strText)
ל-
NamesFildsFile = Array("Folder","Type","id",....)
וכן הלאה את כל רשימת השדות מופרדות בפסיק
כמובן זה ישנה את כל הקובץ, כך שלא תוכל להוריד קבצים נוספים
אם יהיה לי זמן אשתדל להעלות תיקון לקובץ שיכסה גם את המקרה הזה
@אריה תודה רבה רבה
עזרת לי מאוד
זה באמת עזר לי
יש לי עוד בעיה אחת עם הורדת ניקוד שהקבצים נוצרים לפי חודשים ואני צריך לכתוב כל פעם שם חודש אחד (כמו בדוחות האזנה)
יש לך איזה פיתרון טוב להציע לי? כמו שעשית בטופס של הורדת נתוני האזנה.
@גבאי
תריץ את הקוד בלולאה
months = Array("שם של הקובץ חודש1","שם של הקובץ חודש2",....) for f = 0 to Ubound(months) ymtImportFileFromServer UserName, Password, Folder, months(f), TableName, OnExists, RowToStart, RowToEnd, next
תחליף את הערכים הבאים:
UserName - מספר מערכת, Password - סיסמה, Folder - שלוחה בה מאוחסנים הקבצים, TableName - שם הטבלה בה לאחסון הנתונים, OnExists - איך להתנהג אם הטבלה קיימת (במקרה שלך יקרה ודאי כיון שאתה מייבא כמה קבצים לאותה טבלה, תבחר ב-2 או 3): 1 - מחיקת הטבלה הקיימת 2 - הוספת מספר רץ לשם הטבלה 3 ייבוא לתוך הטבלה הקיימת. RowToStart - שורה להתחיל, הכנס 0 כדי לייבא הכל, RowToEnd - שורה לסיום, הכנס 0 כדי לייבא הכל
@אריה הבעיה שבאפשרות זו אני צריך להכניס את כל החודשים ואת כל השנים מראש..... כי כל חודש נוצר קובץ חדש.
איך אני רושם בתוך הקוד שם של פקד מתוך טופס? כלומר שאני יעשה טופס ובו אני ירשום את החודש ושנה
והקוד יקח את שם הקובץ שאני ירשום לו פלוס מה שמופיע בפקד של הטופס פלוס הסיומת שאני ירשות בתוך הקוד עצמו.
נניח לקובץ points_log.2022-01.ymgr
אני רוצה לרשום points_log.[שנה]-[חודש].ymgr
איך רושמים את זה בתוך הקוד?
@גבאי לא הסברת את עצמך נכון, חשבתי שאתה מתכוין בפקודה אחת להוריד את כולם
בשביל מה שאתה צריך אתה צריך ליצור שני תיבות טקסט בטופס, strMonth ו - strYear
בפקודה שמופעלת בלחיצה על כפתור 'הורדה'
תחליף את השורה
ymtImportFileFromServer UserName, Password, Folder, FileName, TableName, OnExists, Nz(RowToStart, 0), Nz(RowToEnd, 0)
לזה
ymtImportFileFromServer UserName, Password, Folder, "points_log." & strYear & "-" & strMonth & ".ymgr", TableName, OnExists, Nz(RowToStart, 0), Nz(RowToEnd, 0)
כמו"כ אתה צריך להחליף את השורה הראשונה
If IsNull(UserName) Or IsNull(Password) Or IsNull(Folder) Or IsNull(FileName) Or IsNull(TableName) Then MsgBox "יש למלא את כל השדות": Exit Sub
בזה
If IsNull(UserName) Or IsNull(Password) Or IsNull(Folder) Or IsNull(strYear) Or IsNull(strMonth) Or IsNull(TableName) Then MsgBox "יש למלא את כל השדות": Exit Sub
@אריה עזרת לי מאוד מאוד תודה רבה
אגב שיפוץ קטן שלדעתי כדאי להוסיף בקובץ הכללי
אחרי שנוצר טבלה חדשה ע"י הקוד שלך לא רואים אותה עד שפותחים מחדש או מרעננים איכשהו את הטבלאות
אולי אפשר להוסיף בסיום כל הרצה של קוד שירענן את תצוגת הטבלאות.......
לא הצלחתי להעלאות רשימה לרשימת תפוצה
איך הטבלה שאני מעלה אמורה להראות
@מנסה אמר בקודים לתקשור עם מערכת טלפונית דרך אקסס:
יש שם באג בזה
[תקלה בקריאה לפונקציה]סידרתי את זה פעם והעלתי לכאן הסבר, לא זוכר איפה
אם יש מישהו שיוכל לעזור אודה לו מאוד
אתה צריך להוסיף את השורות הבאות במקום שהן מופיעות בתמונה
Case "UploadPhoneList" ymtUploadPhoneList UserName, Password, templateId, listparam2, listparam3, listparam4
שים לב היכן להוסיף [From_שיגור הודעות]
@מנסה אמר בקודים לתקשור עם מערכת טלפונית דרך אקסס:
אתה צריך להוסיף את השורות הבאות במקום שהן מופיעות בתמונה
Case "UploadPhoneList" ymtUploadPhoneList UserName, Password, templateId, listparam2, listparam3, listparam4
שים לב היכן להוסיף [From_שיגור הודעות]
הכנסתי את הנתונים!
מיקום התוספת.PNG
מביא לי הודעת שגיאה!
הודעת שגיאה.PNG
וכשאני פותח את המודול מסמן לי
@אליהו
אני לא מכיר את הקובץ שלך
השם של מיקום התוספת אצלך שונה
כך שאיני יודע מה עוד חסר לך
תעשה חיפוש למילים האלו [חיפוש בכל הפרוייקט]
ותבדוק שהכל נראה כמו בתמונות
UploadPhoneList
@מנסה
על פניו לא ראיתי הבדל
אולי תוכל בבקשה לשלוח לי את הקובץ המתוקן תודה רבה
או לשלוח לי את הקובץ שדומה לשלך ואני יוסיף בו את הקבצים
תודה רבה
אצלי המילה הזאת לא מופיעה
ואת הקובץ שלי קצת מסובך לי לשלוח [יש בו הרבה חומר ואין לי כח להתחיל למחוק]
ייתכן שכשעבדתי לתקן את זה הוספתי בעוד מקמות דברים נוספים, אלא שכעת אני לא זוכר בדיוק מה
אם אתה יכול תחקור את העניין שלב אחרי שלב איך זה עובד ואמור לעבוד לך
זה אני זוכר בבירור שאת הקטע שאמרתי לך להוסיף לא היה, מכאן ואילך אני כבר לא זוכר מה עוד עשיתי
תנסה לחפש בהסטורית הפורום כי זכור לי שכתבתי על זה
@מנסה
תודה על הרצון הטוב
מי שיש באפשרותו מידע נוסף בענין אשמח לקבל
