Đá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
  Hướng Dẫn Xóa Table mrtoanbin 1 76 29-05-17, 10:10 AM
Bài mới nhất: cpucloi
Question [Hỏi] Chèn thêm dữ liệu từ excel vào access hoangktxd 2 97 20-05-17, 11:48 PM
Bài mới nhất: maidinhdan
  Giúp tôi về các phép tính table trong Access ! tomahoc89 10 11,863 15-05-17, 11:59 AM
Bài mới nhất: vkaccess
  [Help] Export dữ liệu từ bảng on access ra excell. HoangManh 2 157 10-05-17, 03:54 PM
Bài mới nhất: HoangManh
  [Help] HELP - Cách chuyển đổi dạng dữ liệu OEL project sang number trong 1 field của table phamphuongnam 8 450 18-02-17, 04:11 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ơ