Đá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
#21
(07-07-12, 11:08 AM)Xuân Thanh Đã viết:
(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
Mình đã đọc bài này của NoName: http://thuthuataccess.com/forum/thread-103.html
Đã làm theo được ở máy A, nhưng khi mình đem sang máy B chạy thì bị lỗi như mình đang hỏi ở chủ đề này, Noname bảo cài VB6 vào, hôm nay cty nghi nên mìn chưa cài được, để thứ 2 thử và báo lại tình trạng happy

Mình đọc đoạn code #20 của bác Xuân Thanh nhưng trường hợp này của bác giới hạn chỉ với 7 cột và 14 dòng. Nếu file excel của mình số dòng luôn thay đổi (số cột thì chắc cố định rồi) thì làm thế nào ạ

Trong trường hợp này mình đã thử tạo 1 nút Browse như hướng dẫn của Xuân Thanh, đã browse đến được file excel rồi, đã tạo 1 module với hàm bên dưới rồi
Vậy để import thì gọi hàm đó ở chỗ nào ạ sad

Mã:
Function ImExAc(tblTabName As String, shSheet As String, strFile As String)
    Dim Ex As Excel.Application
    Dim fileEx As Workbook
    Set fileEx = Ex.Workbooks.Open(strFile)
    Dim Ws As Worksheet
    Set Ws = fileEx.Worksheets(shSheet)
    Dim Rs As Recordset
    Set Rs = CurrentDb.OpenRecordset(tblTabName, dbOpenTable)
    'Gia su sheet Ex co so lieu tu A2:G15
    'Tuc co 7 cot(truong) va 14 dong(record)
    Dim i As Integer
    Dim j As Integer
    For i = 2 To 15
        Rs.AddNew
        For j = 1 To 7
            Rs.Fields(j - 1) = Ws.Cells(i, j)
        Next
        Rs.Update
    Next
End Function
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
#22
Thứ nhất : Như Noname nói "Mong bạn cải thiện được IQ của mình" nhưng.....
Thứ hai : Thay đổi số 7 và 15 theo file Ex của bạn
Thứ ba : Dùng hàm ImExAc của tôi thì sẽ vô tư cho file Ex của bạn vì hàm này là tổng quát của bài #20, muốn bao nhiêu cột, bao nhiêu dòng nó cũng dò ra
Thân

Muốn Import tạo một Command rồ dùng sự kiện click cvủa nó mà gọi hàm
Call .....
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
#23
(07-07-12, 09:59 AM)uronmapu Đã viết: 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

Muốn import từ Excel vào bảng thì đòi hỏi các trường của Excel và Access phải giống nhau nhen bạn.
Chữ ký của domfootwear Xin chào Guest, nếu Guest biết thủ thuật nào thì nên chia sẻ cho cộng đồng nhé.
ღღღღღTài sản của domfootwear (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#24
Điều này hiển nhiên rồi

File excel của mình có các trường giống hệt bảng trong access

(07-07-12, 02:11 PM)Xuân Thanh Đã viết: Thứ nhất : Như Noname nói "Mong bạn cải thiện được IQ của mình" nhưng.....
Thứ hai : Thay đổi số 7 và 15 theo file Ex của bạn
Thứ ba : Dùng hàm ImExAc của tôi thì sẽ vô tư cho file Ex của bạn vì hàm này là tổng quát của bài #20, muốn bao nhiêu cột, bao nhiêu dòng nó cũng dò ra
Thân

Muốn Import tạo một Command rồ dùng sự kiện click cvủa nó mà gọi hàm
Call .....

(07-07-12, 02:12 PM)domfootwear Đã viết:
(07-07-12, 09:59 AM)uronmapu Đã viết: 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

Muốn import từ Excel vào bảng thì đòi hỏi các trường của Excel và Access phải giống nhau nhen bạn.

Vâng e nhận là IQ của em thấp nên e mong các bác giúp đỡ em chút xiu ....
Hàm ImExAc của Xuân Thanh mình thấy j chạy đến 7 (7 cột) dòng i chạy đến 15(15 hàng) mà?đâu có tổng quát ạ?
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
#25
(07-07-12, 02:27 PM)uronmapu Đã viết: Vâng e nhận là IQ của em thấp nên e mong các bác giúp đỡ em chút xiu ....
Hàm ImExAc của Xuân Thanh mình thấy j chạy đến 7 (7 cột) dòng i chạy đến 15(15 hàng) mà?đâu có tổng quát ạ?

Cái hàm ấy nó ở đây nè http://thuthuataccess.com/forum/thread-5231.html
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
#26
Sorry bác happy đúng là IQ của e có vấn đề happy đã đọc và comment rồi mà lại quên

Bài này của bác không hợp 1 chỗ là khi nhập thì file excel lại phải copy vào 1 chỗ cố định và tên file cố định, liệu có khắc phục được ko ạ?

Call ImExAc(“tblDanhsachkhachhang”,”D:\Excel\Danh sach khach hang.xls”,”Danh sach”)
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
#27
(07-07-12, 02:54 PM)uronmapu Đã viết: Sorry bác happy đúng là IQ của e có vấn đề happy đã đọc và comment rồi mà lại quên

Bài này của bác không hợp 1 chỗ là khi nhập thì file excel lại phải copy vào 1 chỗ cố định và tên file cố định, liệu có khắc phục được ko ạ?

Call ImExAc(“tblDanhsachkhachhang”,”D:\Excel\Danh sach khach hang.xls”,”Danh sach”)

Thế cái file Excel tìm được sau khi Browse thì nằm ở đâu?
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
#28
Đúng rồi happy

Thế gọi hàm ImExAc khi đã browse đến file thế nào bác?

Call ImExAc ạ?
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
#29
Chưa trả lời câu hỏi làm sao trả lời? cái file Ex sau khi browse nằm ở đâu trên form?
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
#30
File excel của e đặt tại 1 folder con trong ổ C
Nút Browse của e dùng lênh bên dưới của bác
Em không biết khi nhấn browse thì file excel này sẽ nằm ở đâu sad
Xin bác chỉ thêm
Mã:
Private Sub cmdBrowse_Click()
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
    
End Sub
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


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 269 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 615 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 120 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 362 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ơ