Đá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
  [Help] Code update dữ liệu từ subform vào table history(có ghi nhận ngày update) subasatran 5 287 10-07-17, 02:07 PM
Bài mới nhất: tranthanhan1962
  [Hỏi] Xin trợ giúp câu lệnh tự động lên lớp khi giới hạn thời gian truongtrungviet 14 705 02-07-17, 05:01 PM
Bài mới nhất: maidinhdan
  hàm Dlookup không hoạt động ở máy khác thanhtruong 3 261 17-06-17, 07:32 PM
Bài mới nhất: tranthanhan1962
  Tạo code cho form đăng nhập feeling 6 492 01-06-17, 12:35 AM
Bài mới nhất: toancvp
  Code cho nút lệnh Mới trên Form feeling 3 362 10-05-17, 04:38 PM
Bài mới nhất: tranthanhan1962

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ơ