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

Chuyển record giữa 2 table

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Table
  • [Hỏi] Chuyển record giữa 2 table
• Chuyển record giữa 2 table

• Chuyển record giữa 2 table

  MieuNu > 29-08-13, 10:45 AM

  Chào mọi người,
  Mình có 2 table: Hồ sơ ứng viên và Hồ sơ nhân viên. Mình tạo form cho 2 table này.
  Bây giờ trên form Hồ sơ ứng viên mình muốn tạo command buttton để chuyển record của table Hồ sơ ứng viên phỏng vấn đậu vào table Hồ sơ nhân viên.
  Bạn nào chỉ mình cách viết code cho nút cmd được không ạ? Mình loay hoay và tìm tài liệu mãi mà không ra.
  Thanks!

• RE: Chuyển record giữa 2 table

  Xuân Thanh > 29-08-13, 12:20 PM

  Mã PHP:

  Private Sub cmdChuyen_Click()
    Dim rs as Recordset, rsDS As Recordset
    Set rs = CurrentDb.OpenRecordset("tblHosoNhanVien", dbOpenTable)
    Set rsDS = CurrentDb.OpenRecordset("Select * Form tblHoSoUngVien Where MaNV = " & Me.MaNV &)
    rs.AdNew
    rs!MaNV = rsDS!MaNV
    ........
    rs.Update
    rs.Close: rsDS.Close
End Sub 


• RE: Chuyển record giữa 2 table

  truonghet > 29-08-13, 12:48 PM

  Trích dẫn:Chào mọi người,
  Mình có 2 table: Hồ sơ ứng viên và Hồ sơ nhân viên. Mình tạo form cho 2 table này.
  Bây giờ trên form Hồ sơ ứng viên mình muốn tạo command buttton để chuyển record của table Hồ sơ ứng viên phỏng vấn đậu vào table Hồ sơ nhân viên.
  Bạn nào chỉ mình cách viết code cho nút cmd được không ạ? Mình loay hoay và tìm tài liệu mãi mà không ra.
  Thanks!

  
  vi du cho 2 tables do la:
  -tblHsUV (MSUV, Ten, NamSinh,Status)
  -tblHsNV (MSNV, Ten, NamSinh)
  
  //textbox MSUV ten la txtMSUV
  // chú ý trong form ứng viên có hai trạng thái (D/R)- bạn làm cái combobox cho nó- cboStatus.
  
  tại nút mình đặt nút command tên là cmdTransfer
  
  

  Mã PHP:

  Private Sub cmdTransfer_Click()
    Dim dbs As DAO.Database
    Dim rstblHSUV As DAO.Recordset
    Dim rstblHSNV As DAO.Recordset
    Dim strStatus As String   
    Set dbs = CodeDb
    With Me
     strStatus = "D"
        Set rstblHSUV = dbs.OpenRecordset("Select * From tblHsUV Where MSUV ='" & !txtMSUV & "' and Status='" & strStatus & "'", dbOpenDynaset, dbSeeChanges)
        Set rstblHSNV = dbs.OpenRecordset("tblHsNV", dbOpenDynaset, dbSeeChanges)
        rstblHSNV.AddNew
        rstblHSNV("MSNV") = rstblHSUV!MSUV
        rstblHSNV("Ten") = rstblHSUV!Ten
        rstblHSNV("MSNV") = NamSinh!NamSinh
        rstblHSNV.Update
        rstblHSUV.Close
        rstblHSNV .Close
    End With
End Sub 


  
  chuc thanh cong

• RE: Chuyển record giữa 2 table

  trav2t > 29-08-13, 03:19 PM

  Code để chuyển record từ table này sang table khác thì không khó, nhưng theo ý kiến cá nhân của mình thì bạn tự làm cho phức tạp vấn đề cần giải quyết.
  Đầu tiên là vấn đề về Thuật toán:
  yêu cầu cấu trúc dữ liệu của 02 table hoàn toàn giống nhau.
  1.Thêm 1 record mới ở table đích
  2. Update dữ liệu trên form hiện hành tới table đích.
  3. Xóa record hiện hành trên form (table nguồn). Nếu không xóa thì trong quá trình sử dụng có lúc nhầm lẫn update lần nữa sẽ báo lỗi vì sau khi update sẽ có 02 record giống nhau ở table đích
  Vì vậy, tốt nhất và để đơn giản nhất vấn đề bạn chỉ cần design thêm một field trúng tuyển (Yes/No), bạn chỉ cần chọn Yes/No là ok, giải quyết xong vấn đề của bạn.

• RE: Chuyển record giữa 2 table

  MieuNu > 29-08-13, 03:58 PM

  Cám ơn các bạn đã giúp đỡ. Mình làm theo cách XuanThanh chỉ đã làm được rồi, nhưng cái của XuanThanh là update qua tblHosonhanvien, trên tblHosoungvien vẫn còn record đó thì làm sao vừa update qua bảng tblHosonhanvien vừa xóa trên tblHosoungvien?

• RE: Chuyển record giữa 2 table

  truonghet > 29-08-13, 05:32 PM

  (29-08-13, 03:58 PM)MieuNu Đã viết: Cám ơn các bạn đã giúp đỡ. Mình làm theo cách XuanThanh chỉ đã làm được rồi, nhưng cái của XuanThanh là update qua tblHosonhanvien, trên tblHosoungvien vẫn còn record đó thì làm sao vừa update qua bảng tblHosonhanvien vừa xóa trên tblHosoungvien?

  
  
  Sau khi vừa insert qua table mới. Bạn thực hiện lện xóa Record trên table cũ.
  

  Mã PHP:

  DoCmd.SetWarnings False
        DoCmd.RunSQL "Delete * From tblHoSoUngVienWhere tblHoSoUngVien.MaNV = """ & Me!MaNV & """"

        DoCmd.SetWarnings True 

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