• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

giúp e nút trong form thống kê ko xử lí được

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • [Help] giúp e nút trong form thống kê ko xử lí được
• giúp e nút trong form thống kê ko xử lí được

• RE: giúp e nút trong form thống kê ko xử lí được

  babyrock2009 > 07-09-13, 09:18 AM

  thanks ban MatTroiNguQuen nhiều mình làm dc rồi

• RE: giúp e nút trong form thống kê ko xử lí được

  babyrock2009 > 07-09-13, 09:28 AM

  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ỉ

• RE: giúp e nút trong form thống kê ko xử lí được

  MTNQ > 07-09-13, 02:48 PM

  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
• Bài trước Bài tiếp