• 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ủ
•   Phân quyền truy cập menu trong Access
  

  Viết bởi: Noname 26-08-10, 08:35 PM Chuyên mục: Thư viện thủ thuật - Bài trả lời (21)

• 
  Mình đã giới thiệu với các bạn chương trình phân quyền
  thiet-ke-ctrinh-phan-quyen
  Mình cũng giới thiệu các bạn cách bạn cách tạo 1 thanh menu
  huong-dan-tao-menu-trong-access.html
  Hôm nay mình xin giới thiệu cách để hiển thị 1 menu với user này và ẩn với user khác.
  
  
  Ta hãy mở 1 module và soạn thủ tục sau:
  
  
  Mã:

  Sub ViewMenu(User as String, mnBar as string, mnItem as String, IsView as Boolean)

If currUser= User Then  
    CommandBars(mnBar).Controls(mnItem).Visible = isView
End If
End Sub
  Thủ tục trên cho ta hiện 1 menu với
  
  Mã:

  User
  : user muốn cho phép xem
  
  Mã:

  CurrUser
  : User hiện tại đăng nhập vào hệ thống. ( bạn có thể gán 1 biến toàn cục, mỗi khi có người đăng nhập thành công, thì gán : CurrUser bằng UserName)
  
  Mã:

  mnBar
  : tên thanh menu do bạn tự tạo
  
  Mã:

  mnItem
  : tên menu (caption) do bạn tạo và gắn trên thanh Menu
  
  Ví dụ:
  Trong bài đăng về tạo menu http://thuthuataccess.blogspot.com/2009/...ccess.html
  
  Bạn tạo 1 thanh menu "QuanLyCongVan" với 2 Item là : "Cập Nhật", và "Thoát".Bây giờ bạn muốn chỉ hiện menu "Cập Nhật" cho User, và Admin. ( nhóm guest không được thấy) ta gọi sau khi người dùng đăng nhập thành công:
  
  Mã:

  ViewMenu "User", "QuanLyCongVan", "Cập Nhật", True
    ViewMenu "Admin", "QuanLyCongVan", "Cập Nhật", True
    ViewMenu "Guest", "QuanLyCongVan", "Cập Nhật", False
  
  


•   Tạo số phiếu tăng theo mẫu : date+STT
  

  Viết bởi: Noname 26-08-10, 08:32 PM Chuyên mục: Thư viện thủ thuật - Bài trả lời (15)

• Hôm trước mình giới thiệu thủ thuật tạo số phiếu tăng tự động theo đoạn code của anh phatnq2002 trang Dân Kế Toán
  Tạo số chứng từ tăng dần và reset mỗi tháng
  
  Hôm nay, mình giới thiệu đoạn code tạo số chứng từ tăng dần theo mẫu dạng: dd/mm/yy + số TT
  Để số thứ tự tự động tăng dần để trường STT là Text. Đồng thời ta thêm 1 trường couter kiểu Number - Integer để đếm số phiếu trong ngày. Trường này sẽ tăng khi bạn nhập phiếu mới với giá trị = max giá trị ngày đó.
  Trường STT của bạn sẽ được set giá trị = Date & "-" & format(Couter,"000")
  
  * Chú ý: để biết 1 record có phải được thêm mới hay không, bạn xét ở sự kiện Form_Current() của form. Nếu STT của bạn là null thì nó là record mới.
  
  
  Mã:

  Private Sub Form_Current()
    'Kiểm Tra số thứ tự, nếu Null thì đó là recodr mới
    If IsNull(Me.STT) Then
    STT.Value = SoTT
    End If
    End Sub

    Function SoTT() As String
    Dim so As Integer
    so = Nz(DMax("[Couter]", "BangChi", "[Date]= date()"))
    Couter.Value = so + 1
    SoTT = Date & "-" & Format(Couter, "000")
    End Function
  
  Mời các bạn xem demo về xem:
  DownLoad
  


•   Tính ngày làm việc thực tế giữa khoảng thời gian
  

  Viết bởi: Noname 26-08-10, 08:31 PM Chuyên mục: Thư viện thủ thuật - Bài trả lời (1)

• Rất nhiều nhà quản lý kế hoạch ( planning) muốn tính ngày làm việc thực tế giữa hai khoảng thời gian.
  Dưới đây mình xin giới thiệu đoạn code tính ngày làm việc thực tế. Trừ thứ 7 và chủ nhật. Mời các bạn tham khảo.
  
  
  
  Mã:

  Function CalcWorkdays(StartDate, EndDate) As Integer
    Dim LTotalDays As Integer
    Dim LSaturdays As Integer
    Dim LSundays As Integer
    On Error GoTo Err_Execute
    CalcWorkdays = 0
    If IsDate(StartDate) And IsDate(EndDate) Then
        If EndDate <= StartDate Then
            CalcWorkdays = 0
        Else
            LTotalDays = DateDiff("d", StartDate - 1, EndDate)
            LSaturdays = DateDiff("ww", StartDate - 1, EndDate, 7)
            LSundays = DateDiff("ww", StartDate - 1, EndDate, 1)
            'Workdays is the elapsed days excluding Saturdays and Sundays
            CalcWorkdays = LTotalDays - LSaturdays - LSundays
        End If
    End If
    Exit Function
Err_Execute:
    'If error occurs, return 0
    CalcWorkdays = 0
