Đá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ướng Dẫn Tìm kiếm theo nhiều tiêu chí trên Form mrtoanbin 10 457 11-02-18, 04:19 PM
Bài mới nhất: haidc
  [Help] Sub Form tự động điền các record haidc 9 565 05-02-18, 04:36 PM
Bài mới nhất: haidc
  [S.O.S] Điều khiển hiển thị record trên form qua mạng LAN tranthanhan1962 16 754 21-01-18, 05:31 PM
Bài mới nhất: tranthanhan1962
  Xin giúp đỡ mikebigball1 2 128 20-01-18, 06:40 PM
Bài mới nhất: duynamvnn1208
Photo [Hỏi] Xin giúp đỡ tạo form đăng nhập có liên kết với form Giao diện chính Thiên Hùng 15 654 19-01-18, 10:12 AM
Bài mới nhất: Thiên Hùng

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ơ