• 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

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

  ongke0711 > 18-09-19, 02:42 PM

  (17-09-19, 06:02 PM)Minh Tiên Đã viết: 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:
  3. Lấy lại kiểu ngày bằng code:
  
      ACE có cách nào Fix Null trường date hay hơn chỉ giáo với.

  
  Trường kiểu Data không không chấp nhận giá trị Null khi được truyền vào bằng tham biến mà phải viết câu lệnh SQL trực tiếp luôn.
  Vd: INSERT INTO Table1 (NgayPS, TenVatTu) VALUES (Null, 'Xi mang P300')
  
  Trường hợp giống trên của bạn, nếu muốn giữ kiểu Date thì phải đi vòng trong câu lệnh SQL.
  Ví dụ:
  
  

  Mã PHP:

  Private Sub cmdThemMoi_Click()

    Dim sValuesPara As String
    If IsNull(Me.txtNgayAD) Then
        sValuesPara = "VALUES (Null)"
    Else
        sValuesPara = "VALUES (" & Me.txtNgayAD & ")"
    End If
    CurrentDb.Execute "INSERT INTO ChamCong (fldDate) " & sValuesPara, dbFailOnError
    MsgBox "Luu thanh cong."

End Sub 


  
  Bạn tham khảo cách này xem.

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

  Minh Tiên > 18-07-20, 12:00 PM

  Thanks ongke0711.
  Cách của bạn chỉ code trực tiếp trong Form theo hướng thử tục chứ ko code được trong Class theo hướng đối tượng.
  Trong Class khai báo Public sDate as Date hoặc Private,sDate as Date rồi set Let/Get và khi sử dụng phảii thiết lập cho biến Date thì bị báo lỗi Null ngay.
  ACE Pro có cách nào khác ko ? Cảm ơn nhiều !

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

  ongke0711 > 18-07-20, 12:13 PM

  Vậy chuyển Date thành String và thêm hàm convert string to date thử xem sao Minh Tiên. Đi vòng một chút.

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

  Minh Tiên > 20-07-20, 09:44 AM

  (18-07-20, 12:13 PM)ongke0711 Đã viết: Vậy chuyển Date thành String và thêm hàm convert string to date thử xem sao Minh Tiên. Đi vòng một chút.

  Mình cũng đang sử dụng cách này bạn.
  Thân./.

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

  maidinhdan > 24-07-20, 01:30 PM

  (20-07-20, 09:44 AM)Minh Tiên Đã viết:

  (18-07-20, 12:13 PM)ongke0711 Đã viết: Vậy chuyển Date thành String và thêm hàm convert string to date thử xem sao Minh Tiên. Đi vòng một chút.

  Mình cũng đang sử dụng cách này bạn.
  Thân./.

  
  Trả lời: Đơn giản mà cứ làm cho nó phức tạp
  
  Dùng hàm if... then, nếu không có tham số truyền vào thì đừng cho chạy dòng update của cột Date.(kết hợp dùng hàm if trong Class và form)

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

  ongke0711 > 24-07-20, 10:57 PM

  (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.

  
  Lúc trước có nói bạn dùng kiểu Variant cho biến dạng Date trong Class là chạy được đó.
  Chỉ cần thêm cái bẫy lỗi này nữa là ok:
  
  

  Mã PHP:

  Public Property Get NgaySinh() As Variant
    NgaySinh = mdtNgaySinh
End Property
Public Property Let NgaySinh(ByVal dtNgaySinh As Variant)
    mdtNgaySinh = dtNgaySinh
End Property 


  
  Vi dụ:
             !NgaySinh = IIf(mdtNgaySinh = "", Null, mdtNgaySinh)
  
  Hoặc dùng cái hàm FixNullex() mở rộng này:
  
  

  Mã PHP:

  Function FixNullex(varIn As Variant, Optional sValifNull As Variant) As Variant
    If Len(Nz(varIn, "")) = 0 Then
        If IsMissing(sValifNull) Then
            FixNullex = ""
        Else
            FixNullex = sValifNull
        End If
    Else
        FixNullex = varIn
    End If
End Function 


  
       !NgaySinh = FixNullex(mdtNgaySinh,Null)
  
  
  Còn theo cách của maidinhdan thì anh thấy nó sẽ có nhiều dòng code cho vụ If ... Then... hơn cách trên.
• Bài trước Bài tiếp