Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Hỏi] Cách tạo menu để mở 1 trang web
#1
Chào các bạn
Mình muốn tạo 1 menu, khi nhấn vào sẽ mở 1 trang web. Bạn nào biết giúp mình nhé
Chữ ký của cannguyen Xin chào, mình là cannguyen, Tham gia http://thuthuataccess.com/forum từ ngày 15-08 -11.
Reply
Những người đã cảm ơn
#2
Dùng hàm SHELL nhé

SHELL "C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.google.com"

HOẶC

dim theWebSite As String
theWebSite = "http://www.google.com.vn
Call Shell("explorer.exe " & theWebSite, vbNormalFocus)

Than
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Noname , alilibababa
#3
(29-06-12, 06:24 PM)Xuân Thanh Đã viết: Dùng hàm SHELL nhé

SHELL "C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.google.com"

HOẶC

dim theWebSite As String
theWebSite = "http://www.google.com.vn
Call Shell("explorer.exe " & theWebSite, vbNormalFocus)

Than

Cám ơn Xuân Thanh
Nhưng mình chạy trên VBA thì được còn đưa lên menu bằng cách nào vậy bạn?
Chữ ký của cannguyen Xin chào, mình là cannguyen, Tham gia http://thuthuataccess.com/forum từ ngày 15-08 -11.
Reply
Những người đã cảm ơn
#4
(30-06-12, 09:45 AM)cannguyen Đã viết: Cám ơn Xuân Thanh
Nhưng mình chạy trên VBA thì được còn đưa lên menu bằng cách nào vậy bạn?

Bạn tao menu bằng cách nào?
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#5
Nếu tạo bằng macro thì làm như sau :
1/ Tạo một modul mới và cgép hàm này vào modul

Mã:
Function MoTrangWeb()
    Dim TheWebsite As String
    TheWebsite = "http://google.com.vn"
    Call Shell("explorer.exe " & TheWebsite, vbNormalFocus)
End Function

2/ Tạo macro mở trang web

Tên Macro : MoWeb
Macro Name : http://google.com.vn
Action : RunCode
Function Name : MoTrangWeb()

3/ Chọn MoWeb, vào Tools/Macro/Create Nenu from Macro
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn cannguyen , htc2017
#6
(30-06-12, 04:49 PM)Xuân Thanh Đã viết: Nếu tạo bằng macro thì làm như sau :
1/ Tạo một modul mới và cgép hàm này vào modul

Mã:
Function MoTrangWeb()
    Dim TheWebsite As String
    TheWebsite = "http://google.com.vn"
    Call Shell("explorer.exe " & TheWebsite, vbNormalFocus)
End Function

2/ Tạo macro mở trang web

Tên Macro : MoWeb
Macro Name : http://google.com.vn
Action : RunCode
Function Name : MoTrangWeb()

3/ Chọn MoWeb, vào Tools/Macro/Create Nenu from Macro

Cám ơn bác Xuân Thanh nhiều lắm
Chữ ký của cannguyen Xin chào, mình là cannguyen, Tham gia http://thuthuataccess.com/forum từ ngày 15-08 -11.
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
  Cách tạo menu trong access 2007 darkmoon 12 13,604 30-03-18, 09:20 AM
Bài mới nhất: mrtoanbin
  cách tạo TextBox nhảy số theo điều kiện Nguyên Thông 5 187 19-03-18, 03:32 PM
Bài mới nhất: Nguyên Thông
  [Hỏi] Cách sử dụng Old Value - Property? vkaccess 2 237 07-12-17, 04:14 PM
Bài mới nhất: vkaccess
  [Hỏi] Form access hiện thì trắng khi xem ở chế độ Forrm View subasatran 1 197 29-11-17, 12:57 AM
Bài mới nhất: maidinhdan
  [Hỏi] Xin hỏi về cách nhập dữ liệu mới cho form mainsub Thiên Hùng 1 202 23-11-17, 04:01 PM
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