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

Copy record trên table vào table khác

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Table
  • Copy record trên table vào table khác
• Copy record trên table vào table khác

• Copy record trên table vào table khác

  yamakashi2003 > 01-05-20, 09:27 PM

  Em chào các bác ạ,
  Giả sử em có Table1 có 3 field là: makh, cash, bill. Có data như sau:
  makh     cash    bill
  111         1         2
  111         3         4
  222         5         6
  333         8 
  
  Và Table2 cũng có cấu trúc y hệt table1
  Em có tạo 1 form gồm 1 button và txtmakh
  
  Nhờ Các bác chỉ giúp em code trong button để có thể copy tất cả các record (trong table1) có makh = txtmakh (giả sử 111) vào record tiếp theo của table2 ạ
  Em xin cảm ơn

• RE: Copy record trên table vào table khác

  tranthanhan1962 > 01-05-20, 09:43 PM

  Có một query là append query tạo query đó rồi chuyển sang sql đưa và event click của nút lệnh

• RE: Copy record trên table vào table khác

  yamakashi2003 > 01-05-20, 10:41 PM

  Em có thử nhưng nó báo lỗi lúc thì ở tên bảng, lúc thì ở where lúc thì cả dòng
  Mong bác chỉnh lại giúp
  
  Private Sub Command293_Click()
  INSERT INTO T_table2 ( MAKH, Hoadon, Quay, TIEN )
  SELECT T_DULIEU.MAKH, T_DULIEU.SOHD, T_DULIEU.SOQUAY, T_DULIEU.TIENFROM T_DULIEU
  WHERE T_DULIEU!makh= '" & Me.TXTMAKH & "'
  End Sub

• RE: Copy record trên table vào table khác

  tranthanhan1962 > 01-05-20, 11:25 PM

  Bạn phải chạy lệnh RunSQL mới được. Đưa đoạn SQL vào trong cặp ngoặc kép
  
  Private Sub Command293_Click()
  
      DoCmd.RunSQL "INSERT INTO Table2 ( makh, cash, bill )SELECT Table1.makh, Table1.cash, Table1.bill FROM Table1 WHERE (((Table1.makh)=[Forms]![Form1]![txtmakh]));"
  
  End Sub
  
  Hoặc
  
  Private Sub Command293_Click()
  
  DoCmd.RunSQL "INSERT INTO T_table2 ( MAKH, Hoadon, Quay, TIEN ) SELECT T_DULIEU.MAKH, T_DULIEU.SOHD, T_DULIEU.SOQUAY, T_DULIEU.TIEN FROM T_DULIEU WHERE T_DULIEU!makh= [Forms]![Tên Form]![txtmakh])
  
  End Sub
  
  * Dòng _DULIEU.TIENFROM bạn để dính liền là lỗi, phải có khoảng trắng giữa _DULIEU.TIEN FROM. Thiếu lệnh DoCmd.RunSQL
  Cách làm nhanh nhất là tạo một query cho chạy thử, khi test query chạy OK thì chuyển query thành SQL. Nếu trong SQL có dấu ngoặc kép thì chuyển nó thành ngoặc đơn trước. trong đoạn mã VBA tạo dòng lệnh: DoCmd.RunSQL ""
  Copy toàn bộ đoạn mã SQL đã tạo, nhét vào giữa cặp ngoặc kép, Những đoạn SQL bị xuống dòng phải đưa lên thành 1 dòng, giữa 2 dòng phải có khoảng trắng. Nếu đoạn SQL dài quá một dòng không đủ phải chia thành 2 dòng thì phải biến thành 2 đoạn trong ngoặc kép và nối với nhau bằng khoảng trắng, dấu _ và dấu &
  Ví dụ:
  DoCmd.RunSQL "INSERT INTO T_table2 ( MAKH, Hoadon, Quay, TIEN ) SELECT T_DULIEU.MAKH, T_DULIEU.SOHD, T_DULIEU.SOQUAY, T_DULIEU.TIEN FROM T_DULIEU WHERE T_DULIEU!makh= [Forms]![Tên Form]![txtmakh])
  Phải sửa lại là:
  DoCmd.RunSQL "INSERT INTO T_table2 ( MAKH, Hoadon, Quay, TIEN ) SELECT T_DULIEU.MAKH, T_DULIEU.SOHD, T_DULIEU.SOQUAY, T_DULIEU.TIEN FROM " _
                         & "T_DULIEU WHERE T_DULIEU!makh= [Forms]![Tên Form]![txtmakh])"

