chuyển dữ liệu từ append query đến table (2 người xem)

[BinhTam]

Chào các bạn,

hiện tại mình dùng append query để chuyển dữ liệu vào table.

Mình muốn viết code 1 lần để chuyển dữ liệu từ các append query("F5A1","F5A2","F5A3") vào table "s_test".

Rất mong nhận được sự hỗ trợ của các bạn.

Thanks.

Bình Tâm

 

[Hai Lúa Miền Tây]

Chào các bạn,

hiện tại mình dùng append query để chuyển dữ liệu vào table.

Mình muốn viết code 1 lần để chuyển dữ liệu từ các append query("F5A1","F5A2","F5A3") vào table "s_test".

Rất mong nhận được sự hỗ trợ của các bạn.

Thanks.

Bình Tâm

Cho mình hỏi thêm là bạn muốn chạy 3 cái append query đó = 1 nút bấm của form hay là dùng code để update ?

 

[BinhTam]

mình muốn dùng code để update

 

[Hai Lúa Miền Tây]

mình muốn dùng code để update

Làm cho bạn ví dụ 1 cái, 2 cái còn lại bạn tự làm nhé.

Private Sub cmdup_Click()
Dim strSQL_F5A1 As String
  DoCmd.SetWarnings (False)
   strSQL_F5A1 = "INSERT INTO S_test ( ID, NPL, DVT, A, B, C, D, E, F, G, H, I, J, CNN) " & _
          "SELECT CR5ADM.ID AS ID, CR5ADM.NPL AS NPL, CR5ADM.DVT AS DVT, CR5ADM.[1], CR5ATLHH.[1], " & _
          "CR5ADM.[2], CR5ATLHH.[2], CR5ADM.[3], CR5ATLHH.[3], CR5ADM.[4], CR5ATLHH.[4], CR5ADM.[5], " & _
          "CR5ATLHH.[5], 'A' AS CNN FROM CR5ADM INNER JOIN CR5ATLHH ON CR5ADM.ID = CR5ATLHH.ID;"
          
    DoCmd.RunSQL strSQL_F5A1
    MsgBox "Da cap nhat xong du lieu !"
   DoCmd.SetWarnings (True)
   
End Sub

 

[BinhTam]

Chào bạn,

Thanks.

bạn có thể viết code 1 lần để tự động update dữ liệu hay không(không cần biết có STT bao nhiêu cứ 5 nhảy xuống rồi tiếp đến hết(không tạo sẵn append query?

cách trên nếu STT tăng lên thì mình lại chỉnh lại append query.