• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

LỖI ko chon ĐƯỢC Microsoft DAO 3.6 cho Access2007

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Macro
  • LỖI ko chon ĐƯỢC Microsoft DAO 3.6 cho Access2007
• LỖI ko chon ĐƯỢC Microsoft DAO 3.6 cho Access2007

• LỖI ko chon ĐƯỢC Microsoft DAO 3.6 cho Access2007

  thquanks > 21-08-13, 09:07 AM

  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:
  
  ---------------------------
  
  ---------------------------
  
  ----------------------------
  
  
  BẠN NÀO GIÚP MÌNH VỚI

• RE: LỖI ko chon ĐƯỢC Microsoft DAO 3.6 cho Access2007

  Noname > 21-08-13, 09:39 AM

  Bạn post file lên mình xem thử.

• RE: LỖI ko chon ĐƯỢC Microsoft DAO 3.6 cho Access2007

  thquanks > 21-08-13, 12:00 PM

  (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
  ----------
  
  ----------

• RE: LỖI ko chon ĐƯỢC Microsoft DAO 3.6 cho Access2007

  Xuân Thanh > 21-08-13, 12:50 PM

  Hàm Getfile không sử dụng thư viện DAO mà sử dụng thư viện Microsoft Office xx Object Library

• RE: LỖI ko chon ĐƯỢC Microsoft DAO 3.6 cho Access2007

  thquanks > 21-08-13, 02:42 PM

  (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:
  
  
  
  -----

• RE: LỖI ko chon ĐƯỢC Microsoft DAO 3.6 cho Access2007

  Noname > 21-08-13, 03:21 PM

  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?

• RE: LỖI ko chon ĐƯỢC Microsoft DAO 3.6 cho Access2007

  thquanks > 21-08-13, 04:28 PM

  (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

• RE: LỖI ko chon ĐƯỢC Microsoft DAO 3.6 cho Access2007

  Noname > 21-08-13, 05:19 PM

  Đ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")

• RE: LỖI ko chon ĐƯỢC Microsoft DAO 3.6 cho Access2007

  thquanks > 21-08-13, 05:30 PM

  Cảm ơn bạn NONEME nhìu ơi là nhìu nghe !!!!!!!
• Bài trước Bài tiếp