Gắn một số phím tắt cho các command button
|
Viết bởi: Noname
15-08-10, 01:16 PM
Chuyên mục: Macro
- Không có hồi đáp
|
Hỏi: Tôi muốn gắn một số phím tắt cho các command button trên form để khi bấm phím tắt đó, các câu lệnh sẽ được thực hiện.( cach tao 1 autokeys trong access )
Đáp:
Bạn có thể cài shotcut key bằng cách chọn 1 ký tự trong caption của các button. Và thêm ký tự "&" trước ký tự đó. Khi bạn nhấn ALT + ký tự. Nó sẽ là shotcut key.
Ví dụ nút OK thì bạn viết : &OK
Shotcutkey sẽ là ALT+O
Một Cách khác (spammail - khoahocphothong.net)
Tạo 1 macro tên phải là AutoKeys :
Macro Name________Action
{F7}_______________Open Report (Nhấn F7 để mở report nào đó)
^{F7}_____________ Open Report (Nhấn Ctrl+ F7 để mở report nào đó)
+{F1}______________Open Report (Nhấn Shift + F7 để mở report nào đó)
^A_________________Msgbox (Nhấn Ctrl+ A sẽ hiện thông báo gì đó)
Hàm kiểm tra sự tồn tại của table
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
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
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
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.
Chủ đề Mới nhất |
Xin các bác một chương tr...
-Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: ongke0711-2 Giờ trước-
» Bài trả lời: 1-
» Lượt xem: 5
|
In mã vạch tạo từ access ...
-Chuyên mục: Forms-Đăng bởi lần cuối: DooHoaangPhuuc-7 Giờ trước-
» Bài trả lời: 32-
» Lượt xem: 20,572
|
Quản lý kho bằng Accesss
-Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: letuanthanh-Hôm nay, 08:06 AM-
» Bài trả lời: 35-
» Lượt xem: 1,301
|
Advertising offer to the ...
-Chuyên mục: Ms PowerPoint-Đăng bởi lần cuối: Noname-26-03-24, 08:26 AM-
» Bài trả lời: 1-
» Lượt xem: 27
|
Ơn sâu...
-Chuyên mục: Góc Thơ -Đăng bởi lần cuối: Hạ Vàng-23-03-24, 11:34 PM-
» Bài trả lời: 2-
» Lượt xem: 2,414
|
Thơ con cóc
-Chuyên mục: Góc Thơ -Đăng bởi lần cuối: Hạ Vàng-23-03-24, 10:54 PM-
» Bài trả lời: 110-
» Lượt xem: 58,884
|
Demo Form đăng ký bản quy...
-Chuyên mục: Forms-Đăng bởi lần cuối: ledangvan-22-03-24, 04:50 PM-
» Bài trả lời: 3-
» Lượt xem: 124
|
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: letuanthanh-21-03-24, 04:17 PM-
» Bài trả lời: 29-
» Lượt xem: 3,155
|
[Demo P3] Login+ Phân quy...
-Chuyên mục: Share Code-Đăng bởi lần cuối: tamthep1968-21-03-24, 12:00 PM-
» Bài trả lời: 92-
» Lượt xem: 23,810
|
[Lỗi] Automation error kh...
-Chuyên mục: Thành viên giúp nhau-Đăng bởi lần cuối: AnNguyen-20-03-24, 04:27 PM-
» Bài trả lời: 0-
» Lượt xem: 20
|
Diễn đàn Thống kê |
» Thành viên: 4,349
» Thành viên mới nhất: JeffreyCor
» Các chủ đề diễn đàn: 9,854
» Các bài viết diễn: 48,394
Thống kê đầy đủ
|
| | | | |