Noname > 21-09-10, 10:35 AM
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 = &HFPublic 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 Functionsonngo > 06-03-11, 11:24 PM
Noname > 07-03-11, 09:25 AM
myle89 > 12-05-11, 06:11 PM
(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.
traibuonad > 25-01-12, 11:15 PM
gianglun > 06-04-14, 02:44 PM
ttm20062008 > 06-04-14, 11:52 PM
(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úpMình thì dùng code này:
Public Function MoHelp()
Dim strPath As String
strPath = CurrentProject.Path & "\Help.chm"
Call Shell("C:\WINDOWS\hh.exe " & strPath & "", vbNormalFocus)
End Function