• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Thủ Thuật Access

• Trang chủ

  • Thủ Thuật Access
  • Trang chủ
•   Tạo log file trong Access (cùng thảo luận và ý kiến)
  

  Viết bởi: uronmapu 11-06-12, 06:00 PM Chuyên mục: Forms - Bài trả lời (1)

• Chào cả nhà,
  
  Cho mình hỏi làm thế nào để tạo ra 1 log file ghi lại tất cả mọi hành động trên file access ko ạ?
  
  Em có 1 form NewContact, có tạo ra nút New, nút Update nút Save, nút Delete
  
  Làm thế nào để e biết được người dụng 1 ngày tạo mới, cập nhật, lưu lại, xóa bao nhiêu contact?
  
  Cảm ơn
  


•   Sửa đổi trong Listbox !
  

  Viết bởi: daiphong1979 11-06-12, 03:22 PM Chuyên mục: Forms - Bài trả lời (2)

• Các bạn cho mình hỏi có cách nào sửa đổi listbox nhúng trong form không ạ? Do em tạo listbox trong form nhập liệu nhằm theo dõi việc nhập dữ liệu vào table, tuy nhiên khi tạo xong thì độ rộng của cột hẹp bị khuất và dòng tiêu đề chưa chỉnh sửa thành tiếng Việt ! Các bạn có cách nào giúp mình !
  Àh còn điểm này nữa ! Không biết tại sao listbox không update khi mình cập nhật mẫu tin mới, chỉ khi nào thoát và vào trở lại mới thấy listbox cập nhật mẫu tin mới !
  Cám ơn các bạn !
  


•   Bôi đậm dòng đầu trong ListBox
  

  Viết bởi: uronmapu 10-06-12, 11:17 PM Chuyên mục: Forms - Bài trả lời (12)

• Làm thế nào để bôi đậm dòng đầu tiên trong ListBox các bác nhỉ
  


•   Tạo hàm để Export dữ liệu từ một table Access ra một file Excel
  

  Viết bởi: Xuân Thanh 10-06-12, 10:19 PM Chuyên mục: Tương tác Chương trình ngoài - Bài trả lời (17)

