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

Tạo nút bấm thay cho Hyperlink

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • [Help] Tạo nút bấm thay cho Hyperlink
• Tạo nút bấm thay cho Hyperlink

• Tạo nút bấm thay cho Hyperlink

  buida > 08-03-20, 10:29 PM

  Chào các bạn
  Tôi muốn làm vấn đề như bài này
  https://thuthuataccess.com/forum/thread-10807.html
  nhưng chưa thể làm được
  xin mọi người giúp
  Vì trường dữ liệu Hyperlink dài quá và không muốn cho người sử dụng nhìn thấy link nên muốn thay thế link bằng nút bấm.
  dữ liệu của tôi lên tới 5 ngàn dòng rồi

• RE: Tạo nút bấm thay cho Hyperlink

  ongke0711 > 09-03-20, 12:41 AM

  (08-03-20, 10:29 PM)buida Đã viết: Chào các bạn
  Tôi muốn làm vấn đề như bài này
  https://thuthuataccess.com/forum/thread-10807.html
  nhưng chưa thể làm được
  xin mọi người giúp
  Vì trường dữ liệu Hyperlink dài quá và không muốn cho người sử dụng nhìn thấy link nên muốn thay thế link bằng nút bấm.
  dữ liệu của tôi lên tới 5 ngàn dòng rồi

  
  Bạn đã làm được tới đâu rồi? Bị lỗi như thế nào mà chưa ra kết quả.

• RE: Tạo nút bấm thay cho Hyperlink

  buida > 13-03-20, 09:39 AM

  Dạ, em mới chỉ làm được bảng DanhThư có chứa trường Hyperlink và các trường khác như tên Sách, tác giả, NXB...
  và một from tìm kiếm dựa trên tên Sách
  em muốn rằng : thay vì nhấn vào đường link để mở file pdf trên máy tính hoặc trên mạng, thì bây giờ nhấn vào nút "Xem" để đọc

• RE: Tạo nút bấm thay cho Hyperlink

  ongke0711 > 13-03-20, 10:09 AM

  Nếu hiện tại thì trong table DanhThu của bạn đã có chèn Hyperlink cho từng Record rồi thì dùng code dưới đây để đổi tên, rút ngắn nó thành chữ "Xem".
  
  Tạo 1 Form tạm, thêm 1 nút lệnh và copy code dưới đây cho nút lênh đó -> bấm chạy là xong.
  Trong code: [DuongDan] là tên Field bạn lưu Hyperlink. Đổi tên tương ứng table của bạn.
  
  

  Mã PHP:

  Private Sub CommandButton1_Click()
    Dim rs As DAO.Recordset
    Set rs = CurrentDb.OpenRecordset("tblDanhThu")
    rs.MoveFirst
    Do Until rs.EOF
        rs.Edit
        rs!DuonDan = "#Xem#" & HyperlinkPart(rs("DuongDan"), acFullAddress)
        rs.Update
        rs.MoveNext
    Loop
End Sub 


• RE: Tạo nút bấm thay cho Hyperlink

  buida > 19-03-20, 08:46 AM

  Em cảm ơn anh nhiều lắm vì sự giúp đỡ của anh
  Nhưng thú thật là em mới chỉ làm được bằng tay để hiện chữ "Xem"
  và trong những ngày qua em đã làm bằng tay hết mấy ngàn dòng
  dù gì cũng đã đáp ứng mong nguyện
  Một lần nữa em chân thành cảm ơn anh ongke0711 
  
• Bài trước Bài tiếp