Xuân Thanh > 30-03-13, 12:27 PM
(30-03-13, 11:15 AM)tmtien261 Đã viết: Mình cũng gán qua biến Mydatabase theo trình tự như sau:
1. Trước khi chạy các Form "thực thi", chương trình mở Form gán đường dẫn (Form1). Sau khi nhất nút Button trình duyệt trên Form1 sẽ tìm đến và chọn file Mydata.accdb; Gán đường dẫn của file này vào Listbox.
2. Gán biến toàn cục Mydatabase vào đường dẫn vừa tìm được trong Listbox bằng lệnh: Mydatabase = Me.Listbox.RowSource
3. Tại "Private Sub" của chương trình khai báo:
...
Dim db as Database
Set db = OpenDatabase(Mydatabase)
...
Kết quả chương trình chạy nhưng vẫn báo bị lỗi như đã nêu. Không biết mình còn thiếu trình tự gì không ? Nhờ Xuân Thanh chỉ giúp !