Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Tự động tạo dữ liệu trong table????
#1
Mình có 1 table có cấu trúc như sau:
Col 1: Tên KH
Col 2: Đơn hàng
Col 3: Ngày nhận hàng
Col 4: Mã đơn hàng

Điều kiện như sau:
Ở Col 4 sẽ tự động cập nhật dữ liệu lấy điều kiện từ ngày nhận hàng
VD:
Ngày nhận hàng là 01/01/2014
Mã đơn hàng sẽ là: 01A14
Diễn giải:
- 2 ký tự đầu là tháng (01)
- ký tự thứ 3: A - nếu ngày nhận từ ngày 1 đến ngày 10, B - từ ngày 11 đến 20, C - từ ngày 21 trở đi
- Ký tự thứ 4,5: năm của ngày nhận (14)
Các bạn hướng dẫn mình nhé, mình mới làm quen với access nên chưa hiểu nhiều. Thanks
Chữ ký của pntnguyen Xin chào, mình là pntnguyen, Tham gia http://thuthuataccess.com/forum từ ngày 22-01 -14.
Reply
Những người đã cảm ơn
#2
(22-01-14, 11:24 PM)pntnguyen Đã viết: Mình có 1 table có cấu trúc như sau:
Col 1: Tên KH
Col 2: Đơn hàng
Col 3: Ngày nhận hàng
Col 4: Mã đơn hàng

Điều kiện như sau:
Ở Col 4 sẽ tự động cập nhật dữ liệu lấy điều kiện từ ngày nhận hàng
VD:
Ngày nhận hàng là 01/01/2014
Mã đơn hàng sẽ là: 01A14
Diễn giải:
- 2 ký tự đầu là tháng (01)
- ký tự thứ 3: A - nếu ngày nhận từ ngày 1 đến ngày 10, B - từ ngày 11 đến 20, C - từ ngày 21 trở đi
- Ký tự thứ 4,5: năm của ngày nhận (14)
Các bạn hướng dẫn mình nhé, mình mới làm quen với access nên chưa hiểu nhiều. Thanks

Sử dụng hàm lấy mã bên dưới bạn nhé[/quote].
Mã:
Function layma(ngay)
haisodau = Str(Month(ngay))
If haisodau <= 9 Then
haisodau = "0" & haisodau 'lay so 0 neu ngay nho hon 9
End If
Select Case Day(ngay)
Case Is <= 10
layngay = "A"
Case Is <= 20
layngay = "B"
Case Else
layngay = "C"
End Select
kytubonnam = Right(Year(ngay), 2)
layma = kytubonnam
ketqua = haisodau & layngay & kytubonnam
layma = Replace(ketqua, " ", "") ' bo khoang trang phan cach giua ngay va ma so sau do lay ket qua
End Function
File ví dụ: http://haiquan.id1945.com/up/file/_966_vidu.rar
Việc còn lại là bạn vận dụng hàm này vào trong chương trình sao cho phù hợp015
Chữ ký của quan_pc Lắp đặt Internet VNPT tại Điện Bàn - Quảng Nam - Hotline: 0915.636.745
ღღღღღTài sản của quan_pc (View All Items) ღღღღღ
Reply
Những người đã cảm ơn hanhuhuha
#3
Tham gia một hàm tự viết trong Modul

Mã PHP:
Function LayMa(Ngay as Date) As String
    LayMa 
Right("00" Month(Ngay), 2) & IIf(Day(Ngay)<=10"A"IIf(Day(Ngay)<=20"B","C")) & Right(Year(Ngay),2)
End Function 

Thân mến

@quanpc ; Cố gắng nghiên cứu viết cho gọn code
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn quan_pc
#4
(24-01-14, 02:53 PM)Xuân Thanh Đã viết: Tham gia một hàm tự viết trong Modul

Mã PHP:
Function LayMa(Ngay as Date) As String
    LayMa 
Right("00" Month(Ngay), 2) & IIf(Day(Ngay)<=10"A"IIf(Day(Ngay)<=20"B","C")) & Right(Year(Ngay),2)
End Function 

Thân mến

@quanpc ; Cố gắng nghiên cứu viết cho gọn code
Cách của anh rất gọn và hay, em sẽ cố gắng học hỏi thêm về code happy, Xin cảm ơn anh rất nhiều.
Chữ ký của quan_pc Lắp đặt Internet VNPT tại Điện Bàn - Quảng Nam - Hotline: 0915.636.745
ღღღღღTài sản của quan_pc (View All Items) ღღღღღ
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] HELP - Cách chuyển đổi dạng dữ liệu OEL project sang number trong 1 field của table phamphuongnam 8 296 18-02-17, 04:11 PM
Bài mới nhất: cpucloi
  copy dữ liệu excel vào access có kí tự xuống dòng babyrock2009 2 165 01-12-16, 11:16 AM
Bài mới nhất: babyrock2009
  [Help] [Hàm] Lấy dữ liệu giữa 2 file Access có cùng cấu trúc table trungminh 22 1,542 08-10-16, 12:08 AM
Bài mới nhất: maidinhdan
  [Lỗi] Hàm Dsum bi lôi khi sư dụng trong query Phung Duc 1 227 13-09-16, 03:44 PM
Bài mới nhất: ongke0711
  Ngày tháng tự động theo hệ thống trungminh 3 330 10-09-16, 12:33 PM
Bài mới nhất: cpucloi

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ơ