Đá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] Tạo các Button trên FORM với với số lượng button thay đổi theo dữ Liệu minhtungph 4 97 Hôm nay, 08:43 AM
Bài mới nhất: minhtungph
  [Help] 2 subform trong mainform pvhung76 7 168 Hôm qua, 11:48 PM
Bài mới nhất: tranthanhan1962
  [Hỏi] Navigation Bar không sử dụng được các control khác trên Form minhtungph 15 662 16-10-17, 12:15 PM
Bài mới nhất: minhtungph
Photo [Help] Vấn đề về dữ liệu trong form doandiepanh 6 362 09-10-17, 03:07 PM
Bài mới nhất: doandiepanh
  Code VBA không chạy trong access 2016 tranthanhan1962 2 112 26-09-17, 09:38 PM
Bài mới nhất: tranthanhan1962

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ơ