Đá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
  [Hỏi] Vấn đề về form field "String too long" lỗi “Run-time error '4609' vuthaiha90 9 354 02-06-17, 10:04 AM
Bài mới nhất: binlaxanh
  Demo Form Tìm kiếm (ngay khi gõ) nhiều tiêu chí (dùng Hàm) ongke0711 0 125 08-05-17, 02:33 AM
Bài mới nhất: ongke0711
  Cập nhật người dùng lên form hiển thị kutieu2016 2 160 15-04-17, 09:13 PM
Bài mới nhất: kutieu2016
  [Help] Mỗi ngày copy 1 file khác tên, khác nội dung vào 1 đích xuatquanvosau 5 309 07-04-17, 10:05 PM
Bài mới nhất: hieuvn
  [Hỏi] Lỗi run time error 424 phamhung 2 197 11-01-17, 12:10 PM
Bài mới nhất: phamhung

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ơ