Đá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ạo form hóa đơn bán hàng Mỹ Hạnh 6 181 04-04-18, 09:29 PM
Bài mới nhất: ongke0711
  [Hỏi] sổ list rows trong combobox babyrock2009 3 143 03-04-18, 05:43 PM
Bài mới nhất: tranthanhan1962
  [Hỏi] 2 Định dạng chữ trong 1 text box toidjtjmtoi 5 170 02-04-18, 11:41 AM
Bài mới nhất: toidjtjmtoi
  Cách tạo menu trong access 2007 darkmoon 12 13,595 30-03-18, 09:20 AM
Bài mới nhất: mrtoanbin
  Tạo form tìm kiếm thông tin Mỹ Hạnh 2 102 29-03-18, 02:28 PM
Bài mới nhất: Mỹ Hạnh

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ơ| PMA Nha Trang| Gỗ Acrylic Không Đường Line