uronmapu > 02-07-12, 10:15 PM
(13-01-11, 07:52 PM)Noname Đã viết: mục đích của active x control Microsoft Common Dialog Control để browse tới file thôi. Bạn có thể cài full office sẽ có . Hoặc thay thế bằng hàm gì ấy trong topic này:
http://thuthuataccess.com/forum/Thread-t...1-password
Xuân Thanh > 05-07-12, 03:44 PM
(02-07-12, 10:15 PM)uronmapu Đã viết:(13-01-11, 07:52 PM)Noname Đã viết: mục đích của active x control Microsoft Common Dialog Control để browse tới file thôi. Bạn có thể cài full office sẽ có . Hoặc thay thế bằng hàm gì ấy trong topic này:
http://thuthuataccess.com/forum/Thread-t...1-password
Mình cài full mà vẫn bị bạn ạ, link bạn gửi sai rồi nhé
uronmapu > 05-07-12, 05:23 PM
taoladarkpro > 30-08-12, 11:58 AM
Xuân Thanh > 30-08-12, 12:55 PM
(30-08-12, 11:58 AM)taoladarkpro Đã viết: Anh Noname ơi ! cho em hỏi cái này chút ! Em có cái file excel tên là lsgd, giờ muốn viết cái chương trình import cái file đó vào access, sau đó chỉ lấy 2 cột trong file excel, cột thứ nhất là ngày gd, cột thứ 2 là số dư cuối.
Ngày gd : thì phải hiện đầy đủ từ 1 -> cuối tháng, mặc dù trong file excel có khi không bắt đầu từ ngày 1
Số dư cuối : nếu ko có phát sinh trong ngày ( giao dịch ) thì số dư cuối của ngày đó bằng số dư đầu của ngày sau !
Em đưa cho anh file excel và asscess bạn coi giúp mình nha, chân thành cảm ơn !
http://www.mediafire.com/?umpnncvz7use0p4
taoladarkpro > 30-08-12, 05:32 PM
tsingle > 14-11-12, 09:47 PM
(05-07-12, 03:44 PM)Xuân Thanh Đã viết: Nếu không có Common Dialog Control Dể browse file thì thay thế bằng cái này
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:
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é, thử xem
P/S : Chưa test với Acc 2007 trở lên
Nếu không thì lên mạng tim COMDLG32.OCX rồi copy cái này vào System32 và khởi động lại máy
tsingle > 20-11-12, 10:37 AM
(14-11-12, 09:47 PM)tsingle Đã viết: Máy mình không có Microsoft Common Dialog Control mà chỉ có Common Dialog Class, chắc là cái này. Mà không hiểu sao mình không thêm vào form được , bị báo lỗi như sau dù mình đã cài đặt full cho access:
"The operation on the OLE object faied. The OLE sever may not to be registered. To register the OLE sever, reinstall it."
Mình thử thì cũng có một số chức năng khác bị báo lỗi như vậy. Không biết có cần cài đặt thêm cái gì không nhỉ? Mình đã dùng thử trên cả office 2003 và office 2010.
(05-07-12, 03:44 PM)Xuân Thanh Đã viết: Nếu không có Common Dialog Control Dể browse file thì thay thế bằng cái này
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:
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é, thử xem
P/S : Chưa test với Acc 2007 trở lên
Nếu không thì lên mạng tim COMDLG32.OCX rồi copy cái này vào System32 và khởi động lại máy
Mình dùng cách này của Xuân Thanh thì bị báo lỗi Object required tại dòng "Set fDialog = Application.FileDialog(msoFileDialogFilePicker)"
ndthanh29 > 30-07-13, 08:37 AM
The Operation on the OLE Object Failed
The OLE server may not be registered.
To register the OLE server, reinstall it.ttqt30 > 21-10-14, 07:22 PM