• 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ủ
•   Bắt lỗi khi nhập liệu sai và người dùng đóng form
  

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

• Hỏi: Tôi tạo form nhập liệu, và muốn bắt lỗi khi người dùng nhập sai nhưng muốn đóng form thì hiện ra thông báo : " Có dữ liệu bị lỗi, Bạn có muốn đóng không?" Vậy tôi phải bắt lỗi thế nào?
  
  Đáp:
  (theo hướng dẫn anh phatnq2002 trên DKT)
  Để bắt được lỗi này, bạn phải kết hợp hai sự kiện Form_Error và Form_UnLoad.
  
  
  Bạn nên tạo một biến dùng chung cho module (nghĩa là khai báo ở vùng Declaration của Form Module), ví dụ Dim hasError As Boolean chẳng hạn
  
  Cái sự kiện bạn bắt bao gồm 2 cái:
  
  
  Mã:

  1. là Form_Unload: sự kiện này xảy ra trước Close. Do vậy nếu Cancel=True ở đây đồng nghĩa với việc hủy Close.

    Private Sub Form_Unload(Cancel As Integer)
    If hasError Then
    If MsgBox("Có dữ liệu bị lỗi, Bạn có muốn đóng không?", vbYesNo) = vbNo Then
    Cancel = True
    Else
    DoCmd.RunCommand acCmdUndo
    End If
    End If
    End Sub
  
  2. là Form_Error
  
  
  Mã:

  Private Sub Form_Error(DataErr As Integer, Response As Integer)
    Respponse = acDataErrContinue
    hasError = True
    Select Case DataErr
    Case 2169
    MsgBox "Co loi khi luu du lieu."
    Case Else
    MsgBox "Err No." & DataErr & vbCrLf & "Err Mess: " & Error(DataErr)
    End Select
    End Sub
  
  


•   Gọi 1 đoạn code từ menu tự tạo
  

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

• Hỏi: Tôi có 1 đoạn code trước đây tôi gọi từ form. Nhưng giờ chuyển sang menu thì làm sao gọi được.
  Đáp: Để gọi 1 đoạn code từ menu, yêu cầu đoạn code của bạn phải là 1 function.
  Ví dụ:
  
  
  Mã:

  Function QuanlyUser()
    If GetUserLevel > 1 Then
    DoCmd.Close
    DoCmd.OpenForm "frmQuanlyUser", , , "[UserLevel] <" & GetUserLevel
    Else
    msgBoxOK DLookup("[NDUNG1]", "tblTHONGBAO", "[SOTB] = 9") & vbCrLf & DLookup("[NDUNG2]", "tblTHONGBAO", "[SOTB] = 9"), vbCritical, DLookup("[TIEUDE]", "tblTHONGBAO", "[SOTB] = 9")
    End If

    End Function
  
  Sau đó, tạo 1 macro và gọi function này bằng hàm runcode . Rồi lưu lại đầy đủ trường name, action...
  (trong ví dụ mình lưu Macro tên Dulieuhethong)
  
  
  
  Giờ bạn có thể tạo 1 memu gọi macro này bằng cách click chuột phải lên thanh menu, chọn custonmise, Sau đó chọn như hình, lôi Item muốn run lên vị trí tùy ý trên thanh bar tự tạo.
  
  
  Chương trình demo xin phép modifield lại của bạn HaQuocQuan. :
  ID: Admin
  Pass: Admin
  Pass enable/disable phím shift và VBA : ladieskiller
  Demo
  
  Các bạn có thể tham khảo thêm bài:
  Thiết kế chương trình phân quyền để biết thêm về cơ chế phân quyền trong demo này.
  Cũng tham khảo thêm bài: Hướng dẫn tạo menu để biết cách tự tạo 1 menu
  


•   Cách lấy (copy)database tại một máy trên mạng Lan
  

  Viết bởi: Noname 27-08-10, 10:11 AM Chuyên mục: Tương tác Chương trình ngoài - Bài trả lời (12)

