Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Hỏi] Xin hỏi 1 lỗi khi dùng CommonDialog: Runtime error 438
#11
Chịu khó đọc và tư duy đi! Chưa tới 20 dòng mà! Khi nào bạn hiểu ý nghĩa từng dòng rồi mà làm không được thì hẳn hỏi!
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn uronmapu
#12
Đã trả lời ở đây rồi nè http://thuthuataccess.com/forum/post-133...l#pid13314
Không chịu đoc và tìm tòi mà cứ hỏi loạn xì ngầu lên, đâu cứ phải có Common Dialog mới được. Cái gì có sẵn thì nên dùng, nhươc bằng không có mới phải đi vay mượn
Chán
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 uronmapu
#13
Làm theo cách của xuân thành nhưng ko được

Mình tạo 1 nút button Browse với dòng lệnh bên dưới,

Mã:
Private Sub cmdBrowse_Click()
Dim fDialog As String
Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
With fDialog
.Title = "Cho.n Ta^.p Tin"
.Filters.Clear
.Filters.Add "hình a?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
    
End Sub

Khi click vào button để chạy thì báo lỗi

Compile error: Object required

Tại dòng Set fDialog
Chữ ký của uronmapu Cảm ơn cả nhà

Để học Access không nên ngại đặt câu hỏi


Uron
Reply
Những người đã cảm ơn
#14
(06-07-12, 07:43 PM)uronmapu Đã viết: Làm theo cách của xuân thành nhưng ko được

Mình tạo 1 nút button Browse với dòng lệnh bên dưới,

Mã:
Private Sub cmdBrowse_Click()
Dim fDialog As String
Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
With fDialog
.Title = "Cho.n Ta^.p Tin"
.Filters.Clear
.Filters.Add "hình a?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
    
End Sub

Khi click vào button để chạy thì báo lỗi

Compile error: Object required

Tại dòng Set fDialog

Đã chọn Microsoft Office Object ... Libary chưa? Đọc lại bài hướng dẫn của Noname
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 uronmapu
#15
Mình đã chọn chức năng này từ đầu rồi bạn ơi

Microsoft Access 12.0 Object Libraty
Microsoft Office 12.0 Object Libraty
Chữ ký của uronmapu Cảm ơn cả nhà

Để học Access không nên ngại đặt câu hỏi


Uron
Reply
Những người đã cảm ơn
#16
(06-07-12, 09:35 PM)uronmapu Đã viết:
(06-07-12, 06:08 PM)Noname Đã viết: Chịu khó đọc và tư duy đi! Chưa tới 20 dòng mà! Khi nào bạn hiểu ý nghĩa từng dòng rồi mà làm không được thì hẳn hỏi!

Có thể là em kém thông mình nên đọc đi đọc lại mà ko hiểu áp dụng sao cho import được từ excel vào 1 bảng tblNames trong access ...

Mong bác bớt chút thời gian hướng dân thêm giúp em

Cảm ơn
Đọc đi đọc lại ...nhưng có làm theo không? Lấy giấy viết ra, viết từng dòng một ý nó là gì, sau đó làm theo thử thế nào!
Sau khi chạy được, thử sửa vài thông số xem nó chạy thế nào...
Hy vọng bạn cải thiện được IQ
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn uronmapu
#17
Sửa lại thế này

Mã PHP:
On Error Resume Next
    Dim fDialog  
As FileDialog
    Dim varFile 
As Variant
    Set fDialog 
Application.FileDialog(msoFileDialogFilePicker)
    
With fDialog
      
.AllowMultiSelect True
      
.Title "Select One or More Files"
      
.Filters.Clear
      
.Filters.Add "Microsoft Excel""*.xls"
      
.Filters.Add "All Files""*.*"
      
If .Show True Then
         
For Each varFile In .SelectedItems
            Me
.txtTapTin varFile
         Next
      
Else
         
MsgBox "You clicked Cancel in the file dialog box."
      
End If
    
End With 

P/S : Sory hôm trước định nghĩa sai biến
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 uronmapu
#18
Ok rồi bác ạ, cái này browse đến được file excel rồi, nhưng sau khi chọn file excel và nhấn Open
Làm thế nào để import vào được ạ? (import các trường từ excel vào 1 bảng tblNames trong access)

Cảm ơn Xuân Thanh
Chữ ký của uronmapu Cảm ơn cả nhà

Để học Access không nên ngại đặt câu hỏi


Uron
Reply
Những người đã cảm ơn
#19
http://thuthuataccess.com/forum/thread-103.html
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn uronmapu
#20
(07-07-12, 10:21 AM)Noname Đã viết: http://thuthuataccess.com/forum/thread-103.html

Đọc #20 ý. Không làm được nữa thì ...chào thua
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 uronmapu


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Tạo Menu dạng TreeView bằng Query (không dùng ActiveX) ongke0711 4 268 06-12-16, 09:16 PM
Bài mới nhất: toancvp
  [Hỏi] Làm sao để ấn định Null cho trường Date khi sử dụng Class Module Minh Tiên 8 614 18-11-16, 09:29 AM
Bài mới nhất: MinhnHang
  [Help] Giúp đỡ về cách xóa nội dung trong một field nam8384 2 118 17-10-16, 08:43 PM
Bài mới nhất: toancvp
  [Hỏi] Sử dụng chuột giữa trong subform là report. toancvp 10 360 12-10-16, 01:01 AM
Bài mới nhất: toancvp
  [Help] Áp dụng query lọc dữ liệu nhập vào form amazonvn82 8 1,355 05-10-16, 03:11 PM
Bài mới nhất: amazonvn82

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ơ