• 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ủ
•   Nhập liệu trong form
  

  Viết bởi: Huỳnh Thị Ái Phương 23-04-13, 12:02 AM Chuyên mục: Forms - Bài trả lời (4)

• Mình muốn nhập mã Nhân viên, chỉ có 5 ký tự, làm sao để giới hạn ký tự khi nhập trên Form Vd: nhập k đủ 5 ký tự báo lỗi, nhập dư cũng báo.. Bạn nào biết giúp mình với
  


•   Import Table từ file Access này sang một file Access khác
  

  Viết bởi: Xuân Thanh 22-04-13, 05:05 PM Chuyên mục: Thư viện thủ thuật - Bài trả lời (3)

• Để Import một table từ file Access này qua một file Access khác ta có nhiều cách thực hiện
  1/ Dùng File/Get External Data/Import rồi chọn file ===> chọn table ===> OK
  2/ Dùng Macro với Action là TransferDatabase
  3/ Dùng câu lệnh Docmd.TransferDatabase acImport
  Đó là những cách cơ bản nhất
  Hôm nay giới thiệu với các bạn cách dùng hàm VBA để Import một table từ một Database Nguồn(DBNguon) sang một Database Đích(DBDich)
  Cách thực hiện như sau
  1/ Tạo một table trong DBDich có cấu trúc giống hệt như table trong DBNguon
  2/ Trong cửa sổ VBA, vào Tools/Reference chọn
  - Microsoft DAO 3.6 Object Libary
  - Microsoft Ofice xx Library (xx tùy vào phiên bản Office trên máy của bạn)
  3/ Trong Modul của DBDich, viết hai hàm như sau
  3.1/ Hàm GetFile dùng để duyệt đến DBNguon
  3.2/ Hàm ImportTable dùng để Import table từ DBNguon sang DBDich
  4/ Tạo một form có tên là frmImportTable. Trên form bố trí 3 textbox gồm 1 textbox txtTenFile để chứa đường dẫn của DBNguon, 2 texbox txtTableNguon và txtTableDich để ghi tên Table cần Import và 2 Command Button cmdTimFile để mở Dialog chọn file DBNguon, cmdImport để hực hiện việc Import Table đã chọn
  Các hàm viết trong Modul
  
  
  Mã PHP:

  Option Compare Database
Option Explicit

Function ImportTable(strNguon As String, strTabNguon As String, strTabDich As String)
    Dim DBNguon As Database
    Dim DBDich As Database
    Dim rsNguon As Recordset
    Dim rsDich As Recordset
    Set DBNguon = DBEngine.Workspaces(0).OpenDatabase(strNguon)
    Set DBDich = CurrentDb
    Set rsNguon = DBNguon.OpenRecordset(strTabNguon)
    Set rsDich = DBDich.OpenRecordset(strTabDich)
    Dim i As Integer
    If rsNguon.RecordCount > 0 Then
        rsNguon.MoveFirst
        Do Until rsNguon.EOF
            rsDich.AddNew
            For i = 0 To rsNguon.Fields.Count - 1
               rsDich.Fields(i) = rsNguon.Fields(i)
            Next
            rsDich.Update
            rsNguon.MoveNext
        Loop
    End If
    rsNguon.Close: rsDich.Close: Set DBNguon = Nothing: Set DBDich = Nothing
End Function
Function GetFile(Tit As String, formatName As String, formatType As String)
    Dim dlgOpen As FileDialog
    Dim result
    Set dlgOpen = Application.FileDialog(msoFileDialogOpen)
    With dlgOpen
        .Title = Tit
        .Filters.Clear
        .Filters.Add formatName, formatType
        .AllowMultiSelect = False
        result = .Show
        If (result <> 0) Then
            GetFile = Trim(dlgOpen.SelectedItems.Item(1))
        End If
    End With
End Function 

  
  Các sự kiện Click của 2 Command Button trên form
  
  
  Mã PHP:

  Option Compare Database
Option Explicit

Private Sub cmdTim_Click()
    Me.txtTenFile = GetFile("C:\", "Select File", "*.mdb,*.mde")
End Sub

Private Sub cmdImport_Click()
    Call ImportTable(Me.txtTenFile, Me.txtTableNguon, txtTableDich)
End Sub 

  
  Chúc các bạn vui
  Thân mến
  


•   Ẩn thanh Menu access 2007
  

  Viết bởi: trungn077 22-04-13, 12:32 AM Chuyên mục: Forms - Bài trả lời (3)

• Chào cả nhà!
  Có cách nào để ẩn thanh button trên access 2007 không, và không cho click right vào đó lun.
  


•   Tạo query tính khách hàng sử dụng điện vượt quá định mức
  

  Viết bởi: hanamichi 20-04-13, 09:13 PM Chuyên mục: Query - Không có hồi đáp

• Như tiêu đề, em có csdl ở đính kèm. Yêu cầu của đề khoai quá, em nghĩ cả ngày rồi mà chưa ra ạ
  Liệt kê danh sách các khách hàng dùng điện vượt quá định mức ở 1 phường. //Cái này em mò ra rồi ạ
  Đưa ra thông tin tổng doanh thu của từng loại hình theo tháng nào đó.
  Mong mọi người giúp đỡ, em cảm ơn ạ
  
  
  
  Link file access đây ạ
  https://www.box.com/s/bebcwnq6htuuoz2osep4
  
  Mong mọi người giúp đỡ query cuối ạ.Thanks
  


• Tạo nút import tale vào access từ một file khác từ trên form
  

  Viết bởi: THONGPRO808 20-04-13, 04:50 PM Chuyên mục: Tương tác Chương trình ngoài - Bài trả lời (1)

• Xin chào anh chị ! em mới học access em muốn tạo một nút tìm để import table vào file access từ file access khác từ trên form xin anh chị hướng dẫn dùm cám ơn nhiều
  



Chủ đề Mới nhất

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,341

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: 138

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: 156

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: 8,059

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: 176

Đồ 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: 647

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: 182

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: 618

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,611

TẠO THÔNG BÁO NHẮC NHỞ CÔ... -Chuyên mục: Tương tác Chương trình ngoài-Đăng bởi lần cuối: ongke0711-07-04-26, 10:46 AM- » Bài trả lời: 2- » Lượt xem: 281




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 đủ