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

Cập nhật thông tin từ Textbox của UnBound Form vào Listbox

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thủ thuật VBA
  • [Hỏi] Cập nhật thông tin từ Textbox của UnBound Form vào Listbox
• Cập nhật thông tin từ Textbox của UnBound Form vào Listbox

• Cập nhật thông tin từ Textbox của UnBound Form vào Listbox

  pherotao > 09-12-17, 12:56 AM

  Chào mọi người!
  
  E có một unbound form. Trên đó có các textbox, listbox và các command button.
  Cụ thể là e nhập thông tin xong, nhấn nút "Thêm" thì các thông tin đó được cập nhật vô Listbox.
  E đã cố gắng nhưng vẫn không biết lỗi từ đâu, vì nó không chịu cập nhật.
  
  Đây là file của e: https://www.mediafire.com/file/llb6bs3vc...QLVA_1.mdb
  
  Nhờ mọi người chỉ giúp ạ!

• RE: Cập nhật thông tin từ Textbox của UnBound Form vào Listbox

  maidinhdan > 09-12-17, 03:43 AM

  (09-12-17, 12:56 AM)pherotao Đã viết: Chào mọi người!
  
  E có một unbound form. Trên đó có các textbox, listbox và các command button.
  Cụ thể là e nhập thông tin xong, nhấn nút "Thêm" thì các thông tin đó được cập nhật vô Listbox.
  E đã cố gắng nhưng vẫn không biết lỗi từ đâu, vì nó không chịu cập nhật.
  
  Đây là file của e: https://www.mediafire.com/file/llb6bs3vc...QLVA_1.mdb
  
  Nhờ mọi người chỉ giúp ạ!

  
  Hãy diễn tả cách mà bạn đã làm, không muốn xem file rồi đoán mò. và nhớ chèn code bạn đã làm như thế nào nhé

• RE: Cập nhật thông tin từ Textbox của UnBound Form vào Listbox

  pherotao > 09-12-17, 08:16 AM

  Đây là đoạn mã trong nút "Thêm". Nó báo lỗi run-time 3061 (ngay dòng Set rs = db.OpenRecordset("SELECT T_HangHoa.........)
  
  

  Mã:

  Private Sub Them_Click()
Dim db As Database
Dim rs As Recordset
Dim i As Integer
Dim rs_1 As Recordset

Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT T_HangHoa.*FROM T_HangHoa WHERE T_HangHoa.MaHH =" & Me.txtMaHH.Value)
Dim rs_temp As Recordset
   
   Set rs_temp = db.OpenRecordset("SELECT * FROM T_HangHoa_NX_temp")
   rs_temp.AddNew

   rs_temp("MaHH") = rs(0)
   rs_temp("TenHH") = rs(2)
   rs_temp("DonGia") = rs(1)
   
   rs_temp("DVT") = rs(0)
   
   rs_temp("SoLuong") = Me.txtSoLuong.Value
   rs_temp("ThanhTien") = rs(4)
   rs_temp.Update
   Me.txtMaHH = ""
   Me.txtDonGia = ""
   Me.txtMaHH.SetFocus
   rs_temp.Close
   
rs.Close
Me.List_HH.Requery

End Sub

  
  Nhờ xem giúp e ạ!

• RE: Cập nhật thông tin từ Textbox của UnBound Form vào Listbox

  ongke0711 > 09-12-17, 09:41 AM

  *FROM.....thiếu khoảng cách.

• RE: Cập nhật thông tin từ Textbox của UnBound Form vào Listbox

  pherotao > 09-12-17, 11:13 AM

  (09-12-17, 09:41 AM)ongke0711 Đã viết: *FROM.....thiếu khoảng cách.

  
  E làm được rồi. Cám ơn anh!

• RE: Cập nhật thông tin từ Textbox của UnBound Form vào Listbox

  pherotao > 20-12-17, 09:00 PM

  (09-12-17, 09:41 AM)ongke0711 Đã viết: *FROM.....thiếu khoảng cách.

  
  Cái này bị lỗi gì mà nó không cập nhật vô listbox (List_TC) nữa nè a ongke0711 ?
  

  Mã:

  Private Sub Them_Click()

If Me.txtDienGiai.Value = Null Then
MsgOut VniToUni(" Phaûi cho bieát lyù do Thu !              "), vbExclamation
txtDienGiai.SetFocus
Exit Sub
End If

Set Db = CurrentDb

If List_TC.ListCount > 0 Then

Set rs_temp = Db.OpenRecordset("SELECT * FROM T_ThuChi_CT_Temp")
   rs_temp.AddNew

   rs_temp("MaTC") = Me.txtMaTC.Value 'Dien MaTC vào List_TC
   
   rs_temp("DienGiai") = Me.txtDienGiai.Value
   rs_temp("SoTien") = Me.txtSoTien.Value
   
   If DCount("STT", "T_ThuChi_CT_Temp") >= 1 Then
       rs_temp("STT") = DLast("STT", "T_ThuChi_CT_Temp") + 1
   Else
       rs_temp("STT") = 1
   End If
   
   rs_temp.Update
   
   Me.txtDienGiai = Null
   Me.txtSoTien = 0
   
   Me.txtDienGiai.SetFocus
   
   rs_temp.Close

Else
   MsgOut VniToUni(" Phaûi cho bieát lyù do Thu !              "), vbExclamation
   
   Me.txtDienGiai.SetFocus
Exit Sub
End If
   Me.List_TC.Requery
End Sub
• Bài trước Bài tiếp