Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Help] giúp e nút trong form thống kê ko xử lí được
#11
thanks ban MatTroiNguQuen nhiều big green mình làm dc rồi
Chữ ký của babyrock2009 Xin chào, mình là babyrock2009, Tham gia http://thuthuataccess.com/forum từ ngày 30-03 -13.
Reply
Những người đã cảm ơn
#12
mà sao trên report nếu để ngày nhỏ hơn 12 thì nó sẽ hiện là mm/dd/yyyy nhưng nếu ngày lớn hơn 12 nó sẽ hiện là dd/mm/yyyy trong khi mình format măc định là dd/mm/yyyy nhỉ
Chữ ký của babyrock2009 Xin chào, mình là babyrock2009, Tham gia http://thuthuataccess.com/forum từ ngày 30-03 -13.
Reply
Những người đã cảm ơn
#13
Không phải ngày nhỏ hơn 12 thì nó hiện mm/dd/yyyy mà dữ liệu Insert vào bị sai (VD ngày 06 tháng 09 khi Insert vào thành ngày 09 tháng 06, chỉ khi ngày >12 thì Access nhận biết đó là ngày và tự chuyển lại cho đúng)

Theo mình thì bạn sửa code của nút "btnIn" đoạn:
Mã:
If (sldain = 0) Then
            SQL = "Insert Into SoLanIn(EMPCD, ENNAME, LanIn, GioIn) Values('" & Me.EMPCD & "','" & Me.ENNAME & "',1," & "#" & Now & "#)"
            DoCmd.RunSQL SQL
        Else
            DoCmd.RunSQL "Update SoLanIn Set LanIN=" & sldain + 1 & ",GioIn=#" & Now & "# Where EMPCD='" & Me.EMPCD & "'"
        End If

thành:

Mã:
Dim n As String
        n = Format(Date, "dd/mm/yyyy") & " " & Format(Time, "hh:mm")
        If (sldain = 0) Then
            SQL = "Insert Into SoLanIn(EMPCD, ENNAME, LanIn, GioIn) Values('" & Me.EMPCD & "','" & Me.ENNAME & "',1,'" & n & "')"
            DoCmd.RunSQL SQL
        Else
            DoCmd.RunSQL "Update SoLanIn Set LanIN=" & sldain + 1 & ",GioIn='" & n & "' Where EMPCD='" & Me.EMPCD & "'"
        End If

Như vậy sẽ ổn

Dưới đây là file mình sửa lại bạn xem thử dc ko nhé:

File
Chữ ký của MTNQ Thời gian nước chảy... da mòn
Ngủ quên một chốc thấy còn bộ xương!
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
  [Hỏi] Refresh Form và tiếp tục hoạt động Godspear 3 528 Hôm qua, 07:24 AM
Bài mới nhất: amazonvn82
Photo [Hỏi] Không chèn được ActiveX control vào Form killitmore 4 159 06-12-17, 02:49 PM
Bài mới nhất: killitmore
  [Hỏi] Truyền dữ liệu từ 1 bound form vào 1unbound form mrsiro 8 203 04-12-17, 12:33 PM
Bài mới nhất: ongke0711
  [Help] Sub Form tự động điền các record haidc 6 343 03-12-17, 10:16 PM
Bài mới nhất: haidc
  [Hỏi] Form access hiện thì trắng khi xem ở chế độ Forrm View subasatran 1 88 29-11-17, 12:57 AM
Bài mới nhất: maidinhdan

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ơ