-
02-15-2009, 06:42 AM #1Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Tính toán và đăng nhập thời gian như nào?
Giả sử mình có 1 table với 1 record là: Thoigiannhap (trong đó hiển thị kiểu như: 02/2008 )
Tạo 1 form như sau:
1 combox :cbothang
1combox :cbonam
1 textbox : txtthoigiannhap
Khi mình chọn tháng + năm trên 2 combox thì giá trị sẽ tự động hiển thị trên textbox : txtthoigiannhap và giá trị này sẽ lưu vào tblnhap với record ví dụ như (2/2008-)
*) Tính toán thời gian giữa khoảng thời gian mình nhập với khoảng thời gian hiện tại.
ví dụ : thời gian nhập hàng : 2/2/1008 so với ngày hôm nay 15/2/2009 được bao nhiêu ngày rồi?
Có thể sử dụng : & DateDiff("d", Now, TheDate(Date))
Vậy chỉ cần tính bao nhiêu tháng thôi thì làm sao nhỉ?View more random threads:
- Code khóa phím Shift
- Tắt mục
- Học Access bằng cách xây dựng một ứng dụng cụ thể - Quản lý Mua và Bán hàng - Phần 1 - Mô tả
- Lỗi Run-time error '3011'
- Một hàm tự viết thay thế cho DLOOKUP của Access
- Hướng dẫn tạo MeNu cho file Access bằng Macro
- Thêm ảnh chân dung cho từng ID.
- Kiểu ngày tháng trong access
- Các viết lệnh trong AC
- Chạy một đoạn code được lưu trong biến biến
-
02-15-2009, 07:52 AM #2Silver member
- Ngày tham gia
- Dec 2015
- Bài viết
- 52
Ðề: Tính toán và đăng nhập thời gian như nào?
Nếu như kiểu của field đó là DateTime thì bạn dùng hàm DateDiff("m", Now, TheDate(Date))
Nhưng vì field của bạn lại có kiểu là số hoặc text nên bạn phải tự tính.
Cứ lấy chênh lệch năm mà đổi ra tháng. 1 năm = 12 tháng. Giống như lấy tiền chẵn đổi ra tiền xu mà dùng.
Khi nhập liệu bạn đã lấy giá trị 2 text box mà nối lại cùng với dấu "/" để ghi vào tblnhap thì bây giờ bạn tách ngược ra để có 2 con số năm và tháng.
Có nhiều cách xử lý chuỗi text.
Giả sử dùng hàm split để cắt chuỗi thành 1 mảng (Array):
Thoigiannhap="02/2008"
a=split(Thoigiannhap,"/") <-- cắt Thoigiannhap thành mảng "02" và "2008" dựa theo ký tự ngăn cách "/"
Msgbox(a(0)) <-- Hiển thị "02"
Msgbox(a(1)) <-- Hiển thị "2008"
Đổi a(0) và a(1) sang kiểu số mà dùng so sánh với tháng năm hiện tại.
-
02-15-2009, 10:17 PM #3Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 0
Ðề: Tính toán và đăng nhập thời gian như nào?
Gửi bởi vuthuanbkvn
-
02-20-2009, 06:13 AM #4Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 1
Ðề: Tính toán và đăng nhập thời gian như nào?
Gửi bởi phatnq2002
Khi hết hạn thì nó có 1 thông báo? thời gian đã hết hạn
Vậy làm như nào các bạn nhỉ?
<<---------------- những cái này là tự động cập nhật nha,không phải tại sự kiện click hay load gì cả.
Tiện đây cho mình hỏi 1 ý:
- mình có 1 combox : loại dữ liệu là Value List ví dụ nguồn dl là : Trung tu;Tiểu tu;Làm mỡ
có 3 textbox là: txttrungtu,txttieutu,txtlammo
Thao tác : khi chọn trung tu thì textbox trung tu sẽ sáng để cho nhập giá trị
tưng tự chọn tiểu tu thì txttieutu sẽ sáng......
Chân thành sự giúp đỡ!
-
02-20-2009, 03:09 PM #5Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Tính toán và đăng nhập thời gian như nào?
Gửi bởi vuthuanbkvn
2. Cái combox đấy thì đơn giản có thể dùng lệnh if hoặc case mà
VD:
select case cmb1.value
case 1
txt1.enable =true
....
case else
end select
hoặc if
if cmb1 =1 then
txt1.enable=true
else
txt1.enable=false
end if
tương tự cho txt2, 3....
-
02-21-2009, 12:50 AM #6Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Tính toán và đăng nhập thời gian như nào?
Gửi bởi behattieu
Ví dụ mình định làm như sau:
Dim cbotinhtrangbd As String
If cbotinhtrangbd = "Làm mỡ " Then
txttglammo.Enabled = True
txttgtieutu.Enabled = False
txttgtrungtu.Enabled = False
ElseIf cbotinhtrangbd = "Tiểu tu" Then
txttgtieutu.Enabled = True
txttglammo.Enabled = False
txttgtrungtu.Enabled = False
ElseIf cbotinhtrangbd = "Trung tu" Then
cbotgtieutu.Enabled = False
txttglammo.Enabled = False
txttgtrungtu.Enabled = True
End If
Nhưng không được
-
02-21-2009, 04:48 AM #7Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 0
Ðề: Tính toán và đăng nhập thời gian như nào?
Gửi bởi vuthuanbkvn
Cho nên khi bạn xài cái If cbotinhtrangbd = "Làm mỡ" thì chắc là tèn tén ten rồi !!!
Giả sử: cái mã tình trạng bạn quy định là: LM -> Làm mỡ, TT -> Tiểu tu, TU -> Trung tu thì bạn có thể dùng đoạn code sau:
cbotgtieutu.Enabled = (cbotinhtrangbd = "TT")
txttglammo.Enabled = (cbotinhtrangbd = "LM")
txttgtrungtu.Enabled = (cbotinhtrangbd = "TU")
-
02-21-2009, 05:04 AM #8Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 12
Ðề: Tính toán và đăng nhập thời gian như nào?
Chắc của bạn bị giống bác phat nói rồi. Sao không thử bẫy bằng 1 msgbox sau khi update cái combobox đấy xem có đúng như thế không
-
02-21-2009, 05:05 AM #9Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Tính toán và đăng nhập thời gian như nào?
Mình đã làm thành công rồi:
Private Sub cbotinhtrangbd_AfterUpdate()
If cbotinhtrangbd= ("Làm mỡ") Then
txttglammo.Enabled = True
txttgtieutu.Enabled = False
txttgtrungtu.Enabled = False
ElseIf cbotinhtrangbd= ("Tiểu tu") Then
txttgtieutu.Enabled = True
txttglammo.Enabled = False
txttgtrungtu.Enabled = False
ElseIf cbotinhtrangbd= ("Trung tu") Then
txttgtieutu.Enabled = False
txttglammo.Enabled = False
txttgtrungtu.Enabled = True
End If
End Sub
trên các textbox thì enabled = no
khi chọn đến đâu nó sẽ sáng đến đó.
hehehe.
chỉ có điều cần cài unicode cho winxp,nếu không cài unicode không biết nó có nhận ra ko? cái này chua thử và chưa hỉu,nhưng làm đc rồi,cảm ơn các bác cho ý kiến
-
02-21-2009, 03:17 PM #10Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Tính toán và đăng nhập thời gian như nào?
Sao khổ vậy, chuẩn hóa nó bằng mấy cái mã đi chứ ai lại để dạng có dấu như vậy làm gì. Vừa làm khổ mình vừa làm khó người :ammuu:
Du lịch Singapore là đã không còn là điểm đến xa lạ đối với những người yêu thích xê dịch. Tuy có diện tích bé nhỏ, nguồn tài nguyên ít ỏi nhưng “đảo quốc sư tử” đã biết biến những điều không thể...
Nên đi những địa điểm nào trong tour Du lịch Singapore của Dulichviet