• 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ủ
•   Hàm kiểm tra sự tồn tại của table
  

  Viết bởi: Noname 15-08-10, 01:14 PM Chuyên mục: Thư Viện Hàm - Không có hồi đáp

• Mã:

  Public Function KIEMTRA(TableName As String)As Boolean
   ' Khai báo biến cục bộ truy xuất đến Database Access
     Dim DB As Database
   ' Biến N lưu trữ số Tables của Database (dùng Byte là đủ)
     Dim N As Byte
   ' Biến i để duyệt qua từng Table
     Dim i As Byte
   ' Khởi tạo biến DB
    Set DB = DBEngine.Workspaces(0).Databases(0)
   ' Lấy số Tables có trong Database
    n = DB.TableDefs.Count
  ' Duyệt tuần tự từng Table
    For i = 0 To n - 1
         ' Nếu tên Table thứ i bằng với tên Table muốn tìm
         If DB.TableDefs(i).Name = TableName Then
             ' Hàm trả về giá trị TRUE
              KIEMTRA = True
             ' Thoát khỏi hàm
               Exit Function
          End If
     ' Chuyển qua Table kế
       Next i
     ' Nếu ra khỏi vòng lặp mà vẫn chưa tìm thấy thì hàm trả về False
       KIEMTRA = False
  End Function
  
  


•   Hàm Tách Tên, Họ trong Access
  

  Viết bởi: Noname 15-08-10, 01:11 PM Chuyên mục: Thư Viện Hàm - Bài trả lời (4)

• Mình xin giới thiệu 1 hàm tự tách tên, họ trong Access:
  
  
  Mã:

  Public Function Split(Ten As String, Kieu As Byte)
Dim bytSpace As Byte
bytSpace = InStrRev(Ten, " ", -1)

If bytSpace = 0 Then
Split = Ten
Exit Function
End If

If Kieu = 0 Then
Split = Right(Ten, Len(Ten) - bytSpace)
Else
Split = Left(Ten, bytSpace - 1)
End If
End Function
  
  
  
  Chú Thích: Hàm này dùng hiệu quả trong việc tách tên họ. Truyền đối số như sau:
  Ten: Tên đầy đủ ( fullname)
  Kiểu: 0 : Tách Tên, 1 Tách Họ
  
  Ví Dụ:
  
  Name=Phạm Thị Mỹ Hạnh
  msgbox Split(Name,0) => Hạnh
  msgbox Split(Name,1) => Phạm Thị Mỹ
  


•   Xoá các table theo điều kiện trong Access
  

  Viết bởi: Noname 15-08-10, 01:10 PM Chuyên mục: Thư viện thủ thuật - Bài trả lời (8)

• Hỏi: Tromg file MDB của em có nhiều table để lưu dữ liệu của các năm khác nhau. EM chỉ muốn lưu 3 năm gần nhất thôi. Ví dụ: năm nay là 2009, em chỉ cần lưu dữ liệu của 2007, 2008, 2009; năm tới 2010: chỉ lưu 2008, 2009, 2010.
  Em muốn tự khi lưu dữ liệu ngày đầu tiên của năm mới, thì table từ 3 năm về trước sẽ tự động bị xoá đi. Cụ thể: ngày 01/01/2010, em lưu dữ liệu thì table lưu dữ liệu của 2007 bị xoá đi.
  Đồng thời, em muốn xoá table với điều kiện nó tồn tại: Cụ thể: câu lệnh để thực hiện:
  Nếu tableA có trong MDB thì xoá tableA
  Các bác cho em xin đoạn code nhé
  
  Đáp:
  Mình gửi bạn 1 đoạn code xóa table:
  
  Code:
  
  
  Mã:

  Sub DelTable(T As String)
DoCmd.DeleteObject acTable, T

End Sub
  
  Bây giờ bạn có thể tạo 1 table với thông tin: tblTableInfo(tableName,TableDate)
  Ở đây bạn khai báo table nào thuộc năm nào.
  sau đó có thể gọi 1 sub xóa table cũ hơn 3 năm:
  
  Code:
  
  
  Mã:

  sub DelTable3yearOld()
Dim Db As Database, Rs As Recordset, sql1 as string
SQL1="select TableName from tblTableInfo where (year(date())-year(TableDate))>=3
Set Db = CurrentDb()
Set Rs = Db.OpenRecordset(SQL)
Do Until rs.EOF
  Deltable rs(0)
  rs.MoveNext
Loop

Rs.Close
set DB = Nothing
End Sub
  
  
  Nhớ lưu trước khi thử nghiệm nhé
  


•   Upsize Access lên MS SQL server
  

  Viết bởi: Noname 13-08-10, 11:07 PM Chuyên mục: Tương tác Chương trình ngoài - Bài trả lời (6)

