Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Giúp đỡ về form với
#1
Mình có 1 form vào data mình muốn trường xã=mặc định "hải thanh" còn nếu ngaykham=02/08/2016 thì lúc đó trường tháng tự động điền vào là 8 cũng tương tự ngaykham=01/08/2016 đến 08/08/2016 thì tuần điền là 1 và từ 09/08/2016 đến 15/08/2016 thì tự động điền là 2 (có nghĩa tháng nào thì trường tháng điền tháng đó còn tuần chia 4 tuần) khi ghi recode thì động điền vào.

Mới học access nên cũng còm kém mong mọi người giúp cái

Thank all.

Link: http://www.mediafire.com/download/nbx44f...NGMINH.mdb
Chữ ký của trungminh trungminh,gia nhập Thủ Thuật Access từ 12-07 -16.
Reply
Những người đã cảm ơn
#2
Sử dụng Defaul Value của các textbox nhé.
Bạn nghiên cứu thêm về các hàm: Month(); Week() và kết hợp chúng với nhau nhé
Chữ ký của cpucloi Tôi chỉ biết mỗi một điều là những điều tôi biết được còn quá ít 021
Gmail: cgiahuy13@gmail.com


ღღღღღTài sản của cpucloi (View All Items) ღღღღღ
Reply
Những người đã cảm ơn maidinhdan
#3
phần defaul value của xã đã làm được còn phần tháng và tuần chưa rõ dùng lệnh gì vì nó còn liên quan đến ngaykham nữa (làm mãi mà chưa được)
Chữ ký của trungminh trungminh,gia nhập Thủ Thuật Access từ 12-07 -16.
Reply
Những người đã cảm ơn
#4
(10-09-16, 11:26 AM)trungminh Đã viết: Mình có 1 form vào data mình muốn trường xã=mặc định "hải thanh" còn nếu ngaykham=02/08/2016 thì lúc đó trường tháng tự động điền vào là 8 cũng tương tự ngaykham=01/08/2016 đến 08/08/2016 thì tuần điền là 1 và từ 09/08/2016 đến 15/08/2016 thì tự động điền là 2 (có nghĩa tháng nào thì trường tháng điền tháng đó còn tuần chia 4 tuần) khi ghi recode thì động điền vào.

Mới học access nên cũng còm kém mong mọi người giúp cái

Thank all.

Link: http://www.mediafire.com/download/nbx44f...NGMINH.mdb

Bạn xem file đính kèm http://www.mediafire.com/download/24bonc...NGMINH.mdb
Chữ ký của huuduy.duy Xin chào, mình là huuduy.duy, Tham gia http://thuthuataccess.com/forum từ ngày 24-06 -13.
ღღღღღTài sản của huuduy.duy (View All Items) ღღღღღ
Reply
Những người đã cảm ơn maidinhdan
#5
Bạn ơi mình đã xem rồi nhưng khi ghi vào data trường THANG và TUAN không có số liệu (nó chỉ hiện lện form thôi) mà tuần hình như không chính xác vì mình vào 01/09/2016 thì TUAN lại là 5 thì không đúng nó là 1 mới đúng (mỗi tháng có 4 tuần) nếu mà để ẩn trường THANG TUAN đi được thì tốt
Chữ ký của trungminh trungminh,gia nhập Thủ Thuật Access từ 12-07 -16.
Reply
Những người đã cảm ơn
#6
Bạn phải xem lại cách viết code (như cách viết số TT tăng dần) hoặc bạn sử dụng Unbround Form để làm nhé. Với tuần, bạn lấy số ngày chi cho 4 chỉ lấy phần nguyên thôi val(date(ngaykham))\7
Chữ ký của cpucloi Tôi chỉ biết mỗi một điều là những điều tôi biết được còn quá ít 021
Gmail: cgiahuy13@gmail.com


