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

[איש ימיני]

@OdedDvir
בדקתי עכשיו עוד פעם וזה כך:
אני משתמש בזה לאתר כלשהו, ואת הנסיונות אתמול עשיתי על קישור אחר (קישור ששולח מיילים)

לאחר שעשיתי את האירוע לחיצה בטופס זה עזר רק לקישור ששולח המיילים, והקישור של האתר השני עדיין נשלח פעמיים!! (בשעה שכשאני פותח את הקישור באופן ידני בכרום זה כן עובד מצוין)
ניסיתי להחליף את הדפדפן ברירת מחדל ל-Microsoft Edge ומה שקרה שגם הקישור ששולח מיילים שלח פעמיים

[OdedDvir]

@איש-ימיני תוכל לפרט יותר? מה הפקד שמפעיל את הקישור (תיבת טקסט, לחצן)? איזה קוד רץ באירוע?

[איש ימיני]

@OdedDvir
זה קובץ לדוגמה (מחקתי את התוכן)
חוברת1.accdb

[OdedDvir]

@איש-ימיני אצלי עובד מצוין, מצ"ב הקובץ איש ימיני.accdb

[איש ימיני]

@OdedDvir
יש קישורים שעדיין שולח אצלי פעמיים
(קישורים של API שאני לא יכול להעלות לפורום)
יש אפשרות להגדיר שלאקסס לא לא יהא גישה לאינטרנט, רק יוכל לפתוח קישורים בכרום?
ואם כן, זה יעזור?

[OdedDvir]

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

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

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

Private Sub Expr1_Click()
      Debug.Print "Click Event called!"
      Application.FollowHyperlink Me!Expr1
End Sub

ותבדוק בחלון Immediate אם ההודעה מופיעה פעמיים אחרי הלחיצה על הפקד

[איש ימיני]

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

Immediate

זה מופיע לי אחרי הלחיצה

[OdedDvir]

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

[איש ימיני]

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

[איש ימיני]

@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

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

[איש ימיני]

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