• הרשמה
    • התחברות
    • חיפוש
    • דף הבית
    • אינדקס קישורים
    • פוסטים אחרונים
    • קבלת התראות מהדפדפן
    • משתמשים
    • חיפוש בהגדרות המתקדמות
    • חיפוש גוגל בפורום
    • ניהול המערכת
    • ניהול המערכת - שרת private

    קודים לתקשור עם מערכת טלפונית דרך אקסס

    עזרה הדדית למשתמשים מתקדמים
    אקסס ימות המשיח
    49
    409
    43364
    טוען פוסטים נוספים
    • מהישן לחדש
    • מהחדש לישן
    • הכי הרבה הצבעות
    תגובה
    • הגיבו כנושא
    התחברו בכדי לפרסם תגובה
    נושא זה נמחק. רק משתמשים עם הרשאות מתאימות יוכלו לצפות בו.
    • מ
      ממלכת החינוך @עמוד הימני פטיש החזק נערך לאחרונה על ידי

      @עמוד-הימני-פטיש-החזק זה רק לשרת פרייווט?
      אני צריך לשרת רגיל...

      מ תגובה 1 תגובה אחרונה תגובה ציטוט 0
      • מ
        ממלכת החינוך @ממלכת החינוך נערך לאחרונה על ידי

        @עמוד-הימני-פטיש-החזק והאם זה רק קובץ TTS?
        מה עם קובץ wav - של שמע?

        תגובה 1 תגובה אחרונה תגובה ציטוט 0
        • מ
          ממלכת החינוך @ממלכת החינוך נערך לאחרונה על ידי ממלכת החינוך

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

          ע תגובה 1 תגובה אחרונה תגובה ציטוט 0
          • ע
            עמוד הימני פטיש החזק @ממלכת החינוך נערך לאחרונה על ידי

            @ממלכת-החינוך
            על ראשון ראשון
            א' הכנתי עכשיו גם לשרת רגיל אמור לעבוד לא בדקתי אז אשמח לעדכון
            ב' לעת עתה אין אפשרות לעלות קבצי wav לקובץ אקסס אולי בעתיד
            ג' יש בצד טופס שנקרא נתוני ברירת מחדל ששם אפשר לשמור סיסמה ומספר מערכת
            נערך ע''י עמוד הימני גירסה 0.4 העלאת הודעות מטבלה לשרת רגיל.accdb.zip

            א ה ש ת 4 תגובות תגובה אחרונה תגובה ציטוט 0
            • א
              אליהו @עמוד הימני פטיש החזק נערך לאחרונה על ידי

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

              תגובה 1 תגובה אחרונה תגובה ציטוט 0
              • ש
                שמואל ש. נערך לאחרונה על ידי

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

                תגובה 1 תגובה אחרונה תגובה ציטוט 0
                • ה
                  הלי @עמוד הימני פטיש החזק נערך לאחרונה על ידי

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

                  תגובה 1 תגובה אחרונה תגובה ציטוט 0
                  • ש
                    שמואל ש. @עמוד הימני פטיש החזק נערך לאחרונה על ידי

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

                    תגובה 1 תגובה אחרונה תגובה ציטוט 0
                    • הוזכר על-ידי  י יב 
                    • ש
                      שמעון חבצלת @אריה נערך לאחרונה על ידי

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

                      תגובה 1 תגובה אחרונה תגובה ציטוט 0
                      • א
                        אליהו נערך לאחרונה על ידי

                        האם י אפשרות להעלות לקובץ blacklist שנממצא בכניסה לקו
                        ששם יש את המספר =5

                        תגובה 1 תגובה אחרונה תגובה ציטוט 0
                        • הוזכר על-ידי  M MGM IVR 
                        • ב
                          ביתר טהורה 0 נערך לאחרונה על ידי

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

                          אשמח עם מישהו יעזור לי איך לייבא קובץ INI באמצעות האקסס הנל לטבלה במחשב
                          או שיעלה קובץ אקסס עם אפשרות לייבא קבצי INI (ולא רק קבצי ygmr)

                          THX

                          תגובה 1 תגובה אחרונה תגובה ציטוט 0
                          • הוזכר על-ידי  מ מתנסה php api 
                          • ג
                            גבאי @dudu נערך לאחרונה על ידי

                            @dudu כתב בקודים לתקשור עם מערכת טלפונית דרך אקסס:

                            @dudu אמר בקודים לתקשור עם מערכת טלפונית דרך אקסס:

                            @אריה אמר בקודים לתקשור עם מערכת טלפונית דרך אקסס:

                            במקרה בו רוצים לקבל את תוכן הטקסט ללא המרה לטבלה באקסס (כגון לקבצים שאינם בסיומת ymgr, קובץ ini למשל, אם רוצים 'לקרוא' הגדרות של שלוחה) אפשר לקרוא ישירות לפונקציה DownloadFile והופנקציה תחזיר את תוכן הקובץ
                            הפונקציה דורשת: מספר מערכת, סיסמה, כתובת הקובץ ושם הקובץ
                            דוגמא:

                            DownloadFile "0771234567","1234","/1","ext.ini"
                            

                            @אריה היקר, אם אני רוצה אכן להוריד נתונים של קובץ ini אבל אני כן רוצה לאחסן אותם בטבלה, טבלה עם שדה אחד שבכל שורה מופיעה הגדרה אחת של הקובץ, וזאת כדי שאוכל לערות שינויים בקלות ולהעלות את הקובץ מחדש לאתר דרך הפונקציות המדהימות שבנית.
                            הבעיה שלי היא שלא הצלחתי ליצור טבלה כזו, הפונקציות שלך ליצירת טבלה מותאמות לקבצי ymgr המכילים % ו# האם יש לך אפשרות להעלות לכאן קוד היוצר טבלה מטקסט פשוט?

                            תודה רבה ויישר כח!!

                            כבר הסתדרתי, תודה.

                            סליחה על ההקפצה אבל אני צריך ג"כ כזה דבר להוריד קובץ ListAllInformation.ini לתוך טבלה
                            אריה נתן פונקציה של הורדת כזה קובץ אבל לא הסביר לאיפה נכנסים הנתונים אני מבין שאתה מצאת את התשובה אשמח אם תוכל לעזור לי בזה
                            תודה רבה

                            A תגובה 1 תגובה אחרונה תגובה ציטוט 0
                            • A
                              amp Software 0 @גבאי נערך לאחרונה על ידי amp Software 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.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
                              
                              ג 2 תגובות תגובה אחרונה תגובה ציטוט 0
                              • ג
                                גבאי @amp Software 0 נערך לאחרונה על ידי

                                @amp-Software-0 וואו
                                אין מילים
                                הצלת אותי

                                תגובה 1 תגובה אחרונה תגובה ציטוט 0
                                • ג
                                  גבאי @amp Software 0 נערך לאחרונה על ידי

                                  @amp-Software-0 כתב בקודים לתקשור עם מערכת טלפונית דרך אקסס:

                                  importListAllInformation

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

                                  A תגובה 1 תגובה אחרונה תגובה ציטוט 0
                                  • A
                                    amp Software 0 @גבאי נערך לאחרונה על ידי amp Software 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
                                    
                                    ג תגובה 1 תגובה אחרונה תגובה ציטוט 0
                                    • ג
                                      גבאי @amp Software 0 נערך לאחרונה על ידי

                                      @amp-Software-0 עשיתי את זה וקיבלתי שגיאה האקסס הצהיב לי את השורה
                                      DoCmd.RunSQL "SELETE * FROM ListAllInformation"

                                      A תגובה 1 תגובה אחרונה תגובה ציטוט 0
                                      • A
                                        amp Software 0 @גבאי נערך לאחרונה על ידי

                                        @גבאי
                                        היה לי שגיאת כתיב
                                        תיקנתי כעת

                                        ג תגובה 1 תגובה אחרונה תגובה ציטוט 0
                                        • ג
                                          גבאי @amp Software 0 נערך לאחרונה על ידי

                                          @amp-Software-0 תודה רבה רבה
                                          אין לי מילים להודות לך
                                          למעשה לא הצלחתי עדיין להתגבר על הבעיה שהוא משמיט את האפסים יש לך רעיון איך לפתור את זה? או שאני יסדר באקסס עצמו שיוסיף 0

                                          ת תגובה 1 תגובה אחרונה תגובה ציטוט 0
                                          • ת
                                            תן חיוך 1 @גבאי נערך לאחרונה על ידי

                                            @גבאי
                                            יכול להיות שזה יעזור לך

                                            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, acImportText
                                            Kill filePath
                                            MsgBox "בוצע בהצלחה", vbInformation, "בוצע"
                                             
                                            End Function
                                            
                                            
                                            ג תגובה 1 תגובה אחרונה תגובה ציטוט 0
                                            • פוסט ראשון
                                              פוסט אחרון