• הרשמה
    • התחברות
    • חיפוש
    • דף הבית
    • אינדקס קישורים
    • פוסטים אחרונים
    • קבלת התראות מהדפדפן
    • משתמשים
    • חיפוש בהגדרות המתקדמות
    • חיפוש גוגל בפורום
    • ניהול המערכת
    • ניהול המערכת - שרת 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.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
                          • פוסט ראשון
                            פוסט אחרון