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

Cách tạo menu để mở 1 trang web

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • [Hỏi] Cách tạo menu để mở 1 trang web
• Cách tạo menu để mở 1 trang web

• Cách tạo menu để mở 1 trang web

  cannguyen > 29-06-12, 04:04 PM

  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é

• RE: Cách tạo menu để mở 1 trang web

  Xuân Thanh > 29-06-12, 06:24 PM

  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

• RE: Cách tạo menu để mở 1 trang web

  cannguyen > 30-06-12, 09:45 AM

  (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?

• RE: Cách tạo menu để mở 1 trang web

  Xuân Thanh > 30-06-12, 04:05 PM

  (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?

• RE: Cách tạo menu để mở 1 trang web

  Xuân Thanh > 30-06-12, 04:49 PM

  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

• RE: Cách tạo menu để mở 1 trang web

  cannguyen > 01-07-12, 08:39 AM

  (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
• Bài trước Bài tiếp