Thủ Thuật Access

Trang chủ
- Thủ Thuật Access
- Trang chủ

Enable phím shift khi lỡ chạy module khóa mà quên viết module mở khóa

Viết bởi: Noname
09-08-10, 01:50 AM
Chuyên mục: Thư viện thủ thuật
- Bài trả lời (5)
(bài này là ý tưởng của bạn hungtano)

Hỏi:

Tôi đã xây dựng xong CT nhân sự (C:\QLNS.mdb). Tôi tạo 1 custom menu bar, giấu đi Main menu của Access, tạo form startup, disable phím Shift để không ai có thể mở được cửa sổ database. Sau một thời gian CT bị lỗi nhưng hỡi ơi tôi lại quên viết code enable phím Shift nên không tài nào mở của sổ database, mở cửa sổ viết code để sửa lại CT. Tôi phải làm sao đây ?

Đáp:

Rất đơn giản, bạn tạo 1 file .mdb mới , viết code để can thiệp vào file QLNS.mdb, enable phím Shift.

Cách làm:

Trong file .mdb mới, bạn tạo 1 form, tạo 1 command button và :

Trích dẫn: Private Sub EnableSHIFTButton_Click()

On Error GoTo ErrHandler

Dim db As Database
Dim ThuocTinh As Property
Set db = OpenDatabase("C:\QLNS.mdb")
db.Properties("AllowBypassKey") = True
Set db = Nothing
Exit Sub
ErrHandler:
MsgBox Err.Number
If Err.Number = 3270 Then ' Property not found.
Set ThuocTinh = db.CreateProperty("AllowBypassKey", dbBoolean, True)
db.Properties.Append ThuocTinh
Resume Next
Else
MsgBox Err.Description
End If
End Sub

nén file Access bằng VBA

Viết bởi: Noname
09-08-10, 01:44 AM
Chuyên mục: Thư viện thủ thuật
- Bài trả lời (17)
Bình thường,khi mà các câu lệnh Make, Append, delete thực hiện nhiều lần thì file access của bạn sẽ phình to không tưởng tượng được, có khi lên tới hàng GB, để nén access ta vào menu tool-->database Ulities-->Compact and repair Database
Nhưng đôi khi chúng ta cần thực hiện điều đó bằng VBA vì đã khóa Menu, thay bằng customise menu, hoặc với mục đích thân thiện với người dùng chỉ trên một nút nhấn.

hãy copy đoạn code sau của tác giả Juan M. Afan de Ribera để làm điều đó

Code:

' ***** Code Start *****

Mã:
Public Sub CompactDB() CommandBars("Menu Bar"). _ Controls("Tools"). _ Controls("Database utilities"). _ Controls("Compact and repair database..."). _ accDoDefaultAction End Sub

Hiện duy nhất một cửa sổ khi mở nhiều form

Viết bởi: Noname
09-08-10, 01:43 AM
Chuyên mục: Thư viện thủ thuật
- Bài trả lời (5)
Trích:
Các bạn giúp mình với, làm sao khi mở một From VD From này la From Main, trong From Main này có các Nút lệnh để mở các From khác. Thì làm sao khi mở một From khác thì trên Takbar không xuất hiện From này mà vẩn còn From Main hiện diện trên Taskbar. Vì nếu tôi mở nhiều Fron trên một chương trình thì Taskbar sẻ đầy.

Trích dẫn:Bạn chỉ cần vào Tools/options

Bỏ dấu check ở mục Windows on Taskbar. khi đó trên Task bar chỉ còn duy nhất 1 màn hình Access thôi, bạn thư nhé.
----------------------
sanyovietnam in MaNguon

Trích dẫn:Trích:
Nguyên văn bởi hungtano
Bổ sung :
Vì Access luôn chọn Check box Windows on Taskbar = True (default) nên nếu đem file mdb của bạn sang máy khác thì sẽ gặp lại trường hợp nhiều cửa sổ trên taskbar.
Cách tổng quát hơn :
Khi mở form Startup bạn thêm dòng lệnh :

Private Sub Form_Open(Cancel As Integer)
Application.SetOption "ShowWindowsInTaskbar", False
End Sub

Kiểm tra 1 form trong chương trình đã được mở hay chưa!

Viết bởi: Noname
09-08-10, 01:39 AM
Chuyên mục: Forms
- Bài trả lời (2)
Trong access, đôi khi bạn cần kiểm tra một form có đang load hay chưa để lấy về thông số, tránh động tác thừa vì đôi khi load lên một form dạng bảng, có nhiều đối tượng là rất lâu.
Function dưới đây sẽ giúp bạn giải quyết vấn đề đó một cách dễ dàng

Code:

Mã:
Function fIsLoaded(ByVal strFormName As String) As Boolean 'Giá trị trả về là 0 nếu chưa mở, -1 là đã mở rồi If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> 0 Then If Forms(strFormName).CurrentView <> 0 Then fIsLoaded = True End If End If End Function '****** Code End ********
===================================================
Cách 2:
Đơn giản hơn ta xét Function :

Mã:
If CurrentProject.AllForms("YourFormName").IsLoaded = True Then do something Else: do something else End If

Xuống dòng trong Msgbox

Viết bởi: Noname
09-08-10, 01:36 AM
Chuyên mục: Thư viện thủ thuật
- Bài trả lời (5)
Access 97 trở về trước khi xuống dòng dùng ký tự @. Access gần đây dùng vbCrLf để xuống dòng. Việc chủ động xuống dòng trong Msgbox giúp hiển thị thông báo rõ ràng hơn.

Mã:
MsgBox "1. Hello!" & vbCrLf & "2. Xin chào các bạn!" & vbCrLf & "3. Seeuagain!", vbInformation, "Message"

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-8 Giờ trước- » 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: 53

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

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

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

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

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,086
» Thành viên mới nhất: Francislax
» Các chủ đề diễn đàn: 9,879
» Các bài viết diễn: 48,657

Thống kê đầy đủ