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

Làm sao để ấn định Null cho trường Date khi sử dụng Class Module

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • [Hỏi] Làm sao để ấn định Null cho trường Date khi sử dụng Class Module
• Làm sao để ấn định Null cho trường Date khi sử dụng Class Module

• Làm sao để ấn định Null cho trường Date khi sử dụng Class Module

  Minh Tiên > 02-09-13, 05:36 PM

  Chào cả nhà !
  Mình có làm một "Tiện ích bán hàng" sử dụng Class Module. Trong tiện ích có table Hàng hóa với trường "hạn sử dụng" là kiểu Date. Vì hàng hóa có loại là có hạn sử dụng, có loại không có hạn sử dụng nên khi nhập liệu các mặt hàng không có hạn sử dụng thì bị báo lỗi Null.
  Xin các Pro chỉ giáo có cách nào FixNull cho trường Datetime này không ?
  Hiện này mình tạm dùng cách FixNull là: Nếu Null thì tự gán cho HSD=1/1/3000. Xong trên Form hiển thị rất "No OK" !
  Thanks !

• RE: Làm sao để ấn định Null cho trường Date khi sử dụng Class Module

  Xuân Thanh > 02-09-13, 08:26 PM

  Làm gì có năm ....3000 mà gán kiểu đó? Thay bằng con số < 2029 xem thử
  Thân mến

• RE: Làm sao để ấn định Null cho trường Date khi sử dụng Class Module

  Minh Tiên > 02-09-13, 08:52 PM

  Ủa sao lại ko có Xuân Thanh. Trong Excel 2007 là số: 401769 mà ! tmtien261 gán vẫn chạy OK mà ! Tuy nhiên khi hiển thị ko đẹp mắt lắm. Mình muốn hiển thị " " khi là Null, nhưng ko biết cách nào ! Xuân Thanh có cách nào FixNull cho trường Date ko ? Chỉ giúp với !
  
  Hiện tại, để hiển thị " " cho các Record Null thì khi nhập mình gán giá trị 01/01/3000 và dùng Query để hiển thị bằng cách:
  - Nếu giá trị nào <401769 (Số của ngày 01/01/3000) thị hiển thị ngày, còn không thì gán Null ---> Kết quả OK.

• RE: Làm sao để ấn định Null cho trường Date khi sử dụng Class Module

  Xuân Thanh > 03-09-13, 11:33 AM

  Vậy sao không dùng hàm IsNull hoặc Is Not Null mà làm?

• RE: Làm sao để ấn định Null cho trường Date khi sử dụng Class Module

  Minh Tiên > 04-09-13, 03:10 PM

  Mình đã dùng hàm IsNull hoặc Not IsNull rồi những với kiểu Class Module đếu để Null thì báo lỗi ngay, cho nên mình mới gán tạm dữ liệu như đã nêu.
  Mình sử dụng Acc 2007. Xuân Thanh có cách nào gán Null cho trường Date ko ? chỉ giáo với. Cảm ơn nhiều !

• RE: Làm sao để ấn định Null cho trường Date khi sử dụng Class Module

  MinhnHang > 17-11-16, 02:31 PM

  (04-09-13, 03:10 PM)Minh Tiên Đã viết: Mình đã dùng hàm IsNull hoặc Not IsNull rồi những với kiểu Class Module đếu để Null thì báo lỗi ngay, cho nên mình mới gán tạm dữ liệu như đã nêu.
  Mình sử dụng Acc 2007. Xuân Thanh có cách nào gán Null cho trường Date ko ? chỉ giáo với. Cảm ơn nhiều !

  
  Ba năm có dư rồi, mà sao ko bác nào trả lời câu này vậy ạ?
  
  Em cũng đang mắc ở chỗ tương tự.
  
  Bác nào cao tay chỉ giáo em với......

• RE: Làm sao để ấn định Null cho trường Date khi sử dụng Class Module

  Minh Tiên > 17-11-16, 09:39 PM

  Hiện giờ mình dùng trường ngày là kiểu text. Khi lưu mình chuyển sang dạng dd/mm/yyyy để show.
  
  Khi xử lý kiểu date thì chuyển từ String sang date.
  Thân./.

• RE: Làm sao để ấn định Null cho trường Date khi sử dụng Class Module

  ongke0711 > 18-11-16, 12:37 AM

  (17-11-16, 09:39 PM)Minh Tiên Đã viết: Hiện giờ mình dùng trường ngày là kiểu text. Khi lưu mình chuyển sang dạng dd/mm/yyyy để show.
  
  Khi xử lý kiểu date thì chuyển từ String sang date.
  Thân./.

  
  Bạn dùng kiểu variant có báo lỗi không? nó chấp nhận Null value.

