Đá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
  Lập chỉ mục (Index) trong Table - Tăng tốc tìm kiếm và sắp xếp dữ liệu ongke0711 5 213 02-04-18, 11:56 PM
Bài mới nhất: tranthanhan1962
  Làm sao để Link table từ 1 File Excel mà có thể sửa xoá được ledangvan 1 125 11-03-18, 12:35 AM
Bài mới nhất: tranthanhan1962
Lightbulb [Hỏi] Tạo màu , hình , link cho dữ liệu form toidjtjmtoi 5 349 06-03-18, 10:46 AM
Bài mới nhất: toidjtjmtoi
  Hướng Dẫn Cập nhật dữ liệu để sao lưu qua file access khác mrtoanbin 7 370 10-01-18, 08:46 AM
Bài mới nhất: cpucloi
  [Hỏi] Lệnh Docmd chỉ mở bảng mà không tự động mở bảng đó` killitmore 3 250 13-12-17, 04:22 PM
Bài mới nhất: duynamvnn1208

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ơ| PMA Nha Trang| Gỗ Acrylic Không Đường Line