ღღღღღTài sản của cpucloi (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#7
- Muốn tìm tuần thứ mấy của Năm thì dùng hàm DATEPART(). 1 năm có 53 tuần.
  vd: DatePart ("ww",[NGAYKHAM]) --> DatePart ("ww",#01/09/2016#) = 36

- Muốn tìm tuần thứ mấy của Tháng thì dùng hàm tự chế: copy hàm này vào module.

Mã PHP:
Public Function fSoTuanTrongThang(dtDate As Date) As Byte
     fSoTuanTrongThang 
DatePart("ww"dtDate) - DatePart("ww"DateSerial(Year(dtDate), Month(dtDate), 1)) + 1
End 
Function 

Vd: fSoTuanTrongThang([NGAYKHAM])  --> fSoTuanTrongThang(#01/09/2016#) = 1

- Việc lưu thêm trường [Tuần], [Tháng] tôi nghĩ không cần thiết, khỏi tốn bộ nhớ. Khi cần làm báo cáo, hiển thị thì query từ [NGAYKHAM] là được rồi.
Chữ ký của ongke0711 If you BORN poor, it's not your mistake. But if you DIE poor, It's your mistake!
ღღღღღTài sản của ongke0711 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn huuduy.duy , trungminh , maidinhdan
#8
(10-09-16, 04:01 PM)ongke0711 Đã viết: - Muốn tìm tuần thứ mấy của Năm thì dùng hàm DATEPART(). 1 năm có 53 tuần.
  vd: DatePart ("ww",[NGAYKHAM]) --> DatePart ("ww",#01/09/2016#) = 36

- Muốn tìm tuần thứ mấy của Tháng thì dùng hàm tự chế: copy hàm này vào module.

Mã PHP:
Public Function fSoTuanTrongThang(dtDate As Date) As Byte
     fSoTuanTrongThang 
DatePart("ww"dtDate) - DatePart("ww"DateSerial(Year(dtDate), Month(dtDate), 1)) + 1
End 
Function 

Vd: fSoTuanTrongThang([NGAYKHAM])  --> fSoTuanTrongThang(#01/09/2016#) = 1

- Việc lưu thêm trường [Tuần], [Tháng] tôi nghĩ không cần thiết, khỏi tốn bộ nhớ. Khi cần làm báo cáo, hiển thị thì query từ [NGAYKHAM] là được rồi.

Bạn có thể giúp mình với: Khi vào số liệu lưu lại hoặc thêm mới thì THANG , TUAN đều có dữ liệu theo ngaykham (12 tháng và tuần thì 1 tháng có 4 tuần) thank nhiều
thank nhiều
Chữ ký của trungminh trungminh,gia nhập Thủ Thuật Access từ 12-07 -16.
Reply
Những người đã cảm ơn
#9
- 2 Textbox trên form thể hiện THANG, TUAN thì cũng có Control Source là THANG, TUAN.
- Vào màn hình VBA code: copy câu lệnh này dùng để gán THANG, TUAN
Mã PHP:
Private Sub cmdluu_Click()
 
   Me.THANG Month(Me.NGAYKHAM)
   Me.TUAN fSoTuanTrongThang(Me.NGAYKHAM)
End Sub 
Chữ ký của ongke0711 If you BORN poor, it's not your mistake. But if you DIE poor, It's your mistake!
ღღღღღTài sản của ongke0711 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn maidinhdan , trungminh
#10
(10-09-16, 05:37 PM)ongke0711 Đã viết: - 2 Textbox trên form thể hiện THANG, TUAN thì cũng có Control Source là THANG, TUAN.
- Vào màn hình VBA code: copy câu lệnh này dùng để gán THANG, TUAN
Mã PHP:
Private Sub cmdluu_Click()
   Me.THANG Month(Me.NGAYKHAM)
   Me.TUAN fSoTuanTrongThang(Me.NGAYKHAM)
End Sub 

đã được như ý thank nhiều
Chữ ký của trungminh trungminh,gia nhập Thủ Thuật Access từ 12-07 -16.
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
  Tự động hiện Form khi loading hết thời gian ChiMai 1 20 9 Giờ trước
Bài mới nhất: ongke0711
Photo [Hỏi] Mở Form trên access 2007 báo lỗi jason 5 186 22-11-16, 09:23 AM
Bài mới nhất: jason
  Query hiện lên trên form? feeling 4 160 09-11-16, 09:49 PM
Bài mới nhất: toancvp
  [Help] Chỉnh giúp Form thống kê hoanghai902 2 122 28-10-16, 06:15 PM
Bài mới nhất: hoanghai902
  [Help] Dòng chữ chạy trên form báo đến ngày sinh nhật tronghieu9792 1 121 20-10-16, 09:30 AM
Bài mới nhất: lamvankhanh

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ơ