Userform ile mdb dosyaları açma.

[vardar07]

Merhaba arkadaşlar.
Aşağıdaki kod ile userform üzerinden excell çalışma kitabını açabiliyoruz.
mdb uzantılı dosyaları açmak için nasıl bir değişiklik yapmak gerekir.

Private Sub CommandButton1_Click()
Unload Me
On Error Resume Next
YOL = "D:\EXCELL\ALACAK_VERECEK\ALACAK_VERECEK.xls"
Workbooks.Open Filename:=YOL
End Sub

 

[mancubus]

    With CreateObject("Access.Application")
        .Visible = True
        .OpenCurrentDatabase "D:\ACCESS\ALACAK_VERECEK\ALACAK_VERECEK.accdb"
    End With

 

[vardar07]

    With CreateObject("Access.Application")
        .Visible = True
        .OpenCurrentDatabase "D:\ACCESS\ALACAK_VERECEK\ALACAK_VERECEK.accdb"
    End With

Sayın mancubus çok teşekkürler .

 

[mancubus]

rica ederim.