Skip to main content

AccessTr.neT


Başka bilgisayardaki dosyayı açtırma

Başka bilgisayardaki dosyayı açtırma

#13
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.
Cevapla
#14
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
Cevapla
#15
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.)
Cevapla
#16
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 LongPtr
Cevapla
#17
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.
Cevapla
#18
Uygulamanızın Son halini Access soruları bölümüne yeni konu açarak ekleyiniz. İnceleyip çözüm arayalım.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task