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

Gán dữ liệu cho tất cả các field

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Table
  • Gán dữ liệu cho tất cả các field
• Gán dữ liệu cho tất cả các field

• Gán dữ liệu cho tất cả các field

  trav2t > 31-01-16, 11:46 PM

  Mình có một Table gồm có nhiều Field tên là: Name1, Name2, Name3, ..., Name30
  Mình muốn gán dữ liệu cho các Field đó bằng vòng For
   
  Ví  dụ:
   
  Dim rs as Recordset
  Dim i as Integer
  Set rs = CurrentDb.OpenRecordset (“TableName”, dbOpenTable)
  For i = 1 to 30
                  rs!Name & i = 1 ‘ Lỗi ở dòng này
  Next i
   
  Nếu gán dữ liệu cho một trường thì rất dễ, nhưng ở đây mình muốn gán dữ liệu cho Field thứ nhất đến Field cuối cùng trong một Table.
  Rất mong mọi người giúp mình với. Xin chân thành cảm ơn!

• RE: Gán dữ liệu cho tất cả các field

  tranthanhan1962 > 01-02-16, 10:33 AM

  Bạn sai cú pháp
  rs!Name
  Cú pháp chính xác là
  rst![Name] (Name là tên field nằm trong cặp [ ])
  Có thể sử dụng số thứ tự field
  rs.Fields(0), rs.Fields(1), rs.Fields(2) để xử lý
  Chúc bạn thành công.

• RE: Gán dữ liệu cho tất cả các field

  paulsteigel > 01-02-16, 05:26 PM

  (01-02-16, 10:33 AM)tranthanhan1962 Đã viết: Bạn sai cú pháp
  rs!Name
  Cú pháp chính xác là
  rst![Name] (Name là tên field nằm trong cặp [ ])
  Có thể sử dụng số thứ tự field
  rs.Fields(0), rs.Fields(1), rs.Fields(2) để xử lý
  Chúc bạn thành công.

  
  Bổ sung thêm cùng bác Ân ta có thể dùng tham chiếu thế này:
  rs.Fields("Tentruong")=....
  Theo kinh nghiệm thực hành với Access, tôi khá hạn chế cách thao tác với RecordSet mà dùng Truy vấn dạng
  Update [Tên bảng] Set [Tên trường]=[Gia trị], [Tên trường 2]=[Gia trị] WHERE [Tên trường]=[Giá trị]
  Hoặc dùng Query INSERT
  (Cách đó tiện hơn, và đặc biệt là không phải thực hiện các chuỗi kết nối dạng Opendatabase ....rs.Open) nhưng đó chỉ là một cách tiếp cận bổ sung thôi nhé - đừng ném đá em các bác ợ.
  
  Xin cảm ơn và chúc các cụ tết nhất vui vẻ, mạnh khỏe, vạn điều vui!

• RE: Gán dữ liệu cho tất cả các field

  lehongduc > 02-02-16, 12:52 PM

  (31-01-16, 11:46 PM)trav2t Đã viết: Mình có một Table gồm có nhiều Field tên là: Name1, Name2, Name3, ..., Name30
  Mình muốn gán dữ liệu cho các Field đó bằng vòng For
   
  Ví  dụ:
   
  Dim rs as Recordset
  Dim i as Integer
  Set rs = CurrentDb.OpenRecordset (“TableName”, dbOpenTable)
  For i = 1 to 30
                  rs!Name & i = 1 ‘ Lỗi ở dòng này
  Next i
   
  Nếu gán dữ liệu cho một trường thì rất dễ, nhưng ở đây mình muốn gán dữ liệu cho Field thứ nhất đến Field cuối cùng trong một Table.
  Rất mong mọi người giúp mình với. Xin chân thành cảm ơn!

  
  Chào Bạn,
  Bạn chỉ cần sửa lại rs!Name & i thành rs(Name & i) là được thôi.
• Bài trước Bài tiếp