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

Cập nhật hàng loạt nội dung đã được Hyperlink

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Table
  • [Hỏi] Cập nhật hàng loạt nội dung đã được Hyperlink
• Cập nhật hàng loạt nội dung đã được Hyperlink

• Cập nhật hàng loạt nội dung đã được Hyperlink

  mrtoanbin > 16-01-19, 11:16 PM

  Xin chào các bác ạ!
  
  Mình có một nhu cầu thế này không biết được không: Table mình đã nhập dữ liệu có 01 Filed kiểu Hyperlink, nội dung mình nhập hơi dài dòng. Giờ muốn cập nhật lại thành chữ ngắn gọn bất kỳ (ví dụ từ “Xem”) nhưng vẫn còn giữ được link đã liên kết. Như vậy có được không?
  
  Mình đã làm thủ công nhập bình thường nhưng bị mất link phải làm lại từ đầu thì mắc công quá (500 record ạ)
  
  Xin được chỉ giáo, cảm ơn ạ!
  
  
   

• RE: Cập nhật hàng loạt nội dung đã được Hyperlink

  ongke0711 > 17-01-19, 02:11 PM

  Bạn dùng hàm Hyperlinkpart() để xử lý vụ này. Hàm Hyperlinkpart dùng để lấy các thành phần của một hyperlink như: nội dung hiển thị (acDisplayedText), địa chỉ link (acFullAddress)...
  Cách làm: duyệt qua từng dòng, lấy cái địa chỉ link -> thêm phần TExt mong muốn trước địa chỉ link.
  Định dạng hyperlink: "ThuThuatAccess#http://thuthuataccess.com"
  
  - Tạo một nút lệnh [cmdChangeText].
  - Code cho nút này: thay tên table và tên cột tương ứng
  -----------------------------------------------
  Private Sub ChangeText_Click()
      Dim rs As DAO.Recordset
      Set rs = CurrentDb.OpenRecordset("Table1")
      rs.MoveFirst
      Do Until rs.EOF
          rs.Edit
          rs!Link = "Xem#" & HyperlinkPart(rs("Link"), acFullAddress)
          rs.Update
          rs.MoveNext
      Loop
  End Sub
  -------------------------------------------------

• RE: Cập nhật hàng loạt nội dung đã được Hyperlink

  mrtoanbin > 17-01-19, 02:53 PM

  (17-01-19, 02:11 PM)ongke0711 Đã viết: Bạn dùng hàm Hyperlinkpart() để xử lý vụ này. Hàm Hyperlinkpart dùng để lấy các thành phần của một hyperlink như: nội dung hiển thị (acDisplayedText), địa chỉ link (acFullAddress)...
  Cách làm: duyệt qua từng dòng, lấy cái địa chỉ link -> thêm phần TExt mong muốn trước địa chỉ link.
  Định dạng hyperlink: "ThuThuatAccess#http://thuthuataccess.com"
  
  - Tạo một nút lệnh [cmdChangeText].
  - Code cho nút này: thay tên table và tên cột tương ứng
  -----------------------------------------------
  Private Sub ChangeText_Click()
      Dim rs As DAO.Recordset
      Set rs = CurrentDb.OpenRecordset("Table1")
      rs.MoveFirst
      Do Until rs.EOF
          rs.Edit
          rs!Link = "Xem#" & HyperlinkPart(rs("Link"), acFullAddress)
          rs.Update
          rs.MoveNext
      Loop
  End Sub
  -------------------------------------------------

  
  Cảm ơn rất nhiều ạ. Mình sẽ test xem!

• RE: Cập nhật hàng loạt nội dung đã được Hyperlink

  mrtoanbin > 17-01-19, 03:25 PM

  (17-01-19, 02:11 PM)ongke0711 Đã viết: Bạn dùng hàm Hyperlinkpart() để xử lý vụ này. Hàm Hyperlinkpart dùng để lấy các thành phần của một hyperlink như: nội dung hiển thị (acDisplayedText), địa chỉ link (acFullAddress)...
  Cách làm: duyệt qua từng dòng, lấy cái địa chỉ link -> thêm phần TExt mong muốn trước địa chỉ link.
  Định dạng hyperlink: "ThuThuatAccess#http://thuthuataccess.com"
  
  - Tạo một nút lệnh [cmdChangeText].
  - Code cho nút này: thay tên table và tên cột tương ứng
  -----------------------------------------------
  Private Sub ChangeText_Click()
      Dim rs As DAO.Recordset
      Set rs = CurrentDb.OpenRecordset("Table1")
      rs.MoveFirst
      Do Until rs.EOF
          rs.Edit
          rs!Link = "Xem#" & HyperlinkPart(rs("Link"), acFullAddress)
          rs.Update
          rs.MoveNext
      Loop
  End Sub
  -------------------------------------------------

  
  Mình đã test nhưng chỉ ra chữ "Xem" kiểu hyperlink chứ k có đường dẫn bác ơi!

• RE: Cập nhật hàng loạt nội dung đã được Hyperlink

  ongke0711 > 17-01-19, 03:30 PM

  (17-01-19, 03:25 PM)mrtoanbin Đã viết: Mình đã test nhưng chỉ ra chữ "Xem" kiểu hyperlink chứ k có đường dẫn bác ơi!

  
  Code demo của tôi cho trường hợp là: Field [Link] là field dạng Hyperlink và từng record của field này đã có insert hyperlink rồi (đã có dữ liệu hyperlink rồi). Bây giờ chỉ đổi tên hiển thị thôi. Trường hợp của bạn có phải giống vậy không?

• RE: Cập nhật hàng loạt nội dung đã được Hyperlink

  hieuvn > 18-01-19, 10:16 AM

  sửa bằng VBA thì hyperlink phải đặt giữa 2 dấu #, bạn chỉ cần sửa lại code của onke0711 tí là ok ngay.

• RE: Cập nhật hàng loạt nội dung đã được Hyperlink

  ongke0711 > 18-01-19, 11:57 AM

  Cái Hyperlink tôi ví dụ trong demo chỉ có 2 tham số nên tôi chỉ dùng 1 dấu # dạng: Caption#Address

• RE: Cập nhật hàng loạt nội dung đã được Hyperlink

  mrtoanbin > 18-01-19, 09:35 PM

  (18-01-19, 11:57 AM)ongke0711 Đã viết: Cái Hyperlink tôi ví dụ trong demo chỉ có 2 tham số nên tôi chỉ dùng 1 dấu # dạng: Caption#Address

  
  Đã thành công, qua test biết them cái khác. Cảm ơn ạ!

• RE: Cập nhật hàng loạt nội dung đã được Hyperlink

  mrtoanbin > 18-01-19, 09:37 PM

  (18-01-19, 11:57 AM)ongke0711 Đã viết: Cái Hyperlink tôi ví dụ trong demo chỉ có 2 tham số nên tôi chỉ dùng 1 dấu # dạng: Caption#Address

  
  Đã thành công, qua test biết them cái khác. Cảm ơn ạ!
• Bài trước Bài tiếp