honglv157 > 13-08-15, 04:29 PM
tranthanhan1962 > 13-08-15, 07:09 PM
(13-08-15, 04:29 PM)honglv157 Đã viết: tạo mã học viên tự động dựa trên các thông tin học viên bao gồm: họ tên, năm sinh, nơi sinh và giới tính. Em đã có tham khảo qua file của bác Xuanthanh nhưng thật sự chưa rõ các bước thực hiện như thế nào? Viết 1 code duy nhất gắn vào mahocvien hay là gắn sự kiện vào lần lượt các texbox trên a?
Mong mọi ngươi quan tâm.Thanks
Link bài tạo mã của bác xuân thanh:
http://thuthuataccess.com/forum/thread-6236.html
và đây là cơ sở dữ liệu của em ah:
http://www.mediafire.com/download/d6bqbqdlldb37ry/A.mdb
Private Sub TENHOCSINH_ AfterUpdate()
MAHS.Value = TENHOCSINH.Value & “ ” & IIf(GIOITINH.Value = True, “Nữ”, “Nam”) & “ ” & NAMSINH.Value & “ ” & Format( ID.Value, “0000”)
End Sub
Tương tự.
Private Sub GIOITINH _ AfterUpdate()
MAHS.Value = TENHOCSINH.Value & “ ” & IIf(GIOITINH.Value = True, “Nữ”, “Nam”) & “ ” & NAMSINH.Value & “ ” & Format( ID.Value, “0000”)
End Sub
Private Sub NAMSINH _ AfterUpdate()
MAHS.Value = TENHOCSINH.Value & “ ” & IIf(GIOITINH.Value = True, “Nữ”, “Nam”) & “ ” & NAMSINH.Value & “ ” & Format( ID.Value, “0000”)
End Sub
honglv157 > 13-08-15, 11:33 PM
tranthanhan1962 > 15-08-15, 01:32 AM
maidinhdan > 15-08-15, 02:53 AM
(15-08-15, 01:32 AM)tranthanhan1962 Đã viết: ..............
3/Phần này bạn xem lại. Không hiểu sau khi mình tải dữ liệu của bạn về không tham chiếu được giá trị sub form từ main form(dữ liệu cũ của bạn lúc trước không bị vấn đề này)
..................
honglv157 > 18-08-15, 10:31 AM
maidinhdan > 18-08-15, 10:42 AM
(18-08-15, 10:31 AM)honglv157 Đã viết: =IIf(VarType([Forms]![F_LopHoc]![F_TTHS].[Form]![Stt])=3,[Forms]![F_LopHoc]![F_TTHS].[Form]![Stt]+1,1)
Cho em hỏi câu lệnh IFF có nghĩa là gì, chỗ STT=3 ?
vbEmpty = 0
Chưa khởi tạo
vbNull = 1
Không có dữ liệu
vbInteger = 2
Kiểu Integer
vbLong = 3
Kiểu Long integer
vbSingle = 4
Kiểu Single
vbDouble = 5
Kiểu Double
vbCurrency = 6
Kiểu Currency
vbDate = 7
Kiểu Date
vbString = 8
Kiểu String
vbObject = 9
Là một Object
vbError = 10
Giá trị lỗi
vbBoolean = 11
Kiểu Boolean
vbVariant = 12
Kiểu Variant
vbDataObject = 13
Là một DataObject
vbDecimal = 14
Kiểu Decimal
vbByte = 17
Kiểu Byte
vbUserDefinedType = 36
1 kiểu xác định trong Variant
vbArray = 8192
Kiểu Array
honglv157 > 18-08-15, 11:08 AM
maidinhdan > 18-08-15, 11:30 AM
(18-08-15, 11:08 AM)honglv157 Đã viết: Table DMHV( STT (Autonumber, MAHS (Format :"HV000000),....
Code tạo MHS:
Sự kiện gắn với STT
Private Sub STT_AfterUpdate()
MAHS.Value = "HV" & Right("000000" & STT, 6)
End Sub
Giúp em chỉ ra lỗi sai với a
honglv157 > 18-08-15, 01:10 PM
(18-08-15, 11:30 AM)maidinhdan Đã viết:Đã dùng cách 1, bỏ format nhưng mã hv vẫn không tự động thêm khi nhập record mới? Chỉ giúp chị xem chị còn phải chỉnh chỗ nào nữa?(18-08-15, 11:08 AM)honglv157 Đã viết: Table DMHV( STT (Autonumber, MAHS (Format :"HV000000),....
Code tạo MHS:
Sự kiện gắn với STT
Private Sub STT_AfterUpdate()
MAHS.Value = "HV" & Right("000000" & STT, 6)
End Sub
Giúp em chỉ ra lỗi sai với a
không biết đoạn này có ý gì? Table DMHV( STT (Autonumber, MAHS (Format :"HV000000),....
Nhưng MAHS dùng Format :"HV000000" là trật rồi, có 2 cách giải quyết.
1. Chả cần dùng Format :"HV000000" ( xóa hẳn, bởi đã dùng code tự động thêm rồi)
2. Chuyển Format :"HV000000" xuống dưới Input Mask, còn size thì có cho nó là 8.
* Khuyên dùng cách 1 là hay nhất.