|
|
|
Forum Newbie
Nhóm: Forum Members
Lần đăng nhập cuối: Sunday, February 28, 2010 9:30 AM
Đả gửi: 1,
Thăm: 2
|
|
Mình đang viết phần mềm quản lý thư viện bằng Access. Ý tưởng là khi Load chương trình sẽ tự động tìm tập tin Dulieu.MDB là tập tin chứa dữ liệu chương trình. Nếu không tìm thấy sẽ thông báo và cho phép mình lựa chọn lại đường dẫn để kết nối lại. Mình đã làm tạm tạm rồi nhưng lại gặp lỗi 424 "Object Required". Mong các cao thủ gỡ dùm!!!
Code của Form đăng nhập đây:
--------------------
Private Sub Form_Load()
On Error GoTo Form_LoadError
Dim db As DAO.Database
Dim rec As DAO.Recordset
Set db = CurrentDb()
Set rec = db.OpenRecordset("THONGTIN")
'Call Main
Dim vntTemp As Variant
Dim vnDummy As Variant
' Retrieve all the states in the table
'
Form_LoadExit:
Exit Sub
Form_LoadError:
If Err = 3024 Or Err = 3044 Then
MsgBox "Khong tim thay tap tin dulieu.mdb" & Chr(13) & "Ban phai ket noi den tap tin dulieu.mdb", vbCritical, "Loi"
Set fdialog = Application.FileDialog(msoFileDialogFilePicker)
With fdialog
.Title = "Ket noi tap tin 'dulieu.mdb' ..."
.Filters.clear
.Filters.Add "(*.MDB)", "*.mdb"
'"Hinh anh(*.BMP)", "*.bmp"
.Filters.Add "All Files", "*.*"
'.Action = 1
If .Show = True Then
'Loop through each file selected and add it to our list box.
For Each varFile In .SelectedItems
If Right(UCase(varFile), Len("\dulieu.mdb")) = "\dulieu.mdb" Then
' db.Close
' Set db = OpenDatabase(varFile)
' Set rec = db.OpenRecordset("THONGTIN") ' RecordSource = "SELECT * from thongtin"
' Me.Refresh
' MsgBox (fdialog.FileName)
Address.databasename = varFile 'Lỗi 424 báo tại dòng này
Address.Refresh
Resume Next
End If
Next
Else
MsgBox "Khong co tap tin dulieu.mdb" & Chr(13) & "Chuong trinh se dong lai ngay bay gio...", vbCritical, "QLTV"
DoCmd.Quit acQuitPrompt
End If
End With
'fdialog.Show
ElseIf Err <> 0 Then ' another error
MsgBox "Unexpected Error: " & Err.Description
End
End If
Resume Form_LoadExit
End Sub
|
|
|
|