Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Hỏi] Cập nhật hàng loạt nội dung đã được Hyperlink
#1
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 ạ!


 
Chữ ký của mrtoanbin mrtoanbin,gia nhập Thủ Thuật Access từ 09-09 -16.
Reply
Những người đã cảm ơn
#2
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
-------------------------------------------------
Chữ ký của ongke0711 If you BORN poor, it's not your mistake. But if you DIE poor, It's your mistake!
ღღღღღTài sản của ongke0711 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn mrtoanbin
#3
(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!
Chữ ký của mrtoanbin mrtoanbin,gia nhập Thủ Thuật Access từ 09-09 -16.
Reply
Những người đã cảm ơn
#4
(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!
Chữ ký của mrtoanbin mrtoanbin,gia nhập Thủ Thuật Access từ 09-09 -16.
Reply
Những người đã cảm ơn
#5
(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?
Chữ ký của ongke0711 If you BORN poor, it's not your mistake. But if you DIE poor, It's your mistake!
ღღღღღTài sản của ongke0711 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#6
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.
Chữ ký của hieuvn Xin chào! Mình là hieuvn, thành viên của Thủ Thuật Access tham gia ngày Oct 2010.
ღღღღღTài sản của hieuvn (View All Items) ღღღღღ
Reply
Những người đã cảm ơn ongke0711
#7
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
Chữ ký của ongke0711 If you BORN poor, it's not your mistake. But if you DIE poor, It's your mistake!
ღღღღღTài sản của ongke0711 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#8
(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 ạ!
Chữ ký của mrtoanbin mrtoanbin,gia nhập Thủ Thuật Access từ 09-09 -16.
Reply
Những người đã cảm ơn
#9
(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 ạ!
Chữ ký của mrtoanbin mrtoanbin,gia nhập Thủ Thuật Access từ 09-09 -16.
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
Photo [Lỗi] Không lấy được data table vunamnet 9 1,043 03-11-18, 03:57 PM
Bài mới nhất: vunamnet
  [Hỏi] Tạo bảng bán hàng - nhập hàng Cuong Servenet 10 1,575 17-08-18, 08:44 PM
Bài mới nhất: Xuân Thanh
  Tao bảng, quan hệ cho ứng dụng Quản lý hồ sơ Audit huuduy.duy 2 603 26-07-18, 12:45 PM
Bài mới nhất: ongke0711
  Làm sao để Link table từ 1 File Excel mà có thể sửa xoá được ledangvan 1 667 11-03-18, 12:35 AM
Bài mới nhất: tranthanhan1962
  Hướng Dẫn Cập nhật dữ liệu để sao lưu qua file access khác mrtoanbin 7 1,364 10-01-18, 08:46 AM
Bài mới nhất: cpucloi

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ơ| PMA Nha Trang| Gỗ Acrylic Không Đường Line| Phần mềm quản lý bán hàng, công nợ- tồn kho- nhà phân phối