Microsoft Common Dialog Control trong Access (1 người xem)

[minhhungnc]

Trong Access tôi muốn dùng cách thực hành cách lấy dữ liệu từ Excel đưa vào Table bằng cách dưới đây theo người hướng dẫn.
"Dùng đối tượng DoCmd, một hình thức sử dụng macro của Access trong VBA. Ví dụ: Tạo form như hình 1, gồm có một textbox (đặt tên txtTapTinExcel), một nút lệnh (có dấu 3 chấm, đặt tên cmdTimTapTin), một nút lệnh (để đọc dữ liệu từ tập tin Excel có tên chứa trong ô txtTapTinExcel, đặt tên cmdDocDuLieuTuExcel) và một ActiveX Control có tên dlgTimTapTin. ActiveX Control này được tạo bằng cách bấm nút More Controls (nút cuối cùng) trên ToolBox, rồi chọn mục Microsoft Common Dialog Control. Lần lượt gõ vào các thủ tục xử lý tình huống OnClick của các nút lệnh cmdDocDuLieuTuExcel và cmdTimTapTin (đoạn mã 1). Bạn lưu ý, thứ tự và tên các cột trong tập tin Excel phải giống như cấu trúc table đã khai báo trong Access.
Đoạn mã :
Private Sub cmdTimTapTin_Click()
With dlgTimTapTin
.ShowOpen
txtTapTinExcel = .FileName
End With
End Sub

Private Sub cmdDocDuLieuTuExcel_Click()
Dim sTenTable As String
sTenTable = "tbNhanVien" ‘ Vñ duå
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, _
sTenTable, txtTapTinExcel, True
End Sub "

Nhưng khi tôi vào ToolBox chọn mục Microsoft Common Dialog Control vẽ lên Form thì Access báo lỗi, không thực hiện được.
Xin quý vị chỉ giúp để thực hiện được! Cảm ơn!

 

[ngocbkis2008]

Xin chào bạn. Bạn tạo nút Browse (...) như sau:
Bước 1: Bạn tạo Nút Command Button sau đó dặt tên tuỳ ý (Browse)
Bước 2: Viết Lệnh cho nút này như sau:
[FONT=&quot]dim fDialog as string
Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
With fDialog
.Title = "Chọn Tập Tin"
.Filters.Clear
.Filters.Add "hình ảnh", "*.xls"
.Filters.Add "All Files", "*.*"
If .Show = True Then
For Each varFile In .SelectedItems
msgbox varFile
Next
Else
MsgBox "You clicked Cancel in the file dialog box."
End If
End With
Vậy đó nhé
Chúc bạn thành công


[/FONT]

 

[ttqt30]

Cảm ơn bạn đã đưa ra ý kiến,Cho tôi hỏi Bạn lấy biểu tượng Common Dialog Control ở đâu sao Access máy mình không có?
Nó tự có trong Access hay phải tải xuống ở đâu mới cài vao??
Mong bạn giúp đở! Thanhk nhiều