Đá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
  [Help] Nối các trường trong subfrm sang table có điều kiện tronghieu9792 7 124 Hôm nay, 12:36 AM
Bài mới nhất: ongke0711
  [Help] add record mới vào table qua form Godspear 0 35 Hôm qua, 12:31 PM
Bài mới nhất: Godspear
  [Help] Hỏi về hiển thị thông tin trên ô combobox hoangktxd 7 195 26-04-17, 05:31 PM
Bài mới nhất: tranthanhan1962
  Lấy dữ liệu từ 2 subform trong Mainform thanhtruong 20 527 21-04-17, 06:36 PM
Bài mới nhất: tranthanhan1962
  Cập nhật người dùng lên form hiển thị kutieu2016 2 91 15-04-17, 09:13 PM
Bài mới nhất: kutieu2016

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ơ