-
02-15-2009, 06:42 AM #1
Junior 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:
- Chuyên đề ứng dụng : Thiết kế chương trình Sổ Quỹ Tiền Mặt(Phần 2 - Query và Report)
- làm cách nào để đưa nhiều file excel vào cùng 1 table
- Lỗi khi thêm dữ liệu vào CSDL Access
- Chương trình quản lý dự án
- Cho em hỏi lỗi này là do đâu ?
- Quản lý mua bán hàng - Phần 2: Thiết kế CSDL
- Hỏi về Lọc dữ liệu
- Lấy dữ liệu từ một form sang form khác
- Tạo Menu trong Access
- Sự kiện Timer trong Access
-
02-15-2009, 07:52 AM #2
Silver 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 #3
Junior 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 #4
Junior 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 #5
Junior 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 #6
Junior 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 #7
Junior 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 #8
Junior 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 #9
Junior 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 #10
Junior 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:
Theo phong tục của người M’nông, khi đứa trẻ vừa tròn một mùa rẫy (nghĩa là vừa tròn một năm tuổi), cha mẹ đứa trẻ phải tiến hành làm lễ cắt tóc (krah soh) và lễ xỏ tai (chuh tor) cho con mình, nhằm...
Lễ cắt tóc (krah soh) và lễ xỏ tai (chuh tor) cho trẻ sơ sinh của người M’nông