• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

code tự động tăng

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • Hướng Dẫn code tự động tăng
• code tự động tăng

• code tự động tăng

  TAI > 04-10-14, 07:24 AM

  mình có mahv là kiểu text tên là HV001. mình muốn khi nhấn nút thêm thì mã hv này tăng lên tự động. mong các bạn chỉ giáo

• RE: code tự động tăng

  changkhoonline77 > 04-10-14, 07:49 AM

  Nếu mã là số thì dễ hơn
  ví dụ:
  
  

  Mã PHP:

  Dim mahvNew As Integer
        mahvNew = DMax("[mahv]", "tblData") 


  
  còn chữ và số thì..
  
  bạn thử cái này xem sao, mình chưa kiểm tra
  

  Mã PHP:

  Dim mahvNew As Integer
        mahvNew = DMax(mid("[mahv]", "tblData"),3) 


• RE: code tự động tăng

  vulhu06 > 04-10-14, 09:36 AM

  (04-10-14, 07:24 AM)TAI Đã viết: mình có mahv là kiểu text tên là HV001. mình muốn khi nhấn nút thêm thì mã hv này tăng lên tự động. mong các bạn chỉ giáo

  
  B1. Bạn tạo thêm file id (auto number) trong bảng chứa MAHV
  B2. Bạn tạo 1 module như sau:
  
  Function taomahv(id As Integer) As String
  taomacty = "CT" & Right("00000" & id, 5)
  End Function
  B3. Trong textbox MAHV gõ ct =taomahv([id])

• RE: code tự động tăng

  TAI > 04-10-14, 01:29 PM

  tạo thêm một mudule là sao bạn. tạo ở đâu??? mình còn gà lắm mong bạn chỉ rõ dùm mình

• RE: code tự động tăng

  vulhu06 > 07-10-14, 09:53 AM

  (04-10-14, 01:29 PM)TAI Đã viết: tạo thêm một mudule là sao bạn. tạo ở đâu??? mình còn gà lắm mong bạn chỉ rõ dùm mình

  
  Tại màn hình access bạn nhấn tổ hợp phím Alt+F11 (mở trình soạn thảo code VBA) chọn insert ->module rồi gõ đoạn code đó vào

• RE: code tự động tăng

  lenzeloss > 27-11-14, 01:45 PM

  (04-10-14, 09:36 AM)vulhu06 Đã viết:

  (04-10-14, 07:24 AM)TAI Đã viết: mình có mahv là kiểu text tên là HV001. mình muốn khi nhấn nút thêm thì mã hv này tăng lên tự động. mong các bạn chỉ giáo

  
  B1. Bạn tạo thêm file id (auto number) trong bảng chứa MAHV
  B2. Bạn tạo 1 module như sau:
  
  Function taomahv(id As Integer) As String
  taomacty = "CT" & Right("00000" & id, 5)
  End Function
  B3. Trong textbox MAHV gõ ct =taomahv([id])

  Theo như cách bạn thì sẽ mất luôn khoá giữa Mainform và Subform ==> subform sẽ bị lỗi
• Bài trước Bài tiếp