קישור באקסס נשלח פעמיים
-
@איש-ימיני כתבת את הקוד במקום הלא נכון
תשנה את הקוד ל:Private Sub שדה1_Click() Application.FollowHyperlink Me!שדה1 End Sub
-
@איש-ימיני האם הפכת את סוג השדה לטקסט? כמו כן תבדוק במאפייני השדה שכל השדות הבאים ריקים:
-
@איש-ימיני האם הפכת את סוג השדה לטקסט? כמו כן תבדוק במאפייני השדה שכל השדות הבאים ריקים:
-
@איש-ימיני האם הפכת את סוג השדה לטקסט? כמו כן תבדוק במאפייני השדה שכל השדות הבאים ריקים:
-
@OdedDvir
בדקתי עכשיו עוד פעם וזה כך:
אני משתמש בזה לאתר כלשהו, ואת הנסיונות אתמול עשיתי על קישור אחר (קישור ששולח מיילים)לאחר שעשיתי את האירוע לחיצה בטופס זה עזר רק לקישור ששולח המיילים, והקישור של האתר השני עדיין נשלח פעמיים!! (בשעה שכשאני פותח את הקישור באופן ידני בכרום זה כן עובד מצוין)
ניסיתי להחליף את הדפדפן ברירת מחדל ל-Microsoft Edge ומה שקרה שגם הקישור ששולח מיילים שלח פעמיים -
@OdedDvir
בדקתי עכשיו עוד פעם וזה כך:
אני משתמש בזה לאתר כלשהו, ואת הנסיונות אתמול עשיתי על קישור אחר (קישור ששולח מיילים)לאחר שעשיתי את האירוע לחיצה בטופס זה עזר רק לקישור ששולח המיילים, והקישור של האתר השני עדיין נשלח פעמיים!! (בשעה שכשאני פותח את הקישור באופן ידני בכרום זה כן עובד מצוין)
ניסיתי להחליף את הדפדפן ברירת מחדל ל-Microsoft Edge ומה שקרה שגם הקישור ששולח מיילים שלח פעמיים@איש-ימיני תוכל לפרט יותר? מה הפקד שמפעיל את הקישור (תיבת טקסט, לחצן)? איזה קוד רץ באירוע?
-
@איש-ימיני תוכל לפרט יותר? מה הפקד שמפעיל את הקישור (תיבת טקסט, לחצן)? איזה קוד רץ באירוע?
-
@OdedDvir
זה קובץ לדוגמה (מחקתי את התוכן)
חוברת1.accdb@איש-ימיני אצלי עובד מצוין, מצ"ב הקובץ איש ימיני.accdb
-
@איש-ימיני אצלי עובד מצוין, מצ"ב הקובץ איש ימיני.accdb
-
@OdedDvir
יש קישורים שעדיין שולח אצלי פעמיים
(קישורים של API שאני לא יכול להעלות לפורום)
יש אפשרות להגדיר שלאקסס לא לא יהא גישה לאינטרנט, רק יוכל לפתוח קישורים בכרום?
ואם כן, זה יעזור?@איש-ימיני אמר בקישור באקסס נשלח פעמיים:
יש אפשרות להגדיר שלאקסס לא לא יהא גישה לאינטרנט, רק יוכל לפתוח קישורים בכרום?
ואם כן, זה יעזור?לא הבנתי את כוונתך. גם כך אקסס לא ניגש לאינטרנט, אלא פותח את הקישור בכרום.
עכ"פ הייתי מנסה לדבג ולראות קודם האם הארוע רץ פעמיים, תוסיף בקוד את השורה:Private Sub Expr1_Click() Debug.Print "Click Event called!" Application.FollowHyperlink Me!Expr1 End Sub
ותבדוק בחלון Immediate אם ההודעה מופיעה פעמיים אחרי הלחיצה על הפקד
-
@איש-ימיני אמר בקישור באקסס נשלח פעמיים:
יש אפשרות להגדיר שלאקסס לא לא יהא גישה לאינטרנט, רק יוכל לפתוח קישורים בכרום?
ואם כן, זה יעזור?לא הבנתי את כוונתך. גם כך אקסס לא ניגש לאינטרנט, אלא פותח את הקישור בכרום.
עכ"פ הייתי מנסה לדבג ולראות קודם האם הארוע רץ פעמיים, תוסיף בקוד את השורה:Private Sub Expr1_Click() Debug.Print "Click Event called!" Application.FollowHyperlink Me!Expr1 End Sub
ותבדוק בחלון Immediate אם ההודעה מופיעה פעמיים אחרי הלחיצה על הפקד
-
@איש-ימיני תבדוק האם זה מופיע פעם אחת והקישור עדיין נפתח פעמיים
(כמובן תזכור קודם למחוק את התוכן של חלון ה-Immediate) -
@איש-ימיני תבדוק האם זה מופיע פעם אחת והקישור עדיין נפתח פעמיים
(כמובן תזכור קודם למחוק את התוכן של חלון ה-Immediate) -
@איש-ימיני אמר בקישור באקסס נשלח פעמיים:
יש אפשרות להגדיר שלאקסס לא לא יהא גישה לאינטרנט, רק יוכל לפתוח קישורים בכרום?
ואם כן, זה יעזור?לא הבנתי את כוונתך. גם כך אקסס לא ניגש לאינטרנט, אלא פותח את הקישור בכרום.
עכ"פ הייתי מנסה לדבג ולראות קודם האם הארוע רץ פעמיים, תוסיף בקוד את השורה:Private Sub Expr1_Click() Debug.Print "Click Event called!" Application.FollowHyperlink Me!Expr1 End Sub
ותבדוק בחלון Immediate אם ההודעה מופיעה פעמיים אחרי הלחיצה על הפקד
@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
תבדוק האם גם עכשיו נפתח פעמיים
-
@איש-ימיני אפשר לנסות גישה אחרת, ולהשתמש בקריאת מערכת כדי לפתוח את הקישור
לשם כך עליך להצהיר על פונקצית 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
תבדוק האם גם עכשיו נפתח פעמיים