Đánh giá chủ đề:
  • 4 Votes - 3 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Gắn file Help vào chương trình Access
#1
Share by: hungtano - khoahocphothong.net
Hỏi : Tôi đã hoàn tất chương trình bán hàng trên Access, đã viết xong File hướng dẫn sử dụng (HuongDan.chm). Nhưng tôi không biết làm sao để kết nối file HuongDan.chm với chương trình ?

Đáp :

Bạn phải dùng đến hàm API.

Tạo 1 module
Khai báo hàm API

Mã:
Option Compare Database

Private Declare Function HtmlHelp Lib "HHCtrl.ocx" Alias "HtmlHelpA" _
        (ByVal hwndCaller As Long, _
        ByVal pszFile As String, _
        ByVal uCommand As Long, _
        dwData As Any) As Long
Const HH_DISPLAY_TOPIC = &H0
Const HH_HELP_CONTEXT = &HF

tạo Function

Mã:
Public Function GoiHelp()

    Dim strPath As String
    strPath = Application.CurrentProject.Path
    strPath = strPath & "\huongdan.chm"

Call HtmlHelp(0, strPath, HH_DISPLAY_TOPIC, ByVal "Gioithieu.htm")

End Function

Trong đó Gioithieu.htm là trang mặc định (default) của File HuongDan.chm.
Như vậy từ chương trình (Command button hoặc Custom Menu) bạn chỉ cần gọi function GoiHelp là xong.

Lưu ý : file HuongDan.chm nằm cùng thư mục với file .mdb, .mde.
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Cafe Via He , Huỳnh Thị Ái Phương , Minh Tiên
#2
Cái function này mình đặt ở đâu bác noname nhỉ?
bác cho em coi một ví dụ nhỏ được không
Chữ ký của sonngo chào mấy bạn, rất mong nhận được nhiều sự hỗ trợ Star
Reply
Những người đã cảm ơn
#3
Bạn tạo một module mới và chép cả vào!

Từ Form, bạn cho hành động nhấn chuột nút nhấn hoặc từ menu nào đó gọi hàm:
Goihelp

Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#4
(21-09-10, 10:35 AM)Noname Đã viết: Share by: hungtano - khoahocphothong.net
Hỏi : Tôi đã hoàn tất chương trình bán hàng trên Access, đã viết xong File hướng dẫn sử dụng (HuongDan.chm). Nhưng tôi không biết làm sao để kết nối file HuongDan.chm với chương trình ?

Đáp :

Bạn phải dùng đến hàm API.

Tạo 1 module
Khai báo hàm API

Mã:
Option Compare Database

Private Declare Function HtmlHelp Lib "HHCtrl.ocx" Alias "HtmlHelpA" _
        (ByVal hwndCaller As Long, _
        ByVal pszFile As String, _
        ByVal uCommand As Long, _
        dwData As Any) As Long
Const HH_DISPLAY_TOPIC = &H0
Const HH_HELP_CONTEXT = &HF

tạo Function

Mã:
Public Function GoiHelp()

    Dim strPath As String
    strPath = Application.CurrentProject.Path
    strPath = strPath & "\huongdan.chm"

Call HtmlHelp(0, strPath, HH_DISPLAY_TOPIC, ByVal "Gioithieu.htm")

End Function

Trong đó Gioithieu.htm là trang mặc định (default) của File HuongDan.chm.
Như vậy từ chương trình (Command button hoặc Custom Menu) bạn chỉ cần gọi function GoiHelp là xong.

Lưu ý : file HuongDan.chm nằm cùng thư mục với file .mdb, .mde.

Sao mình làm như vậy mà không được bản nhỉ?
mình đã tạo function rồi làm macro autokeys nhưng khi chạy macro nó báo là:The expression you entered had a function name that microsoft office acceess can’t file. Nghĩa là thế nào bạn nhỉ?
Chữ ký của myle89 Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#5
dau tien
ban tao 1 module cho copy pate 2 doan code kia vao . OK song buoc' 1
ban tao 1 macro autokeys :
Action : Run code
fuction name : GoiHelp()
ban tao cho minh minh cai command button ben o thuoc tinh chon on clik chon autokeys la cai macro cua? ban
ban chay thu? xem co' ra khong nao
con neu' muon dung` phim' tat' ban mo? lai cai macro autokeys cua? ban ra tren thanh cong cu thay' cai bieu? tuong. xyz khong (macro name) day
clik vao ra cot. macro name nhap vao :{ten phim tat'}
vd : {F1}
chuc moi nguoi thanh cong
Chữ ký của traibuonad Xin chào, mình là traibuonad, Tham gia http://thuthuataccess.com/forum từ ngày 19-01 -12.
Reply
Những người đã cảm ơn
#6
mình gắn file help vào access nhưng vẫn không mở được xi các pro chỉ giúp
Chữ ký của gianglun Xin chào, mình là gianglun, Tham gia http://thuthuataccess.com/forum từ ngày 30-04 -11.
Reply
Những người đã cảm ơn
#7
(06-04-14, 02:44 PM)gianglun Đã viết: mình gắn file help vào access nhưng vẫn không mở được xi các pro chỉ giúp
Mình thì dùng code này:
Mã PHP:
Public Function MoHelp()
Dim strPath As String
strPath 
CurrentProject.Path "\Help.chm"
Call Shell("C:\WINDOWS\hh.exe " strPath ""vbNormalFocus)
End Function 
Xem thêm thông tin: http://ttm20062008.webnode.com/access/ch...28-chm%29/
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
  Nhập đường dẫn 1 file ảnh vào chương trình để lưu! Noname 29 11,199 08-09-16, 08:24 PM
Bài mới nhất: maidinhdan
  Lấy về số seri CPU, ổ cứng MainBoard trong Access Noname 33 12,301 08-06-16, 11:23 PM
Bài mới nhất: maidinhdan
  Thuộc tính Startup MS Access toàn tập với VBA Noname 2 2,740 18-04-16, 04:50 PM
Bài mới nhất: ongke0711
  Hàm đọc số dùng mã Unicode trong Access Noname 28 11,706 23-03-16, 11:45 PM
Bài mới nhất: thiennamlong
  [Thủ Thuật] Demo_Compact & Repaire nhiều file Back End maidinhdan 8 1,117 06-03-16, 10:54 PM
Bài mới nhất: maidinhdan

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ơ