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

Lỗi run-time 3421 trong Access

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thủ thuật VBA
  • [Hỏi] Lỗi run-time 3421 trong Access
• Lỗi run-time 3421 trong Access

• Lỗi run-time 3421 trong Access

  pherotao > 05-01-18, 01:31 PM

  Nhờ anh chị trên diễn đàn xem giúp e ạ! Khi e lưu dữ liệu thì nó báo lỗi run-time 3421.
  Đây là code của e: 

  Mã:

  Private Sub Ghi_Click()

  Dim DB As DAO.Database
  Dim rs As DAO.Recordset

  Set DB = CurrentDb
  Set rs = DB.OpenRecordset("SELECT * FROM T_HangHoa")

  Select Case strEditAddStatus
  Case "Sua"
      rs.FindFirst "[MaHH] = '" & Me.txtMaHH.Value & "'"
      If Not rs.NoMatch Then
         
         
          rs.Edit
         
          rs("TenHH") = Me.txtTenHH.Value
          rs("QuiCach") = Me.txtQuiCach.Value
          rs("DVT") = Me.txtDVT.Value
          rs("Ngay") = Me.txtNgay.Value
      End If
     
  Case "Them"
      rs.AddNew
     
      rs("MaHH") = Me.txtMaHH.Value
      rs("TenHH") = Me.txtTenHH.Value
      rs("QuiCach") = Me.txtQuiCach.Value
      rs("DVT") = Me.txtDVT.Value
      rs("Ngay") = Me.txtNgay.Value
  End Select

  rs.Update

  
  Và cụ thể là ở dòng: rs("Ngay") = Me.txtNgay.Value. E định dạng trong table là (dd/mm/yyyy; 99/99/9999), trong form cũng vậy. Nhờ anh chị hướng dẫn cách khắc phục ạ!
• Bài trước Bài tiếp