Mở truy cập từ Excel VBA

Question

Chỉnh sửa: Câu trả lời cho câu hỏi này có thể được tìm thấy trong phần bình luận của câu trả lời được chấp nhận.

Tôi đang cố gắng mở cơ sở dữ liệu Access từ một nút bấm trong tệp excel của tôi. Tôi hiện đang có mã này:

Private Sub bttnToAccess_Click() 

Dim db As Access.Application 

Set db = New Access.Application 
db.Application.Visible = True 
db.OpenCurrentDatabase "C:\Users\wcarrico\Desktop\wcarrico-CapstoneFinalSubmission.accdb" 

End Sub 

Điều này dường như hoạt động một thời gian ngắn và sau đó Access tắt gần như ngay lập tức. Nếu nó quan trọng, tệp Access có macro AutoExec chạy qua một vài thử nghiệm khi mở.

Answer 1

Đừng cố mở ứng dụng Access sau đó; chỉ cần tạo đối tượng kết nối bằng một trong các công nghệ Truy cập dữ liệu: - OLE-DB hoặc - ODBC.

"Chuỗi kết nối ODBC" của Google hoặc "Chuỗi kết nối OLE-DB" để nhận chi tiết tùy thuộc vào cấu hình cụ thể của bạn (và Loại tệp truy cập).

Có lẽ ADODB là thư viện hiện tại dễ sử dụng nhất để truy cập dữ liệu của bạn.

Cập nhật: Hãy thử Nhập dữ liệu từ Access sau đó sử dụng các dữ liệu -> Từ Truy cập wizard. Yu luôn có thể sử dụng cơ sở mã hóa Macro để tự động tạo một số mã VBA cho bạn, điều đó sẽ tạo ra một số cơ sở hạ tầng cho bạn; Tôi sử dụng điều này thường xuyên khi khám phá các phần mới của mô hình đối tượng VBA.

Cập nhật - Độ phân giải cuối cùng của vấn đề, từ ý kiến ​​dưới đây
Đó có thể là do biến đi ra khỏi phạm vi; di chuyển khai báo của db bên ngoài hàm, thành cấp mô-đun

Answer 2

Mã bắt đầu bằng cách tạo một cá thể ứng dụng được gán cho một biến đối tượng. Khi kết thúc thủ tục, biến đã nằm ngoài phạm vi để Access tắt.

Bạn đã chấp nhận câu trả lời để sử dụng biến cấp mô-đun cho phiên bản ứng dụng Access. Trong trường hợp đó, Access vẫn chạy sau khi thủ tục kết thúc. Tuy nhiên, nếu người dùng thoát khỏi Excel, Access cũng sẽ đóng.

Nếu mục tiêu là bắt đầu truy cập và để nó chạy cho đến khi người dùng quyết định đóng nó, chỉ cần bắt đầu truy cập trực tiếp mà không gán phiên bản ứng dụng cho biến đối tượng (Set db = New Access.Application). Biến số db sẽ hữu ích nếu mã Excel của bạn cần nó cho các mục đích khác. Tuy nhiên, nó thực sự chỉ được sử dụng để mở tệp db.

Bạn có thể sử dụng phương pháp Run của WScript.Shell để mở tệp db trong phiên Truy cập.

Private Sub bttnToAccess_Click() 
    Const cstrDbFile As String = "C:\Users\wcarrico\Desktop\wcarrico-CapstoneFinalSubmission.accdb" 
    Dim objShell As Object 
    Set objShell = CreateObject("WScript.Shell") 
    objShell.Run cstrDbFile 
    Set objShell = Nothing 
End Sub 

Answer 3

Tôi biết đây là một chuỗi cũ, nhưng bạn sẽ gặp lỗi này trong Excel VBA nếu bạn đang cố mở cơ sở dữ liệu Access, nhưng bạn không có hai Tham chiếu cụ thể được nhấp. (Công cụ, Tài liệu tham khảo trên màn hình VBA Editor). Bạn cần phải bấm vào 'Microsoft Access 15.0 Object Library' và 'Microsoft ActiveX Data Objects 6.1 Library'.

Answer 4

Tháo khai New sau đó nó hoạt động