• Đã có Import thì phải có Export
  Vẫn chọn Microsoft Excel 11.o Object libary
  Chép hàm ExAcEx vào một modul của file Access
  
  Mã PHP:

  Function ExAcEx(tblTabName As String, strFile As String, shSheet As String, Cll 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 i, j, k, n As Integer
    i = Ws.Range(Cll).Row
    n = Ws.Range(Cll).Column
    Dim Rs As Recordset
    Set Rs = CurrentDb.OpenRecordset(tblTabName, dbOpenTable)
    j = Rs.Fields.Count
    If Rs.RecordCount > 0 Then
        Rs.MoveFirst
        Do Until Rs.EOF
            For k = 0 To j - 1
                Ws.Cells(i, n + k) = Rs.Fields(k)
            Next
            i = i + 1
        Loop
    End If
    Set Ex = Nothing: Rs.Close
End Function 

  
  Khi cần goi hàm ExAcEx như sau
  Call ExAcEx ("tblDanhsachkhachhang","D:\Excel\Danh sach khach hang.xls","Danh sach","A2")
  
  Hàm chưa test
  


•   Tạo hàm để Import dữ liệu từ file Excel vào table Access
  

  Viết bởi: Xuân Thanh 10-06-12, 01:26 PM Chuyên mục: Tương tác Chương trình ngoài - Bài trả lời (9)

• Hỏi
  - Tôi có một file Excel chứa dữ liệu cần Import vào Access thì làm thế nào ngoài cách Import thông thường?
  
  Trả lời
  Yêu càu số trường của table Ac và số cột của Ex là bằng nhau, format giống nhau
  Trong Access tạo một modul mới và chép hàm ImExAc vào. Nhớ chọn thêm thư viện Microsoft Excel 11.0 Object Libary
  
  Mã PHP:

  Function ImExAc(tblTabName As String, strFile As String, shSheet As String)
    'tblTabName la ten table can Import du lieu
    'strFile la ten duong dan den Workbook Ex co du lieu
    'shSheet la ten Sheet cua Workbook strFile chua du lieu
    'Sheet Ex co hang dau tien la hang tieu de(ten truong)
    Dim Ex As New Excel.Application
    Dim fileEx As Workbook
    Set fileEx = Ex.Workbooks.Open(strFile)
    Dim Ws As Worksheet
    Set Ws = fileEx.Worksheets(shSheet)
    Dim lfirstrow, lfirstcol, llastrow, llastcol As Long
    With Ws.UsedRange
        lfirstrow = .Row
        lfirstcol = .Column
        llastrow = .Rows(UBound(.Value)).Row
        llastcol = .Columns(UBound(.Value, 2)).Column
    End With
    Dim Rs As Recordset
    Set Rs = CurrentDb.OpenRecordset(tblTabName, dbOpenTable)
    Dim i As Long
    Dim j As Long
    For i = lfirstrow + 1 To llastrow
        Rs.AddNew
        For j = lfirstcol To llastcol
            Rs.Fields(j - lfirstcol) = Ws.Cells(i, j)
        Next
        Rs.Update
    Next
    fileEx.Close False
    Set Ex = Nothing: Rs.Close
End Function 

  
  Khi cần Import, gọi hàm như sau
  Call ImExAc(“tblDanhsachkhachhang”,”D:\Excel\Danh sach khach hang.xls”,”Danh sach”)
  
  
  (Đã test thử thành công, viết cho Office 2003)
  



Chủ đề Mới nhất

веб-сайт darknet_links_ru -Chuyên mục: MS Word-Đăng bởi lần cuối: AlfredWek-2 Giờ trước- » Bài trả lời: 0- » Lượt xem: 1

Quản Lý Phòng Khám Tư Nhâ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: Le Duc-24-09-26, 12:03 AM- » Bài trả lời: 34- » Lượt xem: 8,310

Tạo Form không có khung v... -Chuyên mục: Thư viện thủ thuật-Đăng bởi lần cuối: ongke0711-05-09-26, 10:12 PM- » Bài trả lời: 0- » Lượt xem: 133

Tải hàng loạt hóa đơn PDF... -Chuyên mục: Thành viên giúp nhau-Đăng bởi lần cuối: dotrung-16-08-26, 10:29 PM- » Bài trả lời: 6- » Lượt xem: 150

Quản lý kho bằng Accesss -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: AKBui-09-08-26, 12:52 AM- » Bài trả lời: 77- » Lượt xem: 7,912

Tra cứu Mã số thuế - phần... -Chuyên mục: Share Code-Đăng bởi lần cuối: ongke0711-03-07-26, 02:10 PM- » Bài trả lời: 0- » Lượt xem: 170

Đồ cổ đây - một chút hoài... -Chuyên mục: Góc ảnh-Đăng bởi lần cuối: Noname-12-06-26, 09:21 AM- » Bài trả lời: 1- » Lượt xem: 610

Tra cứu thông tin DN qua ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: ongke0711-02-06-26, 11:36 PM- » Bài trả lời: 0- » Lượt xem: 178

Homestay chill đà lat -Chuyên mục: Góc Blogger-Đăng bởi lần cuối: tt1212-01-06-26, 02:51 PM- » Bài trả lời: 0- » Lượt xem: 556

Quản lý quầy thuốc nhỏ lẻ -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: ongke0711-09-05-26, 11:24 AM- » Bài trả lời: 4- » Lượt xem: 3,598




Diễn đàn Thống kê

» Thành viên: 0 » Thành viên mới nhất: Không có ai » Các chủ đề diễn đàn: 0 » Các bài viết diễn: 0 Thống kê đầy đủ