@ממלכת-החינוך
באתי לכתוב לך שסיבת השגיאה ברורה אבל ראיתי שכבר הסתדרת ב''ה
בהצלחה
@עמוד-הימני-פטיש-החזק האם ישנה אפשרות להעלות מספר קבצים מהמחשב למספר שלוחות בבת אחת?
לדוגמא: קובץ 001 יעלה לשלוחה 1 וקובץ 002 יעלה לשלוחה 2?
תודה!
@ממלכת-החינוך
בזה זה אפשרי
@עמוד-הימני-פטיש-החזק זה רק לשרת פרייווט?
אני צריך לשרת רגיל...
@עמוד-הימני-פטיש-החזק והאם זה רק קובץ TTS?
מה עם קובץ wav - של שמע?
@עמוד-הימני-פטיש-החזק
עוד שאלה...
האם ישנה אפשרות שהקובץ אקסס ישמור את שם המערכת והסיסמא?
@ממלכת-החינוך
על ראשון ראשון
א' הכנתי עכשיו גם לשרת רגיל אמור לעבוד לא בדקתי אז אשמח לעדכון
ב' לעת עתה אין אפשרות לעלות קבצי wav לקובץ אקסס אולי בעתיד
ג' יש בצד טופס שנקרא נתוני ברירת מחדל ששם אפשר לשמור סיסמה ומספר מערכת
נערך ע''י עמוד הימני גירסה 0.4 העלאת הודעות מטבלה לשרת רגיל.accdb.zip
@עמוד-הימני-פטיש-החזק
מעונין להוריד קובץ ListAllInformation.ini
שהמערכת תזהה את הקובץ ולאחר"מ אוכל לכתוב בקובץ נתונים ולהעלות אותם בחזרה
או לחילופין אם שייך להוסיף שורות על הקובץ ListAllInformation.ini
ובכך אחסוך לעצמי את הצורך להורדת טבלה בכל פעם ניסתי עם הקוד שאריה הביא ולחצתי על הפקודה לעשות את העבודה וזה לא עשה כלום
@עמוד-הימני-פטיש-החזק @אריה אני מעוניין להעלות למערכת גם קבצי הגדרות וגם בכל שלוחה עוד קבצי טקסט TTS וכולי השאלה שלי היא האם יש אופציה שיהיה ניתן באקסס עצמו להוסיף עוד טור שבתוכו להזין את שם הקובץ שרוצים (כולל סיומת) או אם מישהו יכול להסביר לי איפה אפשר לשנות כדי שהוא יעלה נתונים כל פעם לאיפה שאני רוצה.
@עמוד-הימני-פטיש-החזק ניסיתי להוריד דוחו"ת האזנה, למה הוא לא מוריד את כל הטבלה כמו שהוא מופיע בימות המשיח? כל העמודות והכיתוב למעלה כפי שהוא מומר וכתוב שם!
@אריה אם אני רוצה פיתוח אישי, לא מסובך של שילוב אקסס וימות המשיח (יש לי כבר תוכנה ואני רק צריך את הקטע של הקישור עם ימות, זה לא משהו מסובך בכלל), האם מישהו כאן יוכל לעזור לי? המייל שלי זה A ואז 0548520378 שטרודל וכו'
כמובן בתשלום...
תודה רבה
האם י אפשרות להעלות לקובץ blacklist שנממצא בכניסה לקו
ששם יש את המספר =5
מכיון ואני לא הצלחתי להבין מספיק את הפירוק של הטקסט לטבלה, לא הסתדרתי...
אשמח עם מישהו יעזור לי איך לייבא קובץ INI באמצעות האקסס הנל לטבלה במחשב
או שיעלה קובץ אקסס עם אפשרות לייבא קבצי INI (ולא רק קבצי ygmr)
THX
@dudu כתב בקודים לתקשור עם מערכת טלפונית דרך אקסס:
@dudu אמר בקודים לתקשור עם מערכת טלפונית דרך אקסס:
@אריה אמר בקודים לתקשור עם מערכת טלפונית דרך אקסס:
במקרה בו רוצים לקבל את תוכן הטקסט ללא המרה לטבלה באקסס (כגון לקבצים שאינם בסיומת ymgr, קובץ ini למשל, אם רוצים 'לקרוא' הגדרות של שלוחה) אפשר לקרוא ישירות לפונקציה DownloadFile והופנקציה תחזיר את תוכן הקובץ
הפונקציה דורשת: מספר מערכת, סיסמה, כתובת הקובץ ושם הקובץ
דוגמא:DownloadFile "0771234567","1234","/1","ext.ini"@אריה היקר, אם אני רוצה אכן להוריד נתונים של קובץ ini אבל אני כן רוצה לאחסן אותם בטבלה, טבלה עם שדה אחד שבכל שורה מופיעה הגדרה אחת של הקובץ, וזאת כדי שאוכל לערות שינויים בקלות ולהעלות את הקובץ מחדש לאתר דרך הפונקציות המדהימות שבנית.
הבעיה שלי היא שלא הצלחתי ליצור טבלה כזו, הפונקציות שלך ליצירת טבלה מותאמות לקבצי ymgr המכילים % ו# האם יש לך אפשרות להעלות לכאן קוד היוצר טבלה מטקסט פשוט?תודה רבה ויישר כח!!
כבר הסתדרתי, תודה.
סליחה על ההקפצה אבל אני צריך ג"כ כזה דבר להוריד קובץ ListAllInformation.ini לתוך טבלה
אריה נתן פונקציה של הורדת כזה קובץ אבל לא הסביר לאיפה נכנסים הנתונים אני מבין שאתה מצאת את התשובה אשמח אם תוכל לעזור לי בזה
תודה רבה
@גבאי
אולי יעזור לך
קוד מוכן להוריד את הקובץ לטבלה מקומית, מצו"ב הקוד, שים לב להחליף את הטוקן
Function importListAllInformation() strtoken = "0770000000:1234" Set xhrRequest = CreateObject("Msxml2.ServerXMLHTTP.6.0") sURL = "https://www.call2all.co.il/ym/api/DownloadFile?token=" & strtoken & "&path=ivr/EnterID/ListAllInformation.ini" xhrRequest.Open "GET", sURL, False xhrRequest.Send Set oStream = CreateObject("ADODB.Stream") oStream.Open oStream.Type = 1 oStream.Write xhrRequest.ResponseBody DoEvents filePath = CurrentProject.Path & "\ListAllInformation.txt" If Len(Dir(filePath)) Then Kill filePath oStream.SaveToFile filePath oStream.Close filePath = CurrentProject.Path & "\ListAllInformation.txt" DoCmd.SetWarnings False TableIsExists = Not IsNull(DLookup("Name", "MSysObjects", "type in(1,6) and Name='ListAllInformation'")) If TableIsExists Then DoCmd.Rename "LAI_" & Now, acTable, "ListAllInformation" DoCmd.TransferText acImportDelim, "", "ListAllInformation", filePath, True, , 65001 Kill filePath MsgBox "בוצע בהצלחה", vbInformation, "בוצע" End Function
תיצור כפתור בטופס כל שהוא שיקרא לפוקנציה, דוגמא:
Private Sub Import_Click()
importListAllInformation
End Sub
@amp-Software-0 וואו
אין מילים
הצלת אותי
@amp-Software-0 כתב בקודים לתקשור עם מערכת טלפונית דרך אקסס:
importListAllInformation
יש אפשרות שהטבלה תשאר אותה טבלה כל פעם ולא טבלה חדשה?
כי כרגע המערכת מזהה את הנתונים ומגדירה אותם כמספר ולא כטקסט. מה שגורם שאני לא יכול להשתמש בנתונים אלו להעלות אותם בחזרה כיון שהאקסס השמיט להם את הספרה 0
מה שצריך זה א. שכל הנתונים יוגדרו כטסקט. ב. שישאר על אותה טבלה כך אוכל לעשות גם העלאת הנתונים חזרה (אחרי שאעשה בהם הוספות וכדו')
תודה רבה רבה
@גבאי
כשכתבתי את הקוד בזמנו התבקשתי ליצור גיבוי לטבלה הקיימת ולעשות ייבוא לטבלה חדשה
אם אתה רוצה שזה יכנס לאותה טבלה ניתן לעשות במקום זה פעולת מחיקה של הנתונים בטבלה לפני הייבוא
בצורה כזו אתה יכול להגדיר את הגדרות השדות של הטבלה, לכאורה זה אמור לפתור את הבעיה, אם לא צריך להגדיר מפרט ייבוא ספציפי עבור הטבלה שלך
להלן הקוד עם התיקון לייבוא לאותה הטבלה:
Function importListAllInformation() strtoken = "0770000000:1234" Set xhrRequest = CreateObject("Msxml2.ServerXMLHTTP.6.0") sURL = "https://www.call2all.co.il/ym/api/DownloadFile?token=" & strtoken & "&path=ivr/EnterID/ListAllInformation.ini" xhrRequest.Open "GET", sURL, False xhrRequest.Send Set oStream = CreateObject("ADODB.Stream") oStream.Open oStream.Type = 1 oStream.Write xhrRequest.ResponseBody DoEvents filePath = CurrentProject.Path & "\ListAllInformation.txt" If Len(Dir(filePath)) Then Kill filePath oStream.SaveToFile filePath oStream.Close filePath = CurrentProject.Path & "\ListAllInformation.txt" DoCmd.SetWarnings False TableIsExists = Not IsNull(DLookup("Name", "MSysObjects", "type in(1,6) and Name='ListAllInformation'")) If TableIsExists Then DoCmd.RunSQL "DELETE * FROM ListAllInformation" DoCmd.TransferText acImportDelim, "", "ListAllInformation", filePath, True, , 65001 Kill filePath MsgBox "בוצע בהצלחה", vbInformation, "בוצע" End Function
@amp-Software-0 עשיתי את זה וקיבלתי שגיאה האקסס הצהיב לי את השורה
DoCmd.RunSQL "SELETE * FROM ListAllInformation"