babyrock2009 > 04-09-13, 02:42 PM
bomnhauag > 04-09-13, 05:17 PM
babyrock2009 > 05-09-13, 08:32 AM
babyrock2009 > 06-09-13, 09:02 AM
quanghoasla > 06-09-13, 05:11 PM
babyrock2009 > 06-09-13, 05:19 PM
(05-09-13, 06:09 PM)truonghet Đã viết:(05-09-13, 08:32 AM)babyrock2009 Đã viết: hok phải ko chạy dc mà nó chạy sai @@
Mã PHP:date = Format(date,"Short Date")
(06-09-13, 05:11 PM)quanghoasla Đã viết: hiii test qua form tìm kiếm của bạn mình thấy chưa được. lý do ở cái report bạn do bạn format kiểu trường dạng: dd/mm/yyyy hh:nn:ss. ở cái nút [Ngaykham] đó. ngay từ khi nhập liệu vào bạn đã nhập dạng đó thì đương nhiên khi kết quả hiện ra nó là như vậy rồi. Bạn chỉnh cái format trường đó ở trong property lại là: dd/mm/yyyy là okie ngay
MTNQ > 07-09-13, 01:40 AM
DoCmd.OpenReport "SolanIN", acViewPreview, , "[Gioin] Between [forms]![Thongke]![Tungay] And [forms]![Thongke]![Denngay]" & "and [EMPCD]='" & Me.Chonnguoi & "'", acWindowNormal
DoCmd.OpenReport "SolanIN", acViewPreview, , "DateValue(left([Gioin],10)) Between [forms]![Thongke]![Tungay] And [forms]![Thongke]![Denngay]" & "and [EMPCD]='" & Me.Chonnguoi & "'", acWindowNormal
babyrock2009 > 07-09-13, 08:16 AM
(07-09-13, 01:40 AM)MatTroiNguQuen Đã viết: Chào các bạn! mình vừa tham gia diễn đàn
Bạn Babyrock làm ở trung tâm y tế hả?
Mình cũng bên ngành y nhưng thích CNTT và cũng đang làm quen với Access
Theo mình thì có 2 cách có thể giải quyết vấn đề của bạn:
1/ tách riêng ngày và giờ ra:
file download
2/ sửa:
Mã:DoCmd.OpenReport "SolanIN", acViewPreview, , "[Gioin] Between [forms]![Thongke]![Tungay] And [forms]![Thongke]![Denngay]" & "and [EMPCD]='" & Me.Chonnguoi & "'", acWindowNormal
thành:
Mã:DoCmd.OpenReport "SolanIN", acViewPreview, , "DateValue(left([Gioin],10)) Between [forms]![Thongke]![Tungay] And [forms]![Thongke]![Denngay]" & "and [EMPCD]='" & Me.Chonnguoi & "'", acWindowNormal
Máy mình chạy Access 2010 thấy ổn, không biết trên 2003 có dc ko.
Có một điều mình không hểu là nếu định dạng ngày giờ trên máy là dd/mm/yyyy thì sau khi Insert GIOIN = 09/06/2013 (tức là ngày 09 tháng 06 năm 2013 ) trong khi ngày trên máy là 06/09/2013
Đổi trên máy thành mm/dd/yyyy thì nó mới ra đúng DateValue(left([Gioin],10)) = 06/09/2013
Rất mong được học hỏi thêm từ các bạn !
MTNQ > 07-09-13, 08:55 AM
Private Sub Thihanh_Click()
If Me.Chon.Value = 1 Then
DoCmd.OpenReport "SolanIN", acViewPreview, , "[Gioin] Between [forms]![Thongke]![Tungay] And [forms]![Thongke]![Denngay]", acWindowNormal
Else
If IsNull(Me.Chonnguoi) Or Me.Chonnguoi = "" Then
MsgBox "Chua chon nguoi can In"
Me.Chonnguoi.SetFocus
Exit Sub
Else
DoCmd.OpenReport "SolanIN", acViewPreview, , "[Gioin] Between [forms]![Thongke]![Tungay] And [forms]![Thongke]![Denngay]" & "and [EMPCD]='" & Me.Chonnguoi & "'", acWindowNormal
End If
End If
End Sub