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

update nhiều record trong bảng với 1 query

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thư viện thủ thuật
  • [Thủ Thuật] update nhiều record trong bảng với 1 query
• update nhiều record trong bảng với 1 query

• RE: update nhiều record trong bảng với 1 query

  Minh Tiên > 12-03-13, 05:13 PM

  (12-03-13, 12:10 PM)Xuân Thanh Đã viết: Trong query của bạn đâu có đặt Parameter? Lỗi là cái chắc
  Thân mến

  
  Ý Xuân Thanh là trong Query Update đặt điều kiện cho trường "Sophieuxuat" à ? Mình cũng đã thử đặt điều kiện trong trường đó là: forms!frmXuathangban!Sophieuxuat (Tương từ như đặt Dkien trong Private sub ... để Update) nhưng vẫn cứ báo lỗi như ban đầu.
  
  Xuân Thanh có Demo nào cho mình xin với hoặc xem Đ/C Demo kèm theo giúp với ! Cảm ơn nhiều !

• RE: update nhiều record trong bảng với 1 query

  Minh Tiên > 14-03-13, 10:48 PM

  Xuân Thanh giành chút thời gian giúp tmtien261 xem, chỉnh sửa Demo gửi kèm nhé ! Hoặc có demo nào run Ok cho tmtien261 xin. Ko biết mình sai, thiếu chỗ nào mà vọc mãi ko ra.
  1. Đã thử đặt điều kiện trong Query ---> no Ok.
  2. Đặt Parameter trong Query ---> Vẫn no Ok.
  3. Đổi các kiểu thông số khai báo vẫn No ok.
  ---> "bt" !

• RE: update nhiều record trong bảng với 1 query

  Xuân Thanh > 15-03-13, 04:07 PM

  1/ Trong query : Truong Sophieuxuat tại dòng đ/k ghi Like [PhieuNao]
  2/ Trong VBA :
  ....
  qr.Parameter("PhieuNao") = DK
  ....

• RE: update nhiều record trong bảng với 1 query

  Minh Tiên > 16-03-13, 04:16 PM

  (15-03-13, 04:07 PM)Xuân Thanh Đã viết: 1/ Trong query : Truong Sophieuxuat tại dòng đ/k ghi Like [PhieuNao]
  2/ Trong VBA :
  ....
  qr.Parameter("PhieuNao") = DK
  ....

  
  Ok ! Tôi đã run Ok ! Cảm ơn XT nhiều ! Chúc bạn thật khỏe mạnh, hạnh phúc, trí tuệ để giúp mọi người !

• RE: update nhiều record trong bảng với 1 query

  hueqlhc > 22-04-13, 11:05 PM

  (15-03-13, 04:07 PM)Xuân Thanh Đã viết: 1/ Trong query : Truong Sophieuxuat tại dòng đ/k ghi Like [PhieuNao]
  2/ Trong VBA :
  ....
  qr.Parameter("PhieuNao") = DK
  ....

  
  Bài này bạn Xuân Thanh có thể viết, tổng hợp lại và làm demo cho các bạn xem được không, mình nghiên cứu kỹ rồi nhưng không chưa làm được nơi. Mong bạn giúp đỡ.

• RE: update nhiều record trong bảng với 1 query

  Minh Tiên > 12-05-13, 03:39 PM

  Mình đã làm theo hướng dẫn của XT chạy OK trên Ms Ac 2007. Xin chia sẽ các Acc có nhu cầu !
  Demo

• RE: update nhiều record trong bảng với 1 query

  jason > 28-03-19, 04:46 PM

  cho e hỎi,
  e áp dụng theo code của Xuân Thanh ok, nhưng khi update vào table (table này là link table) thì bị vướng lỗi như hình dưới, có cách nào khác không ạ, giúp e với :
  
  

• RE: update nhiều record trong bảng với 1 query

  ongke0711 > 29-03-19, 08:55 AM

  - Khi dùng linked table bạn phải đổi qua dùng thư viện DAO, thay đổi các khai báo trong code hiện tại một chút.
  Thêm DAO vô trước các đối tượng Recordset, QueryDef, Field v.v..
  Vd:
        Dim rs As DAO.Recordset
  
  Nếu có khai báo "DB_OpenTable" thì đổi sang "dbOpenDynaset"
  
  Set rs= Currentdb.OpenRecordset "Table1, dbOpenDynaset)
  
  - Bỏ phương thức Index luôn.

• RE: update nhiều record trong bảng với 1 query

  jason > 29-03-19, 10:25 AM

  Sub SeekUpdate()
      Dim rs As DAO.Recordset
      Dim qr As DAO.QueryDef
      Dim rsup As DAO.Recordset
      Set qr = CurrentDb.QueryDefs("QUserInfo")
      Set rsup = CurrentDb.OpenRecordset("UserInfo_da", dbOpenDynaset)
      'rsup.Index = "Primarykey" 'Primarykey cua tblDonGia la TenKH
      If rs.RecordCount > 0 Then
      rs.MoveFirst
      Do Until rs.EOF
          'rsup.Seek "=", rs!UserFullCode
          'rsup.Seek "="
          If rsup.NoMatch Then
              rsup.AddNew
              rsup!UserFullCode = rs!UserFullCode
              rsup!UserFullName = rs!UserFullName
              rsup!UserLastName = rs!UserLastName
              rsup!UserEnrollNumber = rs!UserEnrollNumber
              rsup!UserEnrollName = rs!UserEnrollName
              rsup!UserCardNo = rs!UserCardNo
              rsup!UserHireDay = rs!UserHireDay
              rsup!UserIDTitle = rs!UserIDTitle
              rsup!UserSex = rs!UserSex
              rsup!UserBirthDay = rs!UserBirthDay
              rsup!UserBirthPlace = rs!UserBirthPlace
              rsup!UserPhoto = rs!UserPhoto
  
  e làm theo gợi ý của a khi chạy không có lỗi nữa. nhưng không update được từ query "QUserInfo" qua link table " UserInfo_da".

• RE: update nhiều record trong bảng với 1 query

  jason > 29-03-19, 10:27 AM

  Sub SeekUpdate()
      Dim rs As DAO.Recordset
      Dim qr As DAO.QueryDef
      Dim rsup As DAO.Recordset
      Set qr = CurrentDb.QueryDefs("QUserInfo")
      Set rsup = CurrentDb.OpenRecordset("UserInfo_da", dbOpenDynaset)
      'rsup.Index = "Primarykey" 'Primarykey cua tblDonGia la TenKH
      If rs.RecordCount > 0 Then
      rs.MoveFirst
      Do Until rs.EOF
          'rsup.Seek "=", rs!UserFullCode
          'rsup.Seek "="
          If rsup.NoMatch Then
              rsup.AddNew
              rsup!UserFullCode = rs!UserFullCode
              rsup!UserFullName = rs!UserFullName
              rsup!UserLastName = rs!UserLastName
              rsup!UserEnrollNumber = rs!UserEnrollNumber
              rsup!UserEnrollName = rs!UserEnrollName
              rsup!UserCardNo = rs!UserCardNo
              rsup!UserHireDay = rs!UserHireDay
              rsup!UserIDTitle = rs!UserIDTitle
              rsup!UserSex = rs!UserSex
              rsup!UserBirthDay = rs!UserBirthDay
              rsup!UserBirthPlace = rs!UserBirthPlace
              rsup!UserPhoto = rs!UserPhoto
  
  e làm theo gợi ý của a khi chạy không có lỗi nữa. nhưng không update được từ query "QUserInfo" qua link table " UserInfo_da".
• Bài trước Bài tiếp