• Theo thực tế 1 database Access còn rất nhiều hạn chế về :
  _ Phân quyền sử dụng.
  _ Sử dụng tối đa 10 users .
  _ Quản lý và lưu vết user đã ghi/đọc/xóa ...
  Trong cuộc sống náo nhiệt, môi trường sử dụng phần mềm quản lý khá phong phú đa dạng với nhiều ngôn ngữ lập trình khác nhau. Đối với việc sử dụng database trong một mạng Lan cũng rất phổ biến.
  Nay mình có 1 datbase access quản lý hồ sơ muốn share cho mọi người dùng chung mạng Lan, qua việc đọc 1 số bài hướng dẫn sơ lược và có đề cập đưa database Access lên SQL Server để quản lý cao hơn, chuyên nghiệp hơn.
  Mong Noname và các bạn hướng dẫn cụ thể và có hình ảnh minh họa về việc đưa database Access lên SQL Sever, đây cũng là vấn đề khó giải quyết và nóng bỏng nhất đối với các bạn khác. Chân thành cảm ơn
  
  Đáp
  Chuyển Access lên SQL server trong những trường hợp bạn muốn phân quyền rõ ràng hơn, cơ sở dữ liệu của bạn đã tương đối lớn, bạn muốn share cho số user lớn...đó là một giải háp hợp lý.
  
  Chuẩn bị cho việc chuyển đổi, bạn phải có một máy tính tương đối mạnh cài windows server như win 2k, win 2k3, win 2k7..
  Bạn cài các bản SQL server standard hoặc enterprice. Hoặc để thử nghiệm thì bạn dùng bản personal trên winxp.
  Xong phần chuẩn bị, giờ bạn sang phần upsize.
  Mở CSDL Access của bạn, từ Access 2k trở đi sẽ hỗ trợ Upsize lên SQL server.
  
  Vào Tool -> database utilities -> upsizing wizard
  
  
  
  Trong cửa sổ upsize, chọn create new database rồi nhấn next
  
  Chọn tên server, password SA khi cài SQL server, chọn tên cho database rồi nhấn next
  
  
  Chọn các table muốn up lên SQL server (nhấn >> để chọn tất cả) ->next
  
  
  Trong khung thoại hỏi bạn có giữ lại data hay chỉ lấy cấu trúc, có giữ lại các relationship không, bạn tuỳ ý chọn rồi nhấn, Next tiếp nếu bạn không cần thêm tuỳ chỉnh gì hoặc chọn chỉ giữ lại cấu trúc.
  
  
  
  Cửa sổ tiếp theo hỏi bạn có tạo ra một ứng dụng trên nền SQL server không. Tuỳ bạn quyết định có tiếp tục dùng Access như một ứng dụng máy chủ/khách hay là viết một ứng dụng khác, chỉ giữ phần dữ liệu. Mình thì mình chọn mục 2: Link SQL table to exit aplication - >next->finish
  
  
  Sau khi upsize, bạn chỉ link table để nhập liệu, thao tác, truy xuất.
  
  
  
  Mọi việc chỉnh sửa cấu trúc và phân quyền đều phải thông qua SQL server.
  
  
  


•   Giáo trình Access DHSPHN
  

  Viết bởi: Noname 13-08-10, 10:59 PM Chuyên mục: Thư Viện Giáo Trình - Bài trả lời (9)

• Giáo trình Access DHSPHN
  



Chủ đề Mới nhất

So Sánh Nước Hoa Chanel C... -Chuyên mục: Chuyện bốn phương-Đăng bởi lần cuối: EliHayes-22-12-24, 12:24 PM- » Bài trả lời: 0- » Lượt xem: 1

Tạo query tổng hợp dữ liệ... -Chuyên mục: Query-Đăng bởi lần cuối: ongke0711-19-12-24, 07:58 PM- » Bài trả lời: 1- » Lượt xem: 67

Test phần mềm QUẢN LÝ TÀI... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: AnNguyen-19-12-24, 05:33 PM- » Bài trả lời: 44- » Lượt xem: 5,191

A Bold Move to Expand the... -Chuyên mục: Query-Đăng bởi lần cuối: nigelbdhmp-19-12-24, 04:55 PM- » Bài trả lời: 0- » Lượt xem: 12

Quản lý kho bằng Accesss -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: danhson2007-19-12-24, 03:54 PM- » Bài trả lời: 56- » Lượt xem: 3,089

Dòng Video Youtube Ngâm N... -Chuyên mục: Góc Thơ -Đăng bởi lần cuối: Nguyễn Thành Sáng-19-12-24, 01:21 PM- » Bài trả lời: 43- » Lượt xem: 375

[Demo p2] Tìm kiếm và tô ... -Chuyên mục: Thủ thuật VBA-Đăng bởi lần cuối: ledangvan-06-12-24, 02:53 PM- » Bài trả lời: 17- » Lượt xem: 1,954

File Sổ Quỹ Tiền Mặt cho ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: giauvnd-05-12-24, 04:35 PM- » Bài trả lời: 30- » Lượt xem: 3,682

Hỏi về Crosstab Query: Lu... -Chuyên mục: Query-Đăng bởi lần cuối: feeling-04-12-24, 07:24 PM- » Bài trả lời: 7- » Lượt xem: 270

Demo_Code Xuất Lý lịch 2C... -Chuyên mục: Tương tác Chương trình ngoài-Đăng bởi lần cuối: shangyi-02-12-24, 02:18 PM- » Bài trả lời: 19- » Lượt xem: 2,598




Diễn đàn Thống kê

» Thành viên: 5,087 » Thành viên mới nhất: cbthong » Các chủ đề diễn đàn: 9,879 » Các bài viết diễn: 48,657 Thống kê đầy đủ