Tùy chọn
Thủ Thuật Access
-
Trang chủ
|
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) |
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 SubBâ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 SubNhớ lưu trước khi thử nghiệm nhé
|
|
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) |
_ 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
![[Hình: 1.jpg]](http://i39.photobucket.com/albums/e193/duytuan2002/Access/1.jpg)
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
![[Hình: 2.jpg]](http://s39.photobucket.com/albums/e193/duytuan2002/Access/2.jpg)
Chọn các table muốn up lên SQL server (nhấn >> để chọn tất cả) ->next
![[Hình: 3.jpg]](http://s39.photobucket.com/albums/e193/duytuan2002/Access/3.jpg)
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.
![[Hình: 4.jpg]](http://i39.photobucket.com/albums/e193/duytuan2002/Access/4.jpg)
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
![[Hình: 5.jpg]](http://s39.photobucket.com/albums/e193/duytuan2002/Access/5.jpg)
Sau khi upsize, bạn chỉ link table để nhập liệu, thao tác, truy xuất.
![[Hình: 6.jpg]](http://i39.photobucket.com/albums/e193/duytuan2002/Access/6.jpg)
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.
![[Hình: upsize.jpg]](http://s39.photobucket.com/albums/e193/duytuan2002/Access/upsize.jpg)
|
|
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) |
|
|
Viết bởi: Noname 13-08-10, 10:51 PM Chuyên mục: Report - Bài trả lời (2) |
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
|
|
Viết bởi: Noname 13-08-10, 10:49 PM Chuyên mục: Thư Viện Ứng Dụng - Không có hồi đáp |
DownLoad
| 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,254 |
| 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: 125 |
| 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: 142 |
| 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,849 |
| 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: 145 |
| Đồ 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: 563 |
| 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: 165 |
| 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: 469 |
| 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,589 |
| 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: 267 |
| 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 đủ |