End Function
  Chú ý:
  1/Nếu chúng ta làm luôn thứ bảy thì thay thế:
  
  Mã:

  CalcWorkdays = LTotalDays - LSaturdays - LSundays
  Thành:
  
  Mã:

  CalcWorkdays = LTotalDays -LSundays
  2/ Phạm vi hàm này không bao gồm ngày lễ. Lẽ ra mình có thể thiết kế tính luôn ngày lễ nếu như chúng ta không có nghỉ tết âm lịch và giỗ tổ Hùng Vương. Mình sẽ bổ sung nếu tìm thấy module chuyển ngày dương thành âm lịch!
  
  Thân mến!
  
  
  File đính kèm

  
    tinhngaylamviec.rar (Kích cỡ: 12.27 KB / Tải về: 95)
  
  


•   Không tạo được ActiveX trong Access
  

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

• Hỏi: Em có tạo một sổ địa chỉ lấy dữ liệu từ tập tin MDB. Khi chạy chương trình trên máy nhà em thì bình thường nhưng khi chạy trên máy khác thì không được và có thông báo lỗi "Run-time error '429': Active X component can't create object". Thông báo này là sao, xin chỉ cho em cách khắc phục.
  
  Trả lời: Khi sử dụng Access, thông báo lỗi "ActiveX component can't create object" xảy ra có thể do một hay nhiều nguyên nhân:
  - Thư viện DAO 3.6 không được đăng ký thích hợp. Cách giải quyết: Trên Windows, chọn Start > Run và gõ dòng lệnh (tùy theo máy, đường dẫn có thể khác):
  regsvr32 "C:\Program Files\Common Files\Microsoft Shared\DAO\DAO360.DLL"
  - Thiếu một hay nhiều References. Cách giải quyết: Mở database đã gặp lỗi này, nhấn ALT+F11 để mở Microsoft Visual Basic Editor, chọn Tools > References, kiểm tra thư viện nào cần có nhưng chưa được đánh dấu chọn thì đánh dấu chọn vào checkbox bên cạnh. Thường thì Microsoft DAO 3.6 Object Library là thư viện cần có.
  - Có một tham chiếu không hợp lệ đến Utility Database. Cách giải quyết: Mở database đã gặp lỗi này, nhấn ALT+F11 để mở Microsoft Visual Basic Editor, chọn Tools > References, xóa đánh dấu chọn ở bất kỳ tham chiếu nào đến Utility Database hoặc Utility.MDA.
  - Không có quyền truy cập đến các thư viện cần thiết. Cách giải quyết: Phải bảo đảm các user có quyển “read” đối với tất cả các tập tin trong thư mục:
  \Windows\System32 (nếu là Windows XP) hoặc \Winnt\System32 (nếu là Windows NT, 2000) hoặc \Windows\System (nếu là Windows 95, 98, Me).
  - Có một tập tin wizard gặp nguy hiểm. Cách giải quyết: Sử dụng Windows Explorer để tìm các tập tin wizard sau: Acwzmain.mde, Acwztool.mde và Acwzlib.mde, đổi phần đuôi tên tập tin của mỗi tập tin thành .old, dùng Add or Remove Programs của Control Panel để Reinstall or Repair Office (trong đó chọn Access) nhằm khôi phục các tập tin này.
  CHƯƠNG CAN CHÍP (echip)
  


•   Kiểm tra sự tồn tại của Fields trong table
  

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

• Hỏi : tôi có 1 table là: tblHOSO; tôi muốn dùng code để kiểm tra xem trong tblHOSO có field KIEMTRA không?
  
  
  Đáp: Bạn chép Function sau:
  
  
  Mã:

  Function DoesFieldExist (tableName As String, fieldName As String) As Boolean
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim i As Integer

Set db = CurrentDb
Set tdf = db.TableDefs(tableName)

For i = 0 To tdf.Fields.Count - 1

If fieldName = tdf.Fields(i).Name Then
DoesFieldExist = True
Exit Function
End If
Next
End Function
  Giờ bạn có thể gọi
  
  
  Mã:

  If DoesFieldExist("tblHoso","KiemTra") then
Msgbox " Co Field ton tai trong table"
Else
Msgbox " khong co field ton tai trong table"
End If
  Theo Spammail-KHPT.net
  



Chủ đề Mới nhất

<a href="https://gyn101.c... -Chuyên mục: Ms PowerPoint-Đăng bởi lần cuối: SilverBlade-1 Giờ trước- » Bài trả lời: 0- » Lượt xem: 1

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: chuvanthom-08-12-25, 09:12 PM- » Bài trả lời: 2- » Lượt xem: 3,259

Demo - Tra cứu thông tin ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: ongke0711-16-11-25, 07:03 PM- » Bài trả lời: 26- » Lượt xem: 4,126

Quản lý kho bằng Accesss -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: hoandokhai-18-10-25, 04:48 PM- » Bài trả lời: 70- » Lượt xem: 5,947

Thơ Nhạc Nhất Lang - Cảm ... -Chuyên mục: Góc Thơ -Đăng bởi lần cuối: Nguyễn Thành Sáng-09-10-25, 03:12 PM- » Bài trả lời: 1- » Lượt xem: 64

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

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

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: 13,051

(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: 114,458

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




Diễn đàn Thống kê

» Thành viên: 8,032 » Thành viên mới nhất: 888tofit » Các chủ đề diễn đàn: 9,899 » Các bài viết diễn: 48,829 Thống kê đầy đủ