• RE: Làm sao để ấn định Null cho trường Date khi sử dụng Class Module

  MinhnHang > 18-11-16, 09:29 AM

  (18-11-16, 12:37 AM)ongke0711 Đã viết:

  (17-11-16, 09:39 PM)Minh Tiên Đã viết: Hiện giờ mình dùng trường ngày là kiểu text. Khi lưu mình chuyển sang dạng dd/mm/yyyy để show.
  
  Khi xử lý kiểu date thì chuyển từ String sang date.
  Thân./.

  
  Bạn dùng kiểu variant có báo lỗi không? nó chấp nhận Null value.

  
  Em đã dùng theo gợi ý của anh và đã vượt qua được báo lỗi khi đến textbox đó.
  
  Nhưng giờ nó lại sinh ra lỗi  ở đoạn kết thúc. Bác Bill Gates báo với em là: Run-time error '3421' Data type conversion error.
  
  Giờ em xử như thế nào nữa vậy ạ?

• RE: Làm sao để ấn định Null cho trường Date khi sử dụng Class Module

  Minh Tiên > 17-09-19, 06:02 PM

  Tiên đang dùng trường ngày là kiểu text, thực hiện củ chuối như sau nhưng đang chạy cũng tạm ổn:
  
  1. Nhập liệu thông qua textbox đặt Input Mask: 99/99/9999
  
  2. Dùng code kiểm tra khi nhập liệu:
  
  

  Mã:

  Function CheckErrorDate(strDate As String) As Boolean
'===Kiem tra ngay thang nhap co dung khong ?
 
    Dim strDay As String, strMonth As String, strYear As String
    If Nz(strDate, "") <> "" Then
        strDay = Format(Left(strDate, 2), "0#")
        strMonth = Format(Right(Left(strDate, 4), 2), "0#")
        strYear = Right(strDate, 4)
        'Kiem tra nam:
        If strYear <= 1000 Or strYear >= 3000 Then 'Dat gioi han tuy y
            MsgBox "Nam " & strYear & " chua dung"
            Exit Function
        End If
        'Kiem tra thang:
        If strMonth > 12 Or strMonth = 0 Then
            MsgBox"Khong co thang " & strMonth
            Exit Function
        End If
        'Kiem tra ngay:
        If strMonth = 2 And strYear Mod 4 = 0 Then
            If strDay > 29 Or strDay = 0 Then
                MsgBox"Nam " & strYear & ", thang " & strMonth & " khong co ngay " & strDay
                Exit Function
            End If
        ElseIf strMonth = 2 And strYear Mod 4 <> 0 Then
            If strDay > 28 Or strDay = 0 Then
                MsgBox"Nam " & strYear & ", thang " & strMonth & " khong co ngay " & strDay
                Exit Function
            End If
        ElseIf strMonth = 4 Or strMonth = 6 Or strMonth = 9 Then
            If strDay > 30 Or strDay = 0 Then
                MsgBox"Nam " & strYear & ", thang " & strMonth & " khong co ngay " & strDay
                Exit Function
            End If
        Else
            If strDay > 31 Or strDay = 0 Then
                MsgBox"Nam " & strYear & ", thang " & strMonth & " khong co ngay " & strDay
                Exit Function
            End If
        End If
    End If
    CheckErrorDate = True

End Function

  
  
  3. Lấy lại kiểu ngày bằng code:
  
  

  Mã:

  Function StringMarkDateToStringDate(strDate As String) As String
'===Chuyen chuoi ngay theo PushMark dang ddmmyyyy sang chuoi ngay theo dang dd/mm/yyyy:

    Dim strDay As String, strMonth As String, strYear As String
    If Nz(strDate, "") <> "" Then
        If InStr(strDate, "/") = 0 Then
            strDay = Format(Left(strDate, 2), "0#")
            strMonth = Format(Right(Left(strDate, 4), 2), "0#")
            strYear = Right(strDate, 4)
            StringMarkDateToStringDate = strDay & "/" & strMonth & "/" & strYear
        Else
            StringMarkDateToStringDate = strDate
        End If
    Else
        StringMarkDateToStringDate = ""
    End If

End Function

  
  
      ACE có cách nào Fix Null trường date hay hơn chỉ giáo với.
  
  Thân./.
• Bài trước Bài tiếp