• Hỏi:
  Mong được sự giúp đỡ của các cao thủ lập trình Access :
  _ Đến 1 ngày nhất định trong tháng phải copy database Access từ một máy tính trên mạng Lan; tên máy tính là computerA và địa chỉ IP tĩnh 192.168.1.30, máy tính A share thư mục với tên "Baocao" và tên file cần lấy là "Nhaplieu.mdb".
  ( tức là \\computerA\Baocao\nhaplieu.mdb hoặc \\192.168.1.30\Baocao\nhaplieu.mdb )
  + Mình muốn tạo một button khi click vào sẽ tự động lấy file ấy về và để tại máy tính mình tại thư mục gốc ổ D.
  
  Đáp:
  
  Trong sự kiện Click, bạn cho dòng lệnh sau vào
  
  Mã:

  Dim RCopy as String
    Rcopy= "Copy \\computerA\Baocao\nhaplieu.mdb D:\nhaplieu.mdb"

    Shell RCopy,vbHide
  
  Hoặc:
  
  
  Mã:

  Call FileCopy("\\computerA\Baocao\nhaplieu.mdb", "D:\nhaplieu.mdb")
  
  Nếu vẫn không được thì dùng cách sau
  b1. Tạo 1 file nội dung là
  
  Mã:

  Copy D:\CSDL\DATA.mdb D:\CSDLLUU\DATA.mdb
  lưu thành file d:\csdl\copy.bat
  b2. gọi hàm
  
  Mã:

  Shell "d:\csdl\copy.bat", vbHide
  
  Trong trường hợp máy copy yêu cầu nhập userName/ pass để được vào copy thì bạn dùng cách Map 1 ổ đĩa mạng, rồi copy từ đó về máy.
  Xem thêm cách map ổ đĩa mạng với UserName/ Pass
  
  
  


•   Map Network Drive bằng VBA
  

  Viết bởi: Noname 27-08-10, 10:09 AM Chuyên mục: Tương tác Chương trình ngoài - Không có hồi đáp

• Hỏi: Mình có làm 1 chương trình file Data để trên mạng LAN, do đó nếu người dùng không map ổ mạng thì sẽ không thể chạy chương trình được. Các bác cho em hỏi có đoạn code nào gọi cửa sổ Map network Drive lên được không?
  Đáp:
  Điều kiện là thư mục của bạn phải được share trước.
  
  Mã:

  Sub MapNetwork(D As String, s As String, UserName As String, Password As String)
    'd : diver
    's: Map Address
    Dim p As String
    p = "net use " & D & ": \\" & s
    Shell p, vbHide
    MsgBox "Map " & D & " successful"
    End Sub
  
  
  Bây giờ, giả sử dữ liệu mình nằm trên server trong thư mục DuLieu. UserName Mình là Noname. Pass Của mình là TTAC. Mình muốn gán ổ đĩa G làm ổ mạng. mình sẽ gọi Thủ tục map network Drive như sau:
  
  
  Mã:

  MapNetwork "G", "server\dulieu", "Noname", "TTAC"
  
  


•   Chặn ghi trùng dữ liệu với Validaction
  

  Viết bởi: Noname 27-08-10, 10:07 AM Chuyên mục: Forms - Bài trả lời (13)

• Hỏi:
  Trong Validation Ruler của Table hoặc Form có cách nào để chặn không cho ghi dữ liệu trùng không các bạn.
  Vì mình có 1 Form nhập thông tin khách hàng,mình không muốn số Mobile trùng nhau ,nên mình muốn đặt Validation Ruler không cho nhập trùng có được không,để nếu mình gõ sai nó báo luôn.Các bạn đừng bảo mình thiết lập khóa chính hay Index (No duplicates) nhé ,vì như thế phải nhập hết thông tin của 1 bản ghi thì nó mới báo trùng,như thế mất công lắm.
  Đáp:
  Giả sử bạn có 1 table là Customers(maKH,phone,...), 1 form tên là Customers
  Trong form nhập thông tin khách hàng, textbox phone Bạn đặt các thuộc tính như sau:
  ValidationRule property:
  
  Mã:

  DLookUp("[Phone]","Customer","[Phone] = '" & [Forms]![Customer]![Phone] & "' and [CusID] <>'" & [Forms]![Customer]![CusID] & "'") Is Null
  
  
  Mã:

  ValidationText property : "Số phone này đã được nhập , vui lòng xem lại"
  
  Demo
  



Chủ đề Mới nhất

<a href="https://gyn101.c... -Chuyên mục: Ms PowerPoint-Đăng bởi lần cuối: SilverBlade-6 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,260

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

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

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