Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
LỖI ko chon ĐƯỢC Microsoft DAO 3.6 cho Access2007
#1
Mình tạo Modul getFile (theo hướng dẫn Forum)
nhưng ko chon ĐƯỢC Microsoft DAO 3.6 cho Access2007

chạy thì báo lỗi:

---------------------------
[Hình: 301ScreenHunter_002.bmp]
---------------------------
[Hình: 486ScreenHunter_004.bmp]
----------------------------
[Hình: 624ScreenHunter_003.bmp]

BẠN NÀO GIÚP MÌNH VỚI
Chữ ký của thquanks Xin chào, mình là thquanks, Tham gia http://thuthuataccess.com/forum từ ngày 24-07 -13.
Reply
Những người đã cảm ơn
#2
Bạn post file lên mình xem thử.
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#3
(21-08-13, 09:39 AM)Noname Đã viết: Bạn post file lên mình xem thử.

--------------------
Private Sub cmdOpen_Click()
txtPath.Value = getFile("Select Data File", "data file", "*.mdb", "*.accdb")
End Sub

Private Sub cmdreLink_Click()
LinkTable "Cong_suat", txtPath
LinkTable "Data_DL", txtPath
LinkTable "Data_KH", txtPath
LinkTable "Dien_ap", txtPath
LinkTable "Dong_dien", txtPath
LinkTable "Hieu_loai", txtPath
LinkTable "Loai_tb", txtPath
LinkTable "Nuoc_sx", txtPath
LinkTable "tblEmployees", txtPath
LinkTable "Ten_dday", txtPath
LinkTable "Ten_don_vi", txtPath
LinkTable "Thoi_han", txtPath
LinkTable "UsysRibbons", txtPath
' SýÒa tên caìc table týõng ýìng thaÌnh cuÒa baòn
MsgBox " Da nhap thanh cong Data " & txtPath

End Sub
---------------------
Modul là:

Option Compare Database
Function getFile(Tit As String, formatName As String, formatType As String)
Dim dlgOpen As FileDialog
Set dlgOpen = Application.FileDialog(msoFileDialogOpen)
With dlgOpen
.Title = Tit
.Filters.Clear
.Filters.Add formatName, formatType
.AllowMultiSelect = False
result = .Show
If (result <> 0) Then
getFile = Trim(dlgOpen.SelectedItems.Item(1))
End If
End With

End Function

Sub LinkTable(T As String, path As String)
' kiêÒm tra table, nêìu coì rôÌi thiÌ xoìa ði
On Error GoTo Err

DoCmd.DeleteObject acTable, T
Err:
'link lai tablelink moi
DoCmd.TransferDatabase acLink, "Microsoft Access", path, acTable, T, T
End Sub
----------030
[Hình: 266ScreenHunter_006.bmp]
----------
Chữ ký của thquanks Xin chào, mình là thquanks, Tham gia http://thuthuataccess.com/forum từ ngày 24-07 -13.
Reply
Những người đã cảm ơn
#4
Hàm Getfile không sử dụng thư viện DAO mà sử dụng thư viện Microsoft Office xx Object Library
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Noname
#5
(21-08-13, 12:50 PM)Xuân Thanh Đã viết: Ham getfile khong sudung thu vien dao ma wu dung tbu vien microsoft office xx libary object

--- MÌNH ĐÃ CHỌN CÁC HÀM NHƯ SAU RỒI:

[Hình: 118ScreenHunter_007.bmp]

-----
Chữ ký của thquanks Xin chào, mình là thquanks, Tham gia http://thuthuataccess.com/forum từ ngày 24-07 -13.
Reply
Những người đã cảm ơn
#6
Mình vẫn chưa thấy bạn post file! Chưa thấy được dòng debug lỗi của bạn? làm sao chắc được là bạn lỗi ở function getfile hay một module nào khác?
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#7
(21-08-13, 03:21 PM)Noname Đã viết: Mình vẫn chưa thấy bạn post file! Chưa thấy được dòng debug lỗi của bạn? làm sao chắc được là bạn lỗi ở function getfile hay một module nào khác?

--- BẠN XEM GIÚP:--->
--- pass: admin ----

http://www.mediafire.com/?j7pop1k1yhnglyr
Chữ ký của thquanks Xin chào, mình là thquanks, Tham gia http://thuthuataccess.com/forum từ ngày 24-07 -13.
Reply
Những người đã cảm ơn
#8
Điểm sai thứ nhất là bạn đặt function Getfile vào module Startup.
Như ta biết, Startup cũng như macro Autoexec là những đối tượng đặc biệt trong Access. Vì vậy, không nên cho vào module này nếu bạn không định cho nó chạy khi khởi động.
Thứ 2,
Hàm getfile chỉ có 3 đối số, nhưng khi gọi hàm bạn lại truyền đến 4 đối số.
Mã:
getFile(Tit As String, formatName As String, formatType As String)


Mã:
txtPath.Value = getFile("Select Data File", "data file", "*.mdb","*.accdb")

Vì vậy bạn cần sửa lại như sau:
Mã:
txtPath.Value = getFile("Select Data File", "data file", "*.mdb;*.accdb")
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn thquanks
#9
Cảm ơn bạn NONEME nhìu ơi là nhìu nghe !!!!!!!
Chữ ký của thquanks Xin chào, mình là thquanks, Tham gia http://thuthuataccess.com/forum từ ngày 24-07 -13.
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Hướng Dẫn Tạo danh sách tùy chọn cho combo box trunghieu 6 1,328 10-04-14, 06:33 PM
Bài mới nhất: trunghieu
  Xin Được giúp đỡ Macro Tạo Enabled lovevirus1 2 655 26-07-13, 09:46 AM
Bài mới nhất: lovevirus1
  Lỗi Macro, Kiểu lựa chọn. amentd 5 2,709 07-02-11, 10:19 AM
Bài mới nhất: amentd

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