• 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 
    034 034 034 015 015 015 015 034 034 034