Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Hỏi] Chuyển record giữa 2 table
#1
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!
Chữ ký của MieuNu Xin chào, mình là MieuNu, Tham gia http://thuthuataccess.com/forum từ ngày 03-06 -13.
Reply
Những người đã cảm ơn
#2
Mã PHP:
Private Sub cmdChuyen_Click()
    
Dim rs as RecordsetrsDS 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
.ClosersDS.Close
End Sub 
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn MieuNu , TruongVanTruong
#3
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 "'"dbOpenDynasetdbSeeChanges)
        
Set rstblHSNV dbs.OpenRecordset("tblHsNV"dbOpenDynasetdbSeeChanges)
        
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
Chữ ký của truonghet
Website: https://sites.google.com/site/requirementsoftware
Nhận làm phần mềm access kế toán, kho, đề tài học tập....hire me!
Email: requirementsoftware@gmail.com
Tel: 0168 2381 993
Yahoo and Skype: truonghet
Reply
Những người đã cảm ơn MieuNu
#4
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.
Reply
Những người đã cảm ơn
#5
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?
Chữ ký của MieuNu Xin chào, mình là MieuNu, Tham gia http://thuthuataccess.com/forum từ ngày 03-06 -13.
Reply
Những người đã cảm ơn
#6
(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 
Chữ ký của truonghet
Website: https://sites.google.com/site/requirementsoftware
Nhận làm phần mềm access kế toán, kho, đề tài học tập....hire me!
Email: requirementsoftware@gmail.com
Tel: 0168 2381 993
Yahoo and Skype: truonghet
Reply
Những người đã cảm ơn Noname , MieuNu


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Help] [Hàm] Lấy dữ liệu giữa 2 file Access có cùng cấu trúc table trungminh 22 1,248 08-10-16, 12:08 AM
Bài mới nhất: maidinhdan
  [Hỏi] Chữ IN HOA trong table diepvien1989 5 304 08-09-16, 10:16 PM
Bài mới nhất: Nguyen Hoang Diep
  [Help] So sánh 2 Table Lấy ra dữ liệu trùng nhau sang 1 table có sẳn khác thdanh 21 1,676 19-07-16, 04:21 PM
Bài mới nhất: maidinhdan
  [Help] ràng buộc dữ liệu giữa 2 field trong 2 bảng khác nhau hoangtiep 5 277 08-07-16, 05:07 PM
Bài mới nhất: maidinhdan
  Chuyển dữ liệu từ bảng A qua bảng B có chọn lọc bdbqn2007 5 372 08-06-16, 11:36 PM
Bài mới nhất: maidinhdan

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