Chào mừng, Khách
Bạn cần phải đăng ký trước khi bạn có thể đăng trên trang web của chúng tôi.

Tên người dùng
  

Mật khẩu
  





Diễn đàn Tìm kiếm

(Tìm kiếm nâng cao)

Diễn đàn Thống kê
» Thành viên: 3,380
» Thành viên mới nhất: ture-kishا
» Các chủ đề diễn đàn: 8,689
» Các bài viết diễn: 38,164

Thống kê đầy đủ

Thành viên online
Hiện đang có 47 người dùng trực tuyến.
» 2 Thành viên | 41 Khách
AhrefsBot, Bing, Google, Google-AdSense, jason, soluuhuong85

Chủ đề Mới nhất
Cách tăng tốc độ Copy Pas...
Chuyên mục: Tương tác Chương trình ngoài
Đăng bởi lần cuối: ongke0711
11 Giờ trước
» Bài trả lời: 6
» Lượt xem: 201
[Góc thơ] THAO THỨC
Chuyên mục: Góc Thơ
Đăng bởi lần cuối: Nguyễn Thành Sáng
Hôm qua, 09:17 PM
» Bài trả lời: 895
» Lượt xem: 97,240
Tạo MeNu Form bằng Naviga...
Chuyên mục: Thư viện thủ thuật
Đăng bởi lần cuối: Xuân Thanh
Hôm qua, 05:34 PM
» Bài trả lời: 5
» Lượt xem: 200
Thay đổi logo trong table
Chuyên mục: Forms
Đăng bởi lần cuối: Bao Khang
19-04-19, 03:58 PM
» Bài trả lời: 2
» Lượt xem: 114
Gộp 2 query có cũng MaKH
Chuyên mục: Query
Đăng bởi lần cuối: vuthaiha90
18-04-19, 02:41 PM
» Bài trả lời: 2
» Lượt xem: 146
Liên kết textbox với List
Chuyên mục: Forms
Đăng bởi lần cuối: vietnc
17-04-19, 11:29 AM
» Bài trả lời: 10
» Lượt xem: 513
Tạo MeNu Form(Bài 2) : Th...
Chuyên mục: Thư viện thủ thuật
Đăng bởi lần cuối: Xuân Thanh
17-04-19, 10:29 AM
» Bài trả lời: 0
» Lượt xem: 77
Trộn văn bản Word từ dữ l...
Chuyên mục: Tương tác Chương trình ngoài
Đăng bởi lần cuối: Xuân Thanh
17-04-19, 10:02 AM
» Bài trả lời: 15
» Lượt xem: 473
lấy dữ liệu từ query sang...
Chuyên mục: Table
Đăng bởi lần cuối: ongke0711
15-04-19, 08:35 PM
» Bài trả lời: 9
» Lượt xem: 803
Mong giúp đỡ về form logi...
Chuyên mục: Forms
Đăng bởi lần cuối: ongke0711
15-04-19, 07:10 PM
» Bài trả lời: 8
» Lượt xem: 347

 
  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

In mục này

  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

In mục này

  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

In mục này

  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 giản hơn ta xét Function :

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

In mục này

  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"

In mục này

Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ| PMA Nha Trang| Gỗ Acrylic Không Đường Line| Phần mềm quản lý bán hàng, công nợ- tồn kho- nhà phân phối