• RE: Copy record trên table vào table khác

  yamakashi2003 > 01-05-20, 11:53 PM

  (01-05-20, 11:25 PM)tranthanhan1962 Đã viết: Bạn phải chạy lệnh RunSQL mới được. Đưa đoạn SQL vào trong cặp ngoặc kép
  
  Private Sub Command293_Click()
  
      DoCmd.RunSQL "INSERT INTO Table2 ( makh, cash, bill )SELECT Table1.makh, Table1.cash, Table1.bill FROM Table1 WHERE (((Table1.makh)=[Forms]![Form1]![txtmakh]));"
  
  End Sub
  
  Hoặc
  
  Private Sub Command293_Click()
  
  DoCmd.RunSQL "INSERT INTO T_table2 ( MAKH, Hoadon, Quay, TIEN ) SELECT T_DULIEU.MAKH, T_DULIEU.SOHD, T_DULIEU.SOQUAY, T_DULIEU.TIEN FROM T_DULIEU WHERE T_DULIEU!makh= [Forms]![Tên Form]![txtmakh])
  
  End Sub
  
  * Dòng _DULIEU.TIENFROM bạn để dính liền là lỗi, phải có khoảng trắng giữa _DULIEU.TIEN FROM. Thiếu lệnh DoCmd.RunSQL
  Cách làm nhanh nhất là tạo một query cho chạy thử, khi test query chạy OK thì chuyển query thành SQL. Nếu trong SQL có dấu ngoặc kép thì chuyển nó thành ngoặc đơn trước. trong đoạn mã VBA tạo dòng lệnh: DoCmd.RunSQL ""
  Copy toàn bộ đoạn mã SQL đã tạo, nhét vào giữa cặp ngoặc kép, Những đoạn SQL bị xuống dòng phải đưa lên thành 1 dòng, giữa 2 dòng phải có khoảng trắng. Nếu đoạn SQL dài quá một dòng không đủ phải chia thành 2 dòng thì phải biến thành 2 đoạn trong ngoặc kép và nối với nhau bằng khoảng trắng, dấu _ và dấu &
  Ví dụ:
  DoCmd.RunSQL "INSERT INTO T_table2 ( MAKH, Hoadon, Quay, TIEN ) SELECT T_DULIEU.MAKH, T_DULIEU.SOHD, T_DULIEU.SOQUAY, T_DULIEU.TIEN FROM T_DULIEU WHERE T_DULIEU!makh= [Forms]![Tên Form]![txtmakh])
  Phải sửa lại là:
  DoCmd.RunSQL "INSERT INTO T_table2 ( MAKH, Hoadon, Quay, TIEN ) SELECT T_DULIEU.MAKH, T_DULIEU.SOHD, T_DULIEU.SOQUAY, T_DULIEU.TIEN FROM " _
                         & "T_DULIEU WHERE T_DULIEU!makh= [Forms]![Tên Form]![txtmakh])"

  Em cảm ơn bác,
  Bác cho em hỏi trường hợp này dùng Add New được không ạ

• RE: Copy record trên table vào table khác

  yamakashi2003 > 02-05-20, 12:06 AM

  (01-05-20, 11:25 PM)tranthanhan1962 Đã viết: Bạn phải chạy lệnh RunSQL mới được. Đưa đoạn SQL vào trong cặp ngoặc kép
  
  Private Sub Command293_Click()
  
      DoCmd.RunSQL "INSERT INTO Table2 ( makh, cash, bill )SELECT Table1.makh, Table1.cash, Table1.bill FROM Table1 WHERE (((Table1.makh)=[Forms]![Form1]![txtmakh]));"
  
  End Sub
  
  Hoặc
  
  Private Sub Command293_Click()
  
  DoCmd.RunSQL "INSERT INTO T_table2 ( MAKH, Hoadon, Quay, TIEN ) SELECT T_DULIEU.MAKH, T_DULIEU.SOHD, T_DULIEU.SOQUAY, T_DULIEU.TIEN FROM T_DULIEU WHERE T_DULIEU!makh= [Forms]![Tên Form]![txtmakh])
  
  End Sub
  
  * Dòng _DULIEU.TIENFROM bạn để dính liền là lỗi, phải có khoảng trắng giữa _DULIEU.TIEN FROM. Thiếu lệnh DoCmd.RunSQL
  Cách làm nhanh nhất là tạo một query cho chạy thử, khi test query chạy OK thì chuyển query thành SQL. Nếu trong SQL có dấu ngoặc kép thì chuyển nó thành ngoặc đơn trước. trong đoạn mã VBA tạo dòng lệnh: DoCmd.RunSQL ""
  Copy toàn bộ đoạn mã SQL đã tạo, nhét vào giữa cặp ngoặc kép, Những đoạn SQL bị xuống dòng phải đưa lên thành 1 dòng, giữa 2 dòng phải có khoảng trắng. Nếu đoạn SQL dài quá một dòng không đủ phải chia thành 2 dòng thì phải biến thành 2 đoạn trong ngoặc kép và nối với nhau bằng khoảng trắng, dấu _ và dấu &
  Ví dụ:
  DoCmd.RunSQL "INSERT INTO T_table2 ( MAKH, Hoadon, Quay, TIEN ) SELECT T_DULIEU.MAKH, T_DULIEU.SOHD, T_DULIEU.SOQUAY, T_DULIEU.TIEN FROM T_DULIEU WHERE T_DULIEU!makh= [Forms]![Tên Form]![txtmakh])
  Phải sửa lại là:
  DoCmd.RunSQL "INSERT INTO T_table2 ( MAKH, Hoadon, Quay, TIEN ) SELECT T_DULIEU.MAKH, T_DULIEU.SOHD, T_DULIEU.SOQUAY, T_DULIEU.TIEN FROM " _
                         & "T_DULIEU WHERE T_DULIEU!makh= [Forms]![Tên Form]![txtmakh])"

  ..............  (((Table1.makh)=[Forms]![Form1]![txtmakh]));"
  .............. [i]"T_DULIEU WHERE T_DULIEU!makh= [Forms]![Tên Form]![txtmakh])"[/i]
  Em đã làm theo bác chỉ rồi ạ, nhưng bác cho em hỏi ở trong 2 đoạn cuối của code trên thì hình như thừa dấu ) mà em đã bôi đỏ phải không ạ,
  Em thấy code trong query cũng thừa  dấu ( )

