[ Φόρμες ] Άνοιγμα Υπερσύνδεσης με μη προεπιλεγμένο browser

[ggreg75]

Καλησπέρα σε όλη την ομάδα,

Έχω έναν πίνακα με ονομασία URLS.

Σε αυτόν υπάρχει μονο ένα πεδίο με ονομασία URL

Πως μπορώ να ανοίξω την υπερσύνδεση με τον "Microsoft Edge" χωρίς αυτός να είναι ο προεπιλεγμένος Brower σε αρχείο access 2013;

Ευχαριστώ εκ των προτέρων

Γρηγόρης

[pctechdr]

Καλημέρα
Edge Exploring.accdb

[ggreg75]

Καλησπέρα Χρήστο,

Ο κώδικας βγάζει το συνημμένο σφάλμα.

Μπορείς να με βοηθήσεις

Ευχαριστώ

Γρηγόρης

[pctechdr]

64Bit Access εχεις?

[ggreg75]

Ναι.
Πως μπορούμε να προσαρμόσουμε τον κώδικα για να τρέχει σε 64bit;

[pctechdr]

#If VBA7 Then
Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As LongPtr, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPtr
#Else
Private Declare 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 nShowCmd As Long) As Long
#End If

Δοκιμασε αυτο

[ggreg75]

Χρήστο καλησπέρα,
Τον κώδικα αυτό σε ποιο ακριβώς σημείο το βάζω;

Ευχαριστώ

Γρηγόρης

[pctechdr]

Σβήνεις όλα τα κόκκινα και βάζεις αυτόν τον κώδικα.

[ggreg75]

Είναι εντάξει τώρα,

Ευχαριστώ πολύ Χρήστο

[pctechdr]

Να είσαι καλά. Καλή συνέχεια με την εφαρμογή σου αν και σου συνιστώ να αλλάξεις σε 32bit για λόγους συμβατότητας.