Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Hỏi] Copy 1 dữ liệu paste vào word hoặc web
#1
Do tính chất công việc, mình cần viết 1 code nhỏ để copy nội dung nhập sẵn trong table ra word hoặc điền form trên web.
Nhưng không biết code nút copy để lấy dữ liệu từ Record ra ngoài như thế nào. Nhờ mọi người giúp với. Mình cảm ơn.
Mô tả:
- Thao tác trên Form dữ liệu cần copy
[Hình: Aceesss.png]
- Dán vào word hoặc web:
[Hình: Acess%2525202.png]
Chữ ký của hatashibl
Reply
Những người đã cảm ơn
#2
Mình thấy không phải là "viết 1 code nhỏ" mà vấn đề bạn đặt ra là khá rộng. Bạn cần mô tả cụ thể hơn
hoặc tìm đọc các bài viết về Export dữ liệu sang Word

Nếu chỉ cần copy dữ liệu của một điều khiển trên form, VD txtTen thì code cho nút cmdCopy như sau
Mã:
Private Sub cmdCopy_Click()
    Me!txtTen.SetFocus
   DoCmd.RunCommand acCmdCopy
End Sub

Nếu copy tất cả dữ liệu của record hiện hành thì có thể dùng code sau:
Mã:
Private Sub cmdCopy_Click()
    Me!txtID.SetFocus
    DoCmd.RunCommand acCmdSelectRecord
   DoCmd.RunCommand acCmdCopy
End Sub
Nhưng nếu dùng code trên thì khi dán sang word (hay Google)sẽ có cả tên form và tên các điều khiển
Chữ ký của MatTroiNguQuen Thời gian nước chảy... da mòn
Ngủ quên một chốc thấy còn bộ xương!
Reply
Những người đã cảm ơn hatashibl
#3
Để linh hoạt hơn bạn có thể tham khảo File ví dụ sau:

Download Demo

1/Nút lệnh Copy dùng để sao chép dữ liệu tại điều khiển đang có focus vào Clipboard

Mã:
Private Sub cmdCopy_Click()

    Screen.PreviousControl.SetFocus
    DoCmd.RunCommand acCmdCopy
    
End Sub

2/Nút Copy All dùng để copy tất cả dữ liệu có trong các trường của record hiện hành

Mã:
Private Sub cmdCopyRecord_Click()
On Error GoTo Err_cmdCopyRecord_Click

    Dim rs As DAO.Recordset
    Dim strSQL As String
    
    If Me.Dirty Then DoCmd.RunCommand acCmdSaveRecord
    
    Set rs = CurrentDb.OpenRecordset("SELECT * FROM Table1 WHERE ID =" & Me!txtID)
    If rs.RecordCount > 0 Then
        For i = 0 To rs.Fields.Count - 1
            strSQL = strSQL & " " & Trim(rs(i))
        Next i
        Me!txtCopy.SetFocus
        Me!txtCopy = strSQL
        DoCmd.RunCommand acCmdCopy
        Me!Label35.Visible = True
    Else
        MsgBox "Chua co du lieu de Copy"
    End If
    Set rs = Nothing
Exit_cmdCopyRecord_Click:
Exit Sub
Err_cmdCopyRecord_Click:
    Set rs = Nothing
    MsgBox Err.Description
    Resume Exit_cmdCopyRecord_Click
End Sub

Bạn tùy biến đoạn code sau để copy những trường nào cần sao chép nha :
For i = 0 To rs.Fields.Count - 1
strSQL = strSQL & " " & Trim(rs(i))
Next i
Chữ ký của MatTroiNguQuen Thời gian nước chảy... da mòn
Ngủ quên một chốc thấy còn bộ xương!
Reply
Những người đã cảm ơn hatashibl


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Help] Cập nhật combobox 2 từ combobox 1 (dữ liệu ở nhiều bảng) votinh.tq 6 196 22-11-16, 11:34 PM
Bài mới nhất: votinh.tq
  [Hỏi] Tổng hợp dữ liệu theo thời gian hoanghai902 1 138 21-10-16, 09:55 PM
Bài mới nhất: maidinhdan
  Chèn file văn bản word vào access danhxetnghiem 10 435 11-10-16, 03:42 PM
Bài mới nhất: danhxetnghiem
  [Help] Áp dụng query lọc dữ liệu nhập vào form amazonvn82 8 1,319 05-10-16, 03:11 PM
Bài mới nhất: amazonvn82
  Click đúp chuột hiện form và cập nhật dữ liệu theo số phiếu Ranju 1 126 05-10-16, 11:02 AM
Bài mới nhất: lmthu

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ơ