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

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

    עזרה הדדית למשתמשים מתקדמים
    אקסס ימות המשיח
    49
    409
    43265
    טוען פוסטים נוספים
    • מהישן לחדש
    • מהחדש לישן
    • הכי הרבה הצבעות
    תגובה
    • הגיבו כנושא
    התחברו בכדי לפרסם תגובה
    נושא זה נמחק. רק משתמשים עם הרשאות מתאימות יוכלו לצפות בו.
    • 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
                    • ג
                      גבאי @תן חיוך 1 נערך לאחרונה על ידי גבאי

                      @תן-חיוך-1 תודה רבה על העזרה
                      זה עושה לי שגיאה (שיניתי את המספר מערכת כמובן)
                      ebddc39f-28f6-4b91-9be3-51dfb982f72a-image.png

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

                        אריה@
                        משום מה הורדת נתוני האזנה של כל החודש האקסס נתקע ולא זז וכן עשיתי הורדת נתונים עם המודול ymtImportFileFromServer וביקשתי להוריד את קובץ LogPlaybackPlayStop.2023.ymgr מהשלוחה שלו ואחרי קצת נהיה מסך שחור ונתקע

                        תגובה 1 תגובה אחרונה תגובה ציטוט 0
                        • הוזכר על-ידי  A amp Software 0 
                        • הוזכר על-ידי  ת תפארת1 
                        • S
                          sararivka נערך לאחרונה על ידי

                          אני הורדתי את הקובץ באקסס ועבד לי מצוין, עכשיו כשאני מנסה להריץ אותו בסביבת אקסס 2017, הוא לא מזהה לי את WebStatusCode
                          האם יש גרסה אחרת שצריך לעדכן או להוריד או להגדיר?

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

                            אני מקבל את השגיאה הבאה בקלאס WEBREESPONSE:
                            f0ad9718-ce92-426e-b4c6-fcf4c8dbea84-image.png

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

                              מעונין להוריד את קובץ ApprovalAll.ymgr הקובץ גדול האם יש הגדרה באקסס בכדי לזרז אתת מהירות ההורדה

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

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

                                תגובה 1 תגובה אחרונה תגובה ציטוט 0
                                • פוסט ראשון
                                  פוסט אחרון