• 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 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
  


•   Hiện thông báo không có dữ liệu khi in report
  

  Viết bởi: Noname 13-08-10, 10:51 PM Chuyên mục: Report - Bài trả lời (2)

• Cho mình hỏi: Mình tạo 1 form in từ ngày đến ngày,
  nếu trong điều kiện đó mà reprt kô có dữ liệu thì hiện ra 1 câu thông báo tại form luôn và kô hiện ra report.
  
  
  Đáp:
  Bất cứ report nào cũng có record source đúng không, thường là 1 query/table.
  
  Như vậy vấn đề ở đây là bạn kiểm tra query/table xem có record nào không, nếu không có=> gởi thông báo.
  Nếu có thì cho in report. Đơn giản vậy thôi
  
  
  
  
  Mã:

  Private Sub In_Click()
dim rec as Recordset
dim db as Database
set db = CurrentDB()
set rec = db.Openrecordset("tên bảng")
If rec.recordcount> o then
[in report]

else

[thong bao]

end if
End Sub
  
  



Chủ đề Mới nhất

Quản lý kho bằng Accesss -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: thaominhtam-11-09-25, 11:47 AM- » Bài trả lời: 69- » Lượt xem: 5,465

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: tt1212-09-09-25, 05:03 PM- » Bài trả lời: 32- » Lượt xem: 7,106

Thử nghiệm upload hình -Chuyên mục: Phòng thử nghiệm-Đăng bởi lần cuối: Noname-29-08-25, 09:44 AM- » Bài trả lời: 2- » Lượt xem: 686

Quản Lý Công Văn -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: Adung-23-07-25, 10:05 AM- » Bài trả lời: 8- » Lượt xem: 12,945

(Update v.1.0.85 - 30/06/... -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: Adung-22-07-25, 10:46 AM- » Bài trả lời: 270- » Lượt xem: 113,409

Video Tự học Access ( Cơ ... -Chuyên mục: Thư Viện Giáo Trình-Đăng bởi lần cuối: Nguyễn Đình Thọ-21-07-25, 10:42 AM- » Bài trả lời: 7- » Lượt xem: 9,042

E chia sẽ Quản lý nhà trọ -Chuyên mục: Forms-Đăng bởi lần cuối: hoaithanh-18-07-25, 02:28 PM- » Bài trả lời: 0- » Lượt xem: 142

E xin chia sẻ kiểm phiếu ... -Chuyên mục: Forms-Đăng bởi lần cuối: hoaithanh-18-07-25, 09:17 AM- » Bài trả lời: 14- » Lượt xem: 854

Giải pháp Chuyển đổi từ đ... -Chuyên mục: Thư viện thủ thuật-Đăng bởi lần cuối: ongke0711-09-07-25, 09:52 PM- » Bài trả lời: 6- » Lượt xem: 203

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: gatayvn-08-07-25, 04:59 PM- » Bài trả lời: 31- » Lượt xem: 4,216




Diễn đàn Thống kê

» Thành viên: 6,389 » Thành viên mới nhất: rr88corg1 » Các chủ đề diễn đàn: 9,898 » Các bài viết diễn: 48,825 Thống kê đầy đủ