Xóa dữ liệu củ và ghi dữ liệu mới đã chỉnh sửa vào file đích đang đóng từ file đầu (1 người xem)

[quoc nhat]

Chào các anh chị hôm trước em đã hỏi code ghi dữ liệu từ file đang mở (ĐẦU) vào file đóng (ĐÍCH) nằm chung Folder.
Hôm nay em lại làm phiền các anh chị lần nữa về code sửa dữ liệu từ file đang mở FILE ĐẦU trên Userform7 và ghi lại vào file đóng, xóa dòng dữ liệu củ
Em đã có cái code lấy dữ liệu từ file đóng rồi còn thiếu cái code ghi dữ liệu đã chỉnh sửa và xóa dữ liệu củ nữa thôi.
PS: ghi mới em làm được (UserForm9) file ĐẦU
Mong các anh chị giúp cho
Link file:
http://www.mediafire.com/download/43d4nei458b7a44/SUA+DL.rar

 

[quoc nhat]

Mọi người xem giúp em với ạ!

 

[doveandrose]

ủa file đầu trống trơn có cái gì đâu ta ? hay là file đầu chỉ dùng để chứa 2 cái Form chăng ? mà cũng đâu nhất thiết phải có đủ 2 Form , 1 cái làm 2 chức năng được mà .....

 

[VetMini]

Bạn đã thấy ai dùng file mở để ghi dữ liệu cập nhật file đóng chưa? Có bao giờ đặt câu hỏi: tại sao đề tài "hay" vậy mà không thấy ai làm?

Lý do: làm 1 lần thì được. Làm 1 chục lần thì có thánh mới kiểm soát nổi.

 

[ec ec]

Mọi người xem giúp em với ạ!

Private Sub CommandButton3_Click()
Dim i As Long
    ListBox1.BoundColumn = 1
    i = ListBox1.ListIndex
    MoKetNoi
    Set rs = CreateObject("ADODB.Recordset")
    rs.Open "SELECT * FROM [BHYT$]", cn, , 3
With rs
    .MoveFirst
    .Find "THE='" & ListBox1 & "'"
    .Fields(0) = TextBox2: ListBox1.List(i, 0) = TextBox2
    .Fields(1) = TextBox3: ListBox1.List(i, 1) = TextBox3
    .Fields(2) = TextBox4: ListBox1.List(i, 2) = TextBox4
    .Fields(3) = TextBox5: ListBox1.List(i, 3) = TextBox5
    .Fields(4) = TextBox6: ListBox1.List(i, 4) = TextBox6
    .Fields(5) = TextBox7: ListBox1.List(i, 5) = TextBox7
    .Fields(6) = TextBox8: ListBox1.List(i, 6) = TextBox8
    .Fields(7) = TextBox10: ListBox1.List(i, 7) = TextBox10
    .Fields(9) = TextBox9: ListBox1.List(i, 9) = TextBox9
    .Update
    MsgBox "Da hieu chinh thong tin Ma the " & ListBox1
End With
End Sub