• RE: Copy record trên table vào table khác

  tranthanhan1962 > 02-05-20, 12:38 AM

  (02-05-20, 12:06 AM)yamakashi2003 Đã viết: ..............  (((Table1.makh)=[Forms]![Form1]![txtmakh]));"
  .............. [i]"T_DULIEU WHERE T_DULIEU!makh= [Forms]![Tên Form]![txtmakh])"[/i]
  Em đã làm theo bác chỉ rồi ạ, nhưng bác cho em hỏi ở trong 2 đoạn cuối của code trên thì hình như thừa dấu ) mà em đã bôi đỏ phải không ạ,
  Em thấy code trong query cũng thừa  dấu ( )

  Quan trong là code chạy Ok là được. SQL tự tạo khi chuyển từ query đôi khi thừa Những cặp (), thừa thì không sao nhưng thiếu thì lỗi. Kệ nó. Yêu cầu chạy mã OK thì đạt yêu cầu. 
  (3*5) + 2 = (((3*5))+2) đâu có sao 

• RE: Copy record trên table vào table khác

  yamakashi2003 > 02-05-20, 08:22 AM

  (02-05-20, 12:38 AM)tranthanhan1962 Đã viết:

  (02-05-20, 12:06 AM)yamakashi2003 Đã viết: ..............  (((Table1.makh)=[Forms]![Form1]![txtmakh]));"
  .............. [i]"T_DULIEU WHERE T_DULIEU!makh= [Forms]![Tên Form]![txtmakh])"[/i]
  Em đã làm theo bác chỉ rồi ạ, nhưng bác cho em hỏi ở trong 2 đoạn cuối của code trên thì hình như thừa dấu ) mà em đã bôi đỏ phải không ạ,
  Em thấy code trong query cũng thừa  dấu ( )

  Quan trong là code chạy Ok là được. SQL tự tạo khi chuyển từ query đôi khi thừa Những cặp (), thừa thì không sao nhưng thiếu thì lỗi. Kệ nó. Yêu cầu chạy mã OK thì đạt yêu cầu. 
  (3*5) + 2 = (((3*5))+2) đâu có sao 

  Em cảm ơn bác,
  Bác cho em hỏi trường hợp này dùng Add New được không ạ

• RE: Copy record trên table vào table khác

  Xuân Thanh > 02-05-20, 10:17 AM

  AddNew chính là Insert đó thôi. Nếu dùng AddNew phải đi nguyên một vòng lặp Do...Loop

• RE: Copy record trên table vào table khác

  tranthanhan1962 > 02-05-20, 11:17 AM

  Insert là lệnh SQL, nó sẽ tìm nhóm record của table nguồn đúng yêu cầu dán vào table đích. AddNew là lệnh recordset nó dùng vòng lập bắt đầu kiểm tra từ record đầu tiên kiểm tra từng record một record nào đúng yêu cầu thì chép qua table đích record nào không dúng yêu cầu thì bỏ qua.
• Bài trước Bài tiếp