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

תחומים - פורום חרדי מקצועי

💡 רוצה לזכור קריאת שמע בזמן? לחץ כאן!
  1. דף הבית
  2. תוכנה
  3. אקסס|vba שימוש בresponsetext בשביל למלאות טופס

אקסס|vba שימוש בresponsetext בשביל למלאות טופס

מתוזמן נעוץ נעול הועבר תוכנה
10 פוסטים 3 כותבים 264 צפיות
  • מהישן לחדש
  • מהחדש לישן
  • הכי הרבה הצבעות
התחברו כדי לפרסם תגובה
נושא זה נמחק. רק משתמשים עם הרשאות מתאימות יוכלו לצפות בו.
  • צבי-שצ מחובר
    צבי-שצ מחובר
    צבי-ש
    כתב ב נערך לאחרונה על ידי צבי-ש
    #1

    אני עושה בקשת HTTP בקוד VBA ,
    אני מצפה לקבל חזרה JSON עם מספר נתונים,
    למשל
    ID=1
    NAME = צבי

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

    (כשאני לוחץ על כפתור של פתיחת הטופס, יהיה שאילתה מאחורי הקלעים [את זה כבר עשיתי, כמו שמופיע פה] ואז שיפתח טופס שחלקו ניתן לעריכה כמו NAME וחלקו לא כמו ID אבל שהכל יוצג, רק שחלק לא יהיה ניתן לעריכה)
    הכל נמצא ב XMLHTTP.responsetext
    רק לא הצלחתי למצוא איך אני מגדיר לו למלאות לפי זה את הטופס
    הסתבכתי בזה קצת, אשמח למידע, קישור להסבר וכו'

    כיף לגלות דברים חדשים.
    חוק ה-50-50-90: בכל פעם שיש סיכוי של 50-50 שמשהו יעבוד, יש סיכוי של 90 אחוז שהוא לא. מקור

    א תגובה 1 תגובה אחרונה
    0
    • א מנותק
      א מנותק
      ארי
      השיב לצבי-ש ב נערך לאחרונה על ידי
      #2

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

      צבי-שצ תגובה 1 תגובה אחרונה
      2
      • צבי-שצ מחובר
        צבי-שצ מחובר
        צבי-ש
        השיב לארי ב נערך לאחרונה על ידי צבי-ש
        #3

        @ארי אמר באקסס|vba שימוש בresponsetext בשביל למלאות טופס:

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

        אני מצליח להפוך לערכים,
        אני לא מצליח להכניס אותם אחרי זה בטופס חדש.

        כיף לגלות דברים חדשים.
        חוק ה-50-50-90: בכל פעם שיש סיכוי של 50-50 שמשהו יעבוד, יש סיכוי של 90 אחוז שהוא לא. מקור

        א תגובה 1 תגובה אחרונה
        0
        • א מנותק
          א מנותק
          ארי
          השיב לצבי-ש ב נערך לאחרונה על ידי
          #4

          @צבי-ש תראה את הקוד שלך.

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

            @ארי אמר באקסס|vba שימוש בresponsetext בשביל למלאות טופס:

            @צבי-ש תראה את הקוד שלך.

            מבוסס כולו כרגע על מה שכתבתי פה
            https://tchumim.com/topic/13007/לתועלת-הציבור-קובץ-אקסס-לסליקה-באשראי-דרך-נדרים-פלוס?_=1657139354384
            עכשיו אני רוצה לקבל מאתר אחר ולא מנדרים פלוס,
            ולשלב את זה בטופס חדש.

            כיף לגלות דברים חדשים.
            חוק ה-50-50-90: בכל פעם שיש סיכוי של 50-50 שמשהו יעבוד, יש סיכוי של 90 אחוז שהוא לא. מקור

            א תגובה 1 תגובה אחרונה
            0
            • א מנותק
              א מנותק
              ארי
              השיב לצבי-ש ב נערך לאחרונה על ידי
              #6

              @צבי-ש אתה נתקע רק בהכנסה של הנתונים לטופס, לא?
              אז תצרף את הקוד הרלוונטי.

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

                @ארי אמר באקסס|vba שימוש בresponsetext בשביל למלאות טופס:

                @צבי-ש אתה נתקע רק בהכנסה של הנתונים לטופס, לא?
                אז תצרף את הקוד הרלוונטי.

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

                כיף לגלות דברים חדשים.
                חוק ה-50-50-90: בכל פעם שיש סיכוי של 50-50 שמשהו יעבוד, יש סיכוי של 90 אחוז שהוא לא. מקור

                OdedDvirO תגובה 1 תגובה אחרונה
                0
                • OdedDvirO מחובר
                  OdedDvirO מחובר
                  OdedDvir
                  השיב לצבי-ש ב נערך לאחרונה על ידי OdedDvir
                  #8

                  @צבי-ש אתה צריך לחלץ את הערכים שקיבלת בתגובה.
                  לשם כך אתה צריך להמיר את מחרוזת ה-JSON לאובייקט, שיחזיק את כל הערכים. לא ברור מהתשובה שלך האם עברת את השלב הזה.
                  אם כן, כעת זה פשוט:
                  אם אתה שומר את הערכים של האובייקט בטבלה, פשוט תבסס את הטופס עליה ותפתח אותו ברשומה המתאימה.
                  אם אתה לא שומר את הערכים, אתה צריך לאתחל את הפקדים של הטופס עם הערכים. למשל באירוע הטעינה של הטופס:

                  Private Sub Form_Load()
                     me.txtFirstName = firstName
                     me.txtLastName = lastName
                     ....
                  End Sub
                  
                  תגובה 1 תגובה אחרונה
                  3
                  • צבי-שצ מחובר
                    צבי-שצ מחובר
                    צבי-ש
                    כתב ב נערך לאחרונה על ידי
                    #9

                    אני יצאתי מבולבל לגמרי מעצמי,
                    אני צריך לעשות טופס שלוקח ID&PHONE
                    שולח לשרת , מקבל ערכים רבים, ומציג אותם בטופס כאשר את חלקם ניתן לערוך וחלקם לא,
                    את החלק של השליחה בלבד אני עושה כך:

                    Dim XMLHTTP
                    Dim Result As String
                    Dim argumentString
                    "id=" & id & "&phone=" & phone
                    Set XMLHTTP = CreateObject("MSXML2.XMLHTTP.6.0")
                    XMLHTTP.Open "POST", _
                        "www.domain.xom", False
                    XMLHTTP.setRequestHeader "Content-type", "application/x-www-form-urlencoded; charset=UTF-8"
                    XMLHTTP.send argumentString
                    Result = XMLHTTP.responsetext
                    Set XMLHTTP = Nothing
                    

                    אשמח לעזרה מהרגע הזה ואילך,
                    כי פה התחלתי להסתבך

                    כיף לגלות דברים חדשים.
                    חוק ה-50-50-90: בכל פעם שיש סיכוי של 50-50 שמשהו יעבוד, יש סיכוי של 90 אחוז שהוא לא. מקור

                    OdedDvirO תגובה 1 תגובה אחרונה
                    0
                    • OdedDvirO מחובר
                      OdedDvirO מחובר
                      OdedDvir
                      השיב לצבי-ש ב נערך לאחרונה על ידי OdedDvir
                      #10

                      @צבי-ש אמר באקסס|vba שימוש בresponsetext בשביל למלאות טופס:

                      אשמח לעזרה מהרגע הזה ואילך,

                      אחרי השורה:

                      Result = XMLHTTP.responsetext
                      

                      המשתנה Result מכיל את התגובה שקיבלת.
                      התגובה מתקבלת כמחרוזת JSON. זו דרך לייצוג אובייקט המכיל ערכים רבים, באמצעות מחרוזת אחת ויחידה, המכילה זוגות של מפתח-ערך. תהליך זה נקרא: סריאליזציה.
                      אתה לא אמור לשלוף ישירות את הערכים מהמחרוזת, אלא להמיר אותה בחזרה לאובייקט. זה התהליך ההפוך הנקרא: דיסריאליזציה.
                      כמש"כ לעיל:

                      אתה צריך לחלץ את הערכים שקיבלת בתגובה.
                      לשם כך אתה צריך להמיר את מחרוזת ה-JSON לאובייקט, שיחזיק את כל הערכים. לא ברור מהתשובה שלך האם עברת את השלב הזה.

                      תגובה 1 תגובה אחרונה
                      6

                      בא תתחבר לדף היומי!
                      • התחברות

                      • אין לך חשבון עדיין? הרשמה

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