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

Phương thức findfirst

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • [Hỏi] Phương thức findfirst
• Phương thức findfirst

• RE: Phương thức findfirst

  MTNQ > 17-06-18, 03:11 PM

  3/Vấn đề thứ 3:
  Bạn chỉ cấn xóa điều kiện sau ở thủ tục LoadData:
  

  Mã:

  If .Recordset.BOF And .Recordset.EOF Then Exit Sub

  
  Việc  "Đưa cả loaddata và savedata lên module" thì mình thấy không khả thi vì rất khó để dùng chung cho tất cả các form, hơn nữa code cũng không gọn hơn được bao nhiêu (Đối với ADO hay .Net thì khác, ta có thể xây dựng module hoặc Class để kết nối dữ liệu...)
  
  Demo theo yêu cầu   :
  FindRecord7.rar

• RE: Phương thức findfirst

  ongke0711 > 17-06-18, 08:52 PM

  (17-06-18, 03:11 PM)MTNQ Đã viết: ...
  Việc  "Đưa cả loaddata và savedata lên module" thì mình thấy không khả thi vì rất khó để dùng chung cho tất cả các form, hơn nữa code cũng không gọn hơn được bao nhiêu (Đối với ADO hay .Net thì khác, ta có thể xây dựng module hoặc Class để kết nối dữ liệu...)

  
  Tôi thấy bạn MTNQ đã có dùng cái code ListAllControls thì cũng theo cách đó biến tấu chút thành cái hàm LoadData() cho Unbound Form luôn. Tôi dùng Recordset AddNew, Edit để xử lý chứ chưa ngâm cứu dùng câu lệnh SQL để thêm mới, sửa.
  Tôi hay dùng code này để Load Data cho unbound form (trong hàm tôi đặt tên là GetRecord()), cũng như Edit, Save. Có một qui ước là phải đặt tên các Control trong Form theo kiểu: txt (chk, cbo, img) + Tên Field.
  
  - Hàm load dữ liệu cho Form:
  
  

  Mã PHP:

  Function GetRecord(rs As DAO.Recordset, frm As Form)
   Dim fld As Field
   Dim ctl As control
   For Each fld In rs.Fields
       For Each ctl In frm.Controls
           If ctl.Name = "txt" & fld.Name Or ctl.Name = "cbo" & fld.Name Or ctl.Name = "chk" & fld.Name Then
               ctl = rs.Fields("" & fld.Name & "").Value
           ElseIf ctl.Name = "img" & fld.Name Then
               On Error Resume Next
               ctl.Picture = CStr(rs.Fields("" & fld.Name & "").Value)
           End If
       Next
   Next
End Function 


  
  - Lưu record mới: (nếu là chỉnh sửa thì đổi thành rs.Edit)
  
  

  Mã PHP:

  Function AddRecord(rs As DAO.Recordset, frm As Form)
   Dim fld As Field
   Dim ctl As control
   rs.AddNew
   For Each fld In rs.Fields
       For Each ctl In frm.Controls
           If ctl.Name = "txt" & fld.Name Or ctl.Name = "cbo" & fld.Name Or ctl.Name = "chk" & fld.Name Then
               rs.Fields("" & fld.Name & "").Value = ctl
           End If
       Next
   Next
   rs.Update
End Function 

• Bài trước Bài tiếp