• 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ủ
•   Mở nút Close(x) khi đã khóa
  

  Viết bởi: Noname 09-08-10, 02:12 AM Chuyên mục: Thư viện thủ thuật - Không có hồi đáp

• Hỏi: Theo hướng dẫn trên, tôi đã khoa nút close , giờ muốn mở lại thì làm thế nào?
  
  Đáp:
  Bạn tạo 1 Module mới với nội dung sau:
  
  
  Code:
  
  
  Mã:

  Private Const GWL_EXSTYLE = (-20)
Private Const GWL_STYLE = (-16)
Private Const WS_MAXIMIZEBOX = &H10000
Private Const WS_MINIMIZEBOX = &H20000
Private Const WS_SYSMENU = &H80000

Private Const HWND_TOP = 0
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1
Private Const SWP_FRAMECHANGED = &H20
Private Const SWP_DRAWFRAME = SWP_FRAMECHANGED

Private Declare Function SetWindowLong Lib "user32" _
Alias "SetWindowLongA" (ByVal hwnd As Long, _
ByVal nIndex As Long, ByVal dwNewLong As Long) _
As Long
Private Declare Function GetWindowLong Lib "user32" _
Alias "GetWindowLongA" (ByVal hwnd As Long, _
ByVal nIndex As Long) As Long
Private Declare Function SetWindowPos Lib "user32" _
(ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
ByVal x As Long, ByVal y As Long, ByVal cx As Long, _
ByVal cy As Long, ByVal wFlags As Long) As Long

Sub UnHideAccessCloseButton()

    Dim lngStyle As Long

    lngStyle = GetWindowLong(hWndAccessApp, GWL_STYLE)
    lngStyle = lngStyle Or WS_SYSMENU
    Call SetWindowLong(hWndAccessApp, GWL_STYLE, lngStyle)
    Call SetWindowPos(hWndAccessApp, HWND_TOP, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE Or SWP_DRAWFRAME)

End Sub
  
  Trong form Admin hãy tạo 1 nút để gọi hàm UnHideAccessCloseButton nhấn nút và đóng lại rồi xem kết quả nhé!
  


•   Khoá phím ctrl-F4 và Alt-F4 , shift
  

  Viết bởi: Noname 09-08-10, 02:11 AM Chuyên mục: Thư viện thủ thuật - Bài trả lời (2)

• 1) Khoá phím ctrl-F4 và Alt-F4
  
  Ý tưởng của hungtano
  Bạn tạo 1 macro tên AutoKeys,
  
  - ở cột Macro Name, bạn điền ^{F4}, ở cột Action bạn chọn Msgbox, ở phần dưới Action Argument bạn tạo 1 thông báo "Phím này đã bị khóa"
  
  - ở cột Macro Name, bạn điền %{F4}, ở cột Action bạn chọn Msgbox, ở phần dưới Action Argument bạn tạo 1 thông báo "Phím này đã bị khóa"
  
  2) Phím shisft có công dụng gì ? sao lại khoá phím shift ?
  Khi viết xong 1 chương trình trên Access, khi đưa vào sử dụng bạn phải giấu cửa sổ database. Phím shift có công dụng mở cửa sổ database để xem các object của chuơng trình như table, macro, query, ...Để tránh không cho users mở cửa sổ database "quậy phá" các object của CT, người ta phải khóa phím shift.
  


•   Đánh Số Thứ Tự Cho report
  

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

• Hỏi:
  Báo cáo của tôi có rất nhiều dòng, tôi muốn đánh số thứ tự cho mỗi record thì phải làm sao?
  
  Đáp:
  Trong phần detail của report, tạo một text box.
  
  Vô Properties của textbox đó,nhảy qua tab Data, đặt thuộc tính Control Source là =1, Thuộc tính runing Sum là Over All. Hehe , nó sẽ đánh số thứ tự toàn bộ các phần tử.
  Nếu chỉ muốn đánh số thú tự trong 1 Group thì chon Over Group
  Hình minh Họa:
  
  


•   Phục Hồi Table lỡ xóa
  

  Viết bởi: Noname 09-08-10, 01:53 AM Chuyên mục: Thư viện thủ thuật - Không có hồi đáp

• Trả lời: Ý tưởng đặt ra là ta sẽ tìm lại table bi xóa trong những file ~templete (được tạo ra khi access dang chạy). Bạn tạo một command button phuchoi gọi lệnh UndeleteTable () như sau nhé:
  
  
  Mã:

  Private sub phuchoi_click ()

Call UnDeleteTable ()

End sub
  
  
  
  
  Mã PHP:

  Option Compare Database

Function UnDeleteTable(Optional sName As String)

Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim sTable As String
Dim sSQL As String
Dim sMsg As String

If IsMissing(sName) Then sName = "Tablephuchoi"
If Len(sName) = 0 Then sName = "Tablephuhoi"

Set db = CurrentDb()

For Each tdf In db.TableDefs
If left(tdf.Name, 4) = "~tmp" Then
sTable = tdf.Name
sSQL = "SELECT [" & sTable & "].* INTO " & sName
sSQL = sSQL & " FROM [" & sTable & "];"

db.Execute sSQL

sMsg = "Da phuc hoi xong mot Tablle bi xoa voi ten " & sName
MsgBox sMsg, vbOKOnly, "Da phuc hoi xong"
GoTo Exit_Undelete
End If
Next

' Neu khong tim thay thi thong bao
MsgBox "Khong tim thay Table nao co the phuc hoi", vbOKOnly, "Xin loi!"

Exit_Undelete:
Set db = Nothing
Exit Function

Err_Undelete:
MsgBox err.Description
Resume Exit_Undelete

End Function

' Notes: Ham nay chi su dung cho Access 95 tro len va con tuy thuoc vao mot so dieu kien sau:
' - Da xoa nham Table nhung chua dong CSDL (đóng rồi thì tui chưa thử)
' - CSDL chua su dung che do compact and comact repair (dọn rác rồi lấy đâu ra mà phục hồi?)
' - CSDL bi xoa boi phan quyen User trong ung dung access cua ban (tui thu roi khoi test nua)
' - Ham nay chi phuc hoi cho mot Table bi xoa gan nhat (những cái trước đó tui bó tay chưa nghĩ ra) 

  Xin lỗi các bạn chịu khó đọc phần notes kô dấu nhé mình copy cho lẹ (^_^)
  
  ------------------------------------------
  
  Chúc thành công!
  


•   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

  
  



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,384 » Thành viên mới nhất: KristanHar » Các chủ đề diễn đàn: 9,898 » Các bài viết diễn: 48,825 Thống kê đầy đủ