+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Forma Dosya Ekleme - Eklenen Dosyayı açma (/konu-forma-dosya-ekleme-eklenen-dosyayi-acma.html)
Cvp: Forma Dosya Ekleme - Eklenen Dosyayı açma - atoz112 - 08/06/2016
sayın av.fatihberber,
bahsettiğiniz hataya dair;
kod sayfasında üst menüden TOOLS - REFERENCES penceresini açınız ve eğer sol kısımda MISSING ifadesi yer alıyorsa,ilgili referansı kendi sürümünüze göre yeniden seçerek işaretleyiniz.
C:\Program Files\Google\Google Earth\client\googleearth.exe
bir önceki mesajda yazılı olduğu gibi,
Alıntı:eğer referans görünmüyorsa,o zaman;referans seçimi için,BROWSE butonu ile Google Earth uygulamasının yer aldığı klasörden bu uygulamanın .EXE uzantılı dosyasını göstermek gerekmektedir.
açıklamasını deneyiniz.
son olarak;
profilinizde Ofis 2007 kullandığınızı belirtmişsiniz.eğer Google Earth uygulaması kuruluysa,yolun doğru olduğunu kontrol etmek için,bir üst cümledeki işlemi uygulayınız.
bilginize...iyi çalışmalar,saygılar.
Cvp: Forma Dosya Ekleme - Eklenen Dosyayı açma - atoz112 - 08/06/2016
sayın av.fatihberber,
eklenen uygulamanın neticesinde edinilen .kml uzantılı dosyanızın görselleri...
bilginize...iyi çalışmalar,saygılar.
Cvp: Forma Dosya Ekleme - Eklenen Dosyayı açma - av.fatihberber - 08/06/2016
hocam yol doğru. "missing" ifadesi de yer almıyor. ben google earth programını tekrar kurdum. ancak yine aynı hatayı alıyorum.
Cvp: Forma Dosya Ekleme - Eklenen Dosyayı açma - atoz112 - 18/06/2016
sayın av.fatihberber,
konunuzun 5.mesajında eklenen uygulama ile 8.mesajda dahile dilen ekran görüntülerinden de anlaşılacağı üzere,uygulamayı,kendi adıma sorunsuz kullanabilmekteyim.
eğer uygulamayı başka katılımcılar da kullanıp nasıl bir sonuç aldıklarını beyan ederlerse,bir bakıma edinilecek sonuçlar akabinde daha net değerlendirmelerde bulunulması muhtemel olacaktır.
son olarak;
konunuzun son durumu hakkında da ayrıntılı bilgilendirmede bulunmanız yerinde olacaktır kanısındayım.
bilginize...iyi çalışmalar,saygılar.
Cvp: Forma Dosya Ekleme - Eklenen Dosyayı açma - ozanakkaya - 18/06/2016
atoz112 hocam, eklediğiniz örnek açılıp buton tıklandığında "ActiveX component create object" hatası veriyor.
komut istemcisinden regsvr komutu ile referans exe uzantılı olduğundan kaydedilemiyor.
Modüldeki kod aşağıdaki ile değiştirildiğinde,
Option Compare Database
Option Explicit
Private Declare PtrSafe Function apiShellExecute 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
Public Const WIN_NORMAL = 1
Public Const WIN_MAX = 3
Public Const WIN_MIN = 2
Private Const ERROR_SUCCESS = 32&
Private Const ERROR_NO_ASSOC = 31&
Private Const ERROR_OUT_OF_MEM = 0&
Private Const ERROR_FILE_NOT_FOUND = 2&
Private Const ERROR_PATH_NOT_FOUND = 3&
Private Const ERROR_BAD_FORMAT = 11&
Function fHandleFile(stFile As String, lShowHow As Long)
Dim lRet As Long, varTaskID As Variant
Dim stRet As String
lRet = apiShellExecute(hWndAccessApp, vbNullString, _
stFile, vbNullString, vbNullString, lShowHow)
If lRet > ERROR_SUCCESS Then
stRet = vbNullString
lRet = -1
Else
Select Case lRet
Case ERROR_NO_ASSOC:
varTaskID = Shell("rundll32.exe shell32.dll,OpenAs_RunDLL " _
& stFile, WIN_NORMAL)
lRet = (varTaskID <> 0)
Case ERROR_OUT_OF_MEM:
stRet = "Error: Out of Memory/Resources. Couldn't Execute!"
Case ERROR_FILE_NOT_FOUND:
stRet = "Error: File not found. Couldn't Execute!"
Case ERROR_PATH_NOT_FOUND:
stRet = "Error: Path not found. Couldn't Execute!"
Case ERROR_BAD_FORMAT:
stRet = "Error: Bad File Format. Couldn't Execute!"
Case Else:
End Select
End If
fHandleFile = lRet & _
IIf(stRet = "", vbNullString, ", " & stRet)
End Function
ve formdaki butonun tıklandığında olayındaki kod aşağıdaki ile değiştirildiğinde
Call fHandleFile(CurrentProject.Path & "\" & "yer_imi_ornek.kml", WIN_NORMAL)kml uzantılı dosya google earth üzerinde açılıyor.
Cvp: Forma Dosya Ekleme - Eklenen Dosyayı açma - atoz112 - 18/06/2016
Sayın ozan,
Evet,modüldeki bu değişikliğin yapılması akabinde de;
ShellExecute ile bir uygulamayı başlatmak amacı için böyle bir API ile de kullanılabilmektedir.
teşekkürler paylaşım için.
İyi çalışmalar,saygılar.