AccessTr.neT

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.

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

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.)

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

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.

Uygulamanızın Son halini Access soruları bölümüne yeni konu açarak ekleyiniz. İnceleyip çözüm arayalım.