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

Copy 1 dữ liệu paste vào word hoặc web

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • [Hỏi] Copy 1 dữ liệu paste vào word hoặc web
• Copy 1 dữ liệu paste vào word hoặc web

• Copy 1 dữ liệu paste vào word hoặc web

  hatashibl > 13-04-14, 04:47 PM

  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
  
  - Dán vào word hoặc web:
  

• RE: Copy 1 dữ liệu paste vào word hoặc web

  MTNQ > 14-04-14, 02:13 AM

  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

• RE: Copy 1 dữ liệu paste vào word hoặc web

  MTNQ > 14-04-14, 01:43 PM

  Để 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
• Bài trước Bài tiếp