Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Hướng dẫn] code tự động tăng
#1
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
Chữ ký của TAI Xin chào, mình là TAI, Tham gia http://thuthuataccess.com/forum từ ngày 03-10 -14.
Reply
Những người đã cảm ơn
#2
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
Chữ ký của changkhoonline77 Xin chào, mình là changkhoonline77, Tham gia http://thuthuataccess.com/forum từ ngày 25-06 -12.
Reply
Những người đã cảm ơn TAI
#3
(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])
Chữ ký của vulhu06 Xin chào, mình là vulhu06, Tham gia http://thuthuataccess.com/forum từ ngày 15-06 -12.
Reply
Những người đã cảm ơn TAI
#4
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
Chữ ký của TAI Xin chào, mình là TAI, Tham gia http://thuthuataccess.com/forum từ ngày 03-10 -14.
Reply
Những người đã cảm ơn
#5
(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
Chữ ký của vulhu06 Xin chào, mình là vulhu06, Tham gia http://thuthuataccess.com/forum từ ngày 15-06 -12.
Reply
Những người đã cảm ơn
#6
(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
Chữ ký của lenzeloss Xin chào, mình là lenzeloss, Tham gia http://thuthuataccess.com/forum từ ngày 10-11 -14.
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Hỏi] Refresh Form và tiếp tục hoạt động Godspear 2 84 08-12-16, 12:48 PM
Bài mới nhất: Godspear
  Tự động hiện Form khi loading hết thời gian ChiMai 1 49 02-12-16, 08:59 PM
Bài mới nhất: ongke0711
  Xin giúp tạo 1 trường trong table đánh số tự động thay cho autonumber trungminh 7 451 16-09-16, 05:17 PM
Bài mới nhất: maidinhdan
Photo [Hỏi] Tạo nút tự động đánh lại số CT khanh 12 411 03-08-16, 08:23 PM
Bài mới nhất: ongke0711
  [Lỗi] Lỗi code event! toancvp 18 1,039 07-07-16, 01:36 AM
Bài mới nhất: maidinhdan

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