תחומים
    • הרשמה
    • התחברות
    • חיפוש
    • קטגוריות
    • פוסטים אחרונים
    • משתמשים
    • חיפוש
    חוקי הפורום

    קישור באקסס נשלח פעמיים

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

      @OdedDvir אמר בקישור באקסס נשלח פעמיים:

      Immediate

      זה מופיע לי אחרי הלחיצה
      c86e179c-e9eb-411c-af47-fd730ff8072b-image.png

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

        @איש-ימיני תבדוק האם זה מופיע פעם אחת והקישור עדיין נפתח פעמיים
        (כמובן תזכור קודם למחוק את התוכן של חלון ה-Immediate)

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

          @OdedDvir
          עדיין נשלח פעמיים
          ומופיע רק פעם אחת

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

            @OdedDvir אמר בקישור באקסס נשלח פעמיים:

            @איש-ימיני אמר בקישור באקסס נשלח פעמיים:

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

            לא הבנתי את כוונתך. גם כך אקסס לא ניגש לאינטרנט, אלא פותח את הקישור בכרום.

            לא יכול להיות שהאקסס מנסה קודם לגשת לבד ורק אח"כ פותח בכרום?

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

              @איש-ימיני אפשר לנסות גישה אחרת, ולהשתמש בקריאת מערכת כדי לפתוח את הקישור
              לשם כך עליך להצהיר על פונקצית API של Windows בשם ShellExecute
              פתח מודל חדש ותרשום

              Option Compare Database
              Option Explicit
              
              Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, _
                  ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, _
                  ByVal lpDirectory As String, ByVal lpnShowCmd As Long) As LongPtr
              
              Public Sub OpenURL(ByVal sURL As String)
                  ShellExecute 0, "open", sURL, "", "", 1
              End Sub
              

              עכשיו בקוד של הפקד תרשום פשוט

              Private Sub Expr1_Click()
                  OpenURL Me!Expr1
              End Sub
              

              תבדוק האם גם עכשיו נפתח פעמיים

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

                @OdedDvir
                עכשיו נשלח רק פעם אחת!!
                תודה רבה על הכל!!

                תגובה 1 תגובה אחרונה תגובה ציטוט 1
                • 1
                • 2
                • 2 / 2
                • פוסט ראשון
                  פוסט אחרון
                בא תתחבר לדף היומי!