Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Các bạn cho hỏi dùng lệnh nào trong access để mở một file m.exe
#1
Các bạn cho mình hỏi 2 vấn đề sau:
1. Mình có 1 form, 1 nút là opencmd, làm sao để khi bấm vào nút opencmd thì mở 1 file click.exe ngoài đường dẫn có sẵn. Đường dẫn đó là cố định (dạng C:\......) hay có thể không có tên ổ đĩa được không?
2. Mình có 1 nút cmdstart, làm sao để khi bấm vào nút đó thì máy tính hiểu đã nhấn tổ hợp phím Ctrl+Alt+R ?
Mong các bạn giúp mình với nhé! mình rất cảm ơn !
Chữ ký của quyvt1993 Xin chào, mình là quyvt1993, Tham gia http://thuthuataccess.com/forum từ ngày 30-09 -12.
Reply
Những người đã cảm ơn
#2
(21-10-12, 03:15 PM)quyvt1993 Đã viết: Các bạn cho mình hỏi 2 vấn đề sau:
1. Mình có 1 form, 1 nút là opencmd, làm sao để khi bấm vào nút opencmd thì mở 1 file click.exe ngoài đường dẫn có sẵn. Đường dẫn đó là cố định (dạng C:\......) hay có thể không có tên ổ đĩa được không?
2. Mình có 1 nút cmdstart, làm sao để khi bấm vào nút đó thì máy tính hiểu đã nhấn tổ hợp phím Ctrl+Alt+R ?
Mong các bạn giúp mình với nhé! mình rất cảm ơn !

Mở 1 file exe có tên cố định:

Private Sub opencmd_Click()
Dim MyAppID, ReturnValue
MyAppID = Shell("D:\CCleaner.EXE", 1)' Sửa lại đường dẫn cho hợp lệ
End Sub

Nếu không có tên thì dùng phím tắt là: Windown + E cho nó nhanh và có thể thực hiên bất cứ lúc nào cũng được mà không cần đến Access chi cho mệt.Còn nếu muốn dùng phím tắt cho nút lệnh thực thi gì đó thì tại caption của nút đó sử dụng dấu & với chữ mà ta cần sử dụng.ví dụ có nút Luu thì caption đặt là &Luu, khi đó có phím tắt là Alt + L.
Nếu không có tên file trên ổ đĩa thì chắc chắc là file đó phải đặt trên 1 thư mục riêng vì nếu không nó không biết bạn đang muốn mở file nào rồi cho mở hàng loạt.

Mở tất cả các file có trong Folder:

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace("D:\QLPT\New Folder")
Set colItems = objFolder.Items
For Each objItem In colItems
objItem.InvokeVerbEx ("Open")'có thể thay từ Open = Open, Print, Edit, Cut, Copy, Delete tuỳ bạn muốn làm gì.
Next

034034034
Chữ ký của trungn077 Xin chào, mình là trungn077, Tham gia http://thuthuataccess.com/forum từ ngày 09-07 -12.
ღღღღღTài sản của trungn077 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn quyvt1993
#3
Cảm ơn bạn, nhưng mà ý mình thì khác
Hàm mở tập tin thì mình được rồi
Còn ý thứ 2 của mình là: khi mình mở file .exe ra rồi, nó muốn chạy thì cần tổ hợp phím Ctrl+Alt+R, vậy mình có thể dùng access để giống như nhấn tổ hợp phím đó luôn. Vì .exe của mình cứ nhấn Ctrl+Alt+R thì nó chạy (AutoClick 2.2) nên các bạn có hàm nào tương đương với việc nhấn tổ hợp phím Ctrl+Alt+R không ?
Chữ ký của quyvt1993 Xin chào, mình là quyvt1993, Tham gia http://thuthuataccess.com/forum từ ngày 30-09 -12.
Reply
Những người đã cảm ơn
#4
(21-10-12, 08:29 PM)quyvt1993 Đã viết: Cảm ơn bạn, nhưng mà ý mình thì khác
Hàm mở tập tin thì mình được rồi
Còn ý thứ 2 của mình là: khi mình mở file .exe ra rồi, nó muốn chạy thì cần tổ hợp phím Ctrl+Alt+R, vậy mình có thể dùng access để giống như nhấn tổ hợp phím đó luôn. Vì .exe của mình cứ nhấn Ctrl+Alt+R thì nó chạy (AutoClick 2.2) nên các bạn có hàm nào tương đương với việc nhấn tổ hợp phím Ctrl+Alt+R không ?

Bạn thử sử dụng lệnh như sau:
Mã PHP:
SendKeys "^%{R}" 
Chữ ký của nhannt4 Xin chào, mình là nhannt4, Tham gia http://thuthuataccess.com/forum từ ngày 22-07 -12.
Reply
Những người đã cảm ơn quyvt1993


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Cài đặt ODBC -nền tảng kết nối Access và nguồn dữ liệu khác Noname 33 19,322 01-12-16, 06:49 PM
Bài mới nhất: atula77
  Xây dựng Class Modules trong Access ( Cơ bản đến Nâng cao) maidinhdan 2 187 13-11-16, 05:32 PM
Bài mới nhất: cpucloi
  [Help] SQL lỗi khi tham chiếu trường trong Forms Phung Duc 1 73 02-11-16, 03:17 PM
Bài mới nhất: Minh Tiên
  Ms Access VBA và Google drive, một vài ý tưởng trong chia sẻ và đồng bộ số liệu... paulsteigel 46 3,860 07-10-16, 02:43 PM
Bài mới nhất: kieu manh
  Ứng dụng đổi tên file trong windows hàng loạt tranthanhan1962 7 1,212 19-09-16, 04:16 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ơ