Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Hỏi] Bẫy lỗi Unbound Form (Nhập liệu)
#1
1. Không biết e có đặt cú pháp sai hay ko mà nó cứ báo lỗi là "Phải cập nhật chi tiết hàng hóa" mặc dù e đã bấm cập nhật rồi.



Đây là đoạn code của e ạ:

Mã:
Private Sub Ghi_Click()

   If IsNull(txtMaHD) Then
       MsgOut VniToUni(" Khoâng ñöôïc löu khi khoâng coù Maõ Hoùa Ñôn !              "), vbExclamation
       Nhap.SetFocus
   Exit Sub
   Else
   
   If IsNull(txtNgay) Then
       MsgOut VniToUni(" Khoâng ñöôïc löu khi Chöa choïn Ngaøy !              "), vbExclamation
       txtNgay.SetFocus
       Exit Sub
   Else
   
   If IsNull(txtNgay) Then
       MsgOut VniToUni(" Khoâng ñöôïc löu khi Chöa choïn Ngaøy !              "), vbExclamation
       txtNgay.SetFocus
   Exit Sub
   Else
   
   If IsNull(txtMaKH) Then
       MsgOut VniToUni(" Khoâng ñöôïc löu khi Chöa choïn Khaùch haøng !              "), vbExclamation
       txtMaKH.SetFocus
       txtMaKH.Dropdown
   Exit Sub
   Else
   
   If IsNull(txtMaNV) Then
       MsgOut VniToUni(" Khoâng ñöôïc löu khi Chöa choïn Nhaân vieân !              "), vbExclamation
       txtMaNV.SetFocus
       txtMaNV.Dropdown
   Exit Sub
   Else
     
   If IsNull(List_HH) Then
       MsgOut VniToUni(" Phaûi Caäp nhaät Chi tieát Haøng Hoùa !              "), vbExclamation
       Them.SetFocus
   Exit Sub
   Else

   Set Db = CurrentDb
   Set rs_ghiHD = Db.OpenRecordset("SELECT * FROM T_HoaDon_NX")
       
       rs_ghiHD.AddNew
           
       rs_ghiHD("MaHD") = Me.txtMaHD.Value
       rs_ghiHD("SoHD") = Me.txtSoHD.Value
       rs_ghiHD("LoaiHD") = Me.txtLoaiHD.Value
       rs_ghiHD("Ngay") = Me.txtNgay.Value
       rs_ghiHD("MaKH") = Me.txtMaKH.Value
       rs_ghiHD("MaNV") = Me.txtMaNV.Value
       rs_ghiHD("GhiChu") = Me.txtGhiChu.Value
       
       rs_ghiHD.Update
           
       rs_ghiHD.Close
       
       
       DoCmd.SetWarnings False
       DoCmd.RunSQL ("INSERT INTO T_HangHoa_NX ( MaHD, MaHH, DonGia, SoLuong, ThanhTien ) SELECT T_HangHoa_NX_Temp.MaHD, T_HangHoa_NX_Temp.MaHH, T_HangHoa_NX_Temp.DonGia, T_HangHoa_NX_Temp.SoLuong, T_HangHoa_NX_Temp.ThanhTien FROM T_HangHoa_NX_Temp")
       DoCmd.RunSQL ("DELETE T_HangHoa_NX_Temp.* FROM T_HangHoa_NX_Temp")
       DoCmd.SetWarnings True
       
       Me.txtMaHD = Null
       Me.txtNgay = Date
       Me.txtMaKH = Null
       Me.txtDiaChi = Null
       Me.txtMST = Null
       Me.txtDienThoai = Null
       Me.txtMaNV = Null
       Me.txtGhiChu = Null
       List_HH.Requery
       
   End If
   End If
   End If
   End If
   End If
   End If
End Sub

2. E có thử test listbox (List_HH) có rỗng hay không, nếu rỗng thì 0, ngược lại là 1. Nhưng kết quả trả về luôn là 1, mặc dù e đã xóa sạch trong listbox.

Nhờ anh / chị giúp e ạ!
Chữ ký của pherotao "Hạnh phúc ở đâu... biết tìm đâu,
Hồng trần là thế giới muôn màu,
Hội đủ nhân duyên... thời sinh quả,
Kết thúc... cũng là lúc bắt đầu".
Reply
Những người đã cảm ơn
#2
Với list box thì bạn nên dùng thuộc tính ListCount:

Mã:
If List_HH.ListCount = 0 Then
      MsgOut VniToUni(" Phaûi Caäp nhaät Chi tieát Haøng Hoùa !              "), vbExclamation
      Them.SetFocus
  Exit Sub
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 pherotao
#3
Em đã thêm Exit Sub vào rồi thì để End IF ở chỗ dưới có tác dụng gì nữa đâu.
Em thử Code dưới xem sao

Mã:
Private Sub Ghi_Click()

   If IsNull(txtMaHD) Then
       MsgOut VniToUni(" Khoang nooic lou khi khoang cou Mao Houa Non !              "), vbExclamation
       Nhap.SetFocus
       Exit Sub
   ElseIf IsNull(txtNgay) Then
       MsgOut VniToUni(" Khoang nooic lou khi Choa choin Ngaoy !              "), vbExclamation
       txtNgay.SetFocus
       Exit Sub
   ElseIf IsNull(txtNgay) Then
       MsgOut VniToUni(" Khoang nooic lou khi Choa choin Ngaoy !              "), vbExclamation
       txtNgay.SetFocus
       Exit Sub
   ElseIf IsNull(txtMaKH) Then
       MsgOut VniToUni(" Khoang nooic lou khi Choa choin Khauch haong !              "), vbExclamation
       txtMaKH.SetFocus
       txtMaKH.Dropdown
       Exit Sub
   ElseIf IsNull(txtMaNV) Then
       MsgOut VniToUni(" Khoang nooic lou khi Choa choin Nhaan viean !              "), vbExclamation
       txtMaNV.SetFocus
       txtMaNV.Dropdown
       Exit Sub
   ElseIf IsNull(List_HH) Then
       MsgOut VniToUni(" Phaui Caap nhaat Chi tieat Haong Houa !              "), vbExclamation
       Them.SetFocus
       Exit Sub
   End If

   Set Db = CurrentDb
   Set rs_ghiHD = Db.OpenRecordset("SELECT * FROM T_HoaDon_NX")
   
   rs_ghiHD.AddNew
       
   rs_ghiHD("MaHD") = Me.txtMaHD
   rs_ghiHD("SoHD") = Me.txtSoHD
   rs_ghiHD("LoaiHD") = Me.txtLoaiHD
   rs_ghiHD("Ngay") = Me.txtNgay
   rs_ghiHD("MaKH") = Me.txtMaKH
   rs_ghiHD("MaNV") = Me.txtMaNV
   rs_ghiHD("GhiChu") = Me.txtGhiChu
   
   rs_ghiHD.Update
       
   rs_ghiHD.Close
   
   DoCmd.SetWarnings False
   DoCmd.RunSQL ("INSERT INTO T_HangHoa_NX ( MaHD, MaHH, DonGia, SoLuong, ThanhTien ) SELECT T_HangHoa_NX_Temp.MaHD, T_HangHoa_NX_Temp.MaHH, T_HangHoa_NX_Temp.DonGia, T_HangHoa_NX_Temp.SoLuong, T_HangHoa_NX_Temp.ThanhTien FROM T_HangHoa_NX_Temp")
   DoCmd.RunSQL ("DELETE T_HangHoa_NX_Temp.* FROM T_HangHoa_NX_Temp")
   DoCmd.SetWarnings True
   
   Me.txtMaHD = Null
   Me.txtNgay = Date
   Me.txtMaKH = Null
   Me.txtDiaChi = Null
   Me.txtMST = Null
   Me.txtDienThoai = Null
   Me.txtMaNV = Null
   Me.txtGhiChu = Null
   List_HH.Requery
     
End Sub
Chữ ký của duynamvnn1208 duynamvnn1208,gia nhập Thủ Thuật Access từ 25-06 -17.
Reply
Những người đã cảm ơn pherotao


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 Hàm kiểm tra dữ liệu để import dữ liệu từ excel vào access subasatran 14 660 16-11-18, 01:36 AM
Bài mới nhất: maidinhdan
  [Hỏi] Click vào button mở form mới ngay dưới button đó mrsiro 1 159 22-09-18, 12:04 PM
Bài mới nhất: lmthu
  Sử dụng Class Module và Kết nối dữ liệu SQL SERVER trong Access VBA lehongduc 62 34,348 03-08-18, 12:41 PM
Bài mới nhất: Cuong Servenet
  Xuất dữ liệu từ Access ra Excel theo điều kiện Minh Tiên 13 1,160 25-05-18, 07:06 PM
Bài mới nhất: ongke0711
  [Hỏi] Hiển Thị Dữ Liệu Trong ListBox pherotao 1 439 12-01-18, 09:10 AM
Bài mới nhất: cpucloi

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