+- 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ığı: Başka bilgisayardaki dosyayı açtırma (/konu-baska-bilgisayardaki-dosyayi-actirma.html)
Cvp: Başka bilgisayardaki dosyayı açtırma - mgnes - 08/02/2018
Teşekkürler Ozan bey compiler sorununu çözdüm. Örnek dosyada ağdaki tam yolu metin kutusuna yazıp aç deyince çalıştı. Ancak formda dosya bul butonuna tıklayınca bir şey olmuyor. Bu butonun işlevini anlamadım.
Cvp: Başka bilgisayardaki dosyayı açtırma - ozanakkaya - 08/02/2018
Dosya bul butonuna tıkladığınızda açılan pencereden açılmasını istediğiniz Access uygulamasını seçebilirsiniz.
Butonda dosya bulma işlemi için kullanılan GetOpenFile_CLT modülü 64bitte çalışmaz.
Referanslara "microsoft Office X.X Object Library" referansını ekleyip butonun tıklandığında olayındaki kodu aşağıdaki ile değiştirerek deneyiniz.
Private Sub AdresBul_Click()
Dim vDir As Variant
Dim Sonuc As String
With Application.FileDialog(msoFileDialogOpen)
.Title = "Select a file"
.Filters.Clear
.Filters.Add "Access files", "*.accdb, *.mdb"
.AllowMultiSelect = False
.Title = "Dosya Seçiniz"
.InitialFileName = CurrentProject.Path
Sonuc = .Show
If (Sonuc <> 0) Then
Me![Metin4] = Trim(.SelectedItems.Item(1))
End If
End With
End Sub
Cvp: Başka bilgisayardaki dosyayı açtırma - mgnes - 09/02/2018
Merhaba Ozan bey söylediğinizi uyguladım "dosya bul" butonu çalıştı, bu kez de "aç" butonu çalışmadı, önceki durumda çalışıyordu. İlginize teşekkür ederim.
(Not: Referans eklemeyi de forumunuzdan öğrendim.)
Cvp: Başka bilgisayardaki dosyayı açtırma - ozanakkaya - 09/02/2018
64 Bit bilgisayar olmadığı için test etme imkanım yok. Modüldeki ilgili kodu 64 bite uyarlamanız gerekiyor.
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 LongPtrCvp: Başka bilgisayardaki dosyayı açtırma - mgnes - 12/02/2018
Merhaba, ilgili satırı bulup kodlarınızla değiştim sorun çözülmedi. - Run time Error '94', invalid use of null - hata penceresi açıyor. Teşekkürler.
Cvp: Başka bilgisayardaki dosyayı açtırma - ozanakkaya - 12/02/2018
Uygulamanızın Son halini Access soruları bölümüne yeni konu açarak ekleyiniz. İnceleyip çözüm arayalım.