קודים לתקשור עם מערכת טלפונית דרך אקסס
-
@אריה תודה רבה רבה
עזרת לי מאוד
זה באמת עזר לי
יש לי עוד בעיה אחת עם הורדת ניקוד שהקבצים נוצרים לפי חודשים ואני צריך לכתוב כל פעם שם חודש אחד (כמו בדוחות האזנה)
יש לך איזה פיתרון טוב להציע לי? כמו שעשית בטופס של הורדת נתוני האזנה. -
@גבאי
תריץ את הקוד בלולאה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 -
@מנסה
על פניו לא ראיתי הבדל
אולי תוכל בבקשה לשלוח לי את הקובץ המתוקן תודה רבה
או לשלוח לי את הקובץ שדומה לשלך ואני יוסיף בו את הקבצים
תודה רבה -
אצלי המילה הזאת לא מופיעה
ואת הקובץ שלי קצת מסובך לי לשלוח [יש בו הרבה חומר ואין לי כח להתחיל למחוק]
ייתכן שכשעבדתי לתקן את זה הוספתי בעוד מקמות דברים נוספים, אלא שכעת אני לא זוכר בדיוק מה
אם אתה יכול תחקור את העניין שלב אחרי שלב איך זה עובד ואמור לעבוד לך
זה אני זוכר בבירור שאת הקטע שאמרתי לך להוסיף לא היה, מכאן ואילך אני כבר לא זוכר מה עוד עשיתי
תנסה לחפש בהסטורית הפורום כי זכור לי שכתבתי על זה
-
-
@מנסה
תודה על הרצון הטוב
מי שיש באפשרותו מידע נוסף בענין אשמח לקבל -
@אליהו
טיפלתי בבעיה שציינת ועדכנתי את הקובץ -
אפשר קישור לקובץ כי איני יודע היכן העלית אותו
-
@מנסה בפוסט הראשון
עדכנתי את הקובץ המקורי
https://f2.freeivr.co.il/topic/167/קודים-לתקשור-עם-מערכת-טלפונית-דרך-אקסס -
תודה רבה שיערתי שזה ככה
אלא, שלמערכת הזו הוסיף @עמוד-הימני-פטיש-החזק את האופציה להכניס בטבלאות פעולות של מחיקת/עדכון/העתקת קבצים
ובקובץ שלך שאומנם הוא מתוקן אבל אין בו את האופציות השימושיות האלו
נשמח אם תוכל לתקן בקובץ הנ"ל [כל המודלים גירסה???] שמחד יש בו את מקסי' השיפורים מאידך יתוקנו בו הדברים שלא תוקנו, ואז יהיה קובץ אחד מתוקן וחדש שבו הכל יופיע
ושוב תודה
-
@אריה מה יכול להיות הפיתרון לשגיאה זו?
msgbox הקובץ X לא נמצא בשלוחה X
debug:
