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

[OdedDvir]

@איש-ימיני
אתה צריך לבצע את הפעולות הבאות:

1. להפוך את השדה לשדה טקסט ארוך
2. ליצור טופס רציף שמציג את הרשומות
3. להוסיף ארוע לחיצה לפקד שמציג את הכתובת
4. לכתוב שם את הקוד הבא:

Application.FollowHyperlink Me!<שם הפקד>

[איש ימיני]

@OdedDvir
סליחה על הבורות אך אני לא מסתדר
ניסיתי להכניס את זה במאפיינים באירוע לחיצה וזה התוצאה

[OdedDvir]

@איש-ימיני בארוע הלחיצה אתה צריך לבחור [פרוצדורת אירוע], ללחוץ על הנקודות [...] ואז לרשום את הקוד (בתוך הפונקציה)

[איש ימיני]

@OdedDvir
לא הולך לי

[OdedDvir]

@איש-ימיני כתבת את הקוד במקום הלא נכון
תשנה את הקוד ל:

Private Sub שדה1_Click()
      Application.FollowHyperlink Me!שדה1
End Sub

[איש ימיני]

@OdedDvir
עכשיו עובד לי
אבל זה עדיין שולח פעמיים

[OdedDvir]

@איש-ימיני האם הפכת את סוג השדה לטקסט? כמו כן תבדוק במאפייני השדה שכל השדות הבאים ריקים:

[איש ימיני]

@OdedDvir
תיקנתי
עכשיו זה מצוין
תודה ענקית!!

[איש ימיני]

@OdedDvir
עכשיו בטופס אחר שוב נשלח פעמיים
אין לי את המאפיינים שיש לך
זה מה שיש לי

[איש ימיני]

@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

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