Các viết lệnh trong AC

[dmphuc]

Xin chào các ban !

Các bạn có cách làm nào mở 1 file excel từ form của access không, hướng dẫn cho minh với, mình cảm ơn lắm lắm, chi tiết dùm nhe.

--------------------------
12-06-2009
Phúc

 

[xuanthanh]

Ðề: Các viết lệnh trong AC

Sub MoExcel()
    Dim fileEx As String
    fileEx = CurrentProject.Path & "\" & Me.TextBox1 & ".xls"    
    If (Dir(fileEx) <> "") Then
        Shell "Excel.exe " & """" & fileEx & """", vbMaximizedFocus
    Else
        MsgBox "File " & fileEx & " khong ton tai",,"Thong Bao"
    End If
End Sub

Trong Form có một TextBox1 chứa file Excel cần mở