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

Phím tắt

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thảo Luận Access
  • [Hỏi] Phím tắt
• Phím tắt

• Phím tắt

  mrtoanbin > 17-02-17, 08:38 PM

  Đề bài: Con trỏ đang tại subform, gán 1 phím tắt bất kỳ để con trỏ nhảy qua mainform?
  Chỉ giáo mình với, mò hoài không ra!!!!!!!!!!!!

• RE: Phím tắt

  tranthanhan1962 > 18-02-17, 08:00 PM

  Tạo phím tắt cho các control ở mainform. Ví dụ ở mainform có một nút lệnh OK. Thiết đặt caption cho nó là &OK. khi view form nó sẽ thành OK. Lúc này nếu con trỏ đang ở subform, bấm Alt + O, con trỏ sẽ nhảy sang nút OK ở mainform

• RE: Phím tắt

  mrtoanbin > 19-02-17, 05:06 PM

  Ở đây khó hơn là bẫy 01 phím thôi mới khó đó bạn

• RE: Phím tắt

  tranthanhan1962 > 19-02-17, 08:38 PM

  (19-02-17, 05:06 PM)mrtoanbin Đã viết: Ở đây khó hơn là bẫy 01 phím thôi mới khó đó bạn

  
  Sử dụng phím tắt một phím chỉ có thể dùng các phím chức năng thôi. Nhưng windows và access đã dành hết rồi mà còn không đủ phải sử dụng thêm tổ hợp phím nữa. Thôi chịu khó xài tạm ... tổ hợp phím nhé   .

• RE: Phím tắt

  hieuvn > 20-02-17, 04:29 PM

  (19-02-17, 05:06 PM)mrtoanbin Đã viết: Ở đây khó hơn là bẫy 01 phím thôi mới khó đó bạn

  bạn thử macro Autokeys chưa?

• RE: Phím tắt

  mrtoanbin > 20-02-17, 10:36 PM

  (20-02-17, 04:29 PM)hieuvn Đã viết:

  (19-02-17, 05:06 PM)mrtoanbin Đã viết: Ở đây khó hơn là bẫy 01 phím thôi mới khó đó bạn

  bạn thử macro Autokeys chưa?

  
  Mình làm trên access 2010 nên chưa biết cách làm, giúp mình thử nha

• RE: Phím tắt

  ongke0711 > 20-02-17, 11:00 PM

  Ngoài macro bạn có thể code cho sự kiện KeyDown trong Sub Form. Phải set KeyPreview:Yes mới có hiệu lực.
  VD: 
  Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  
      If Shift = acShiftMask + acCtrlMask Then
          Me.Parent.Textbox1.SetFocus
      End If
  End Sub
  
  - Nếu bấm 2 phím: Shift + Ctrl thì con trỏ chuột sẽ nhảy về Textbox1 của Main Form.
  
  Hoặc
  
  
  Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
      Select Case KeyCode
            Case vbKey2    
                  If Shift And acAltMask >0 Then
                        Msgbox "Bạn đang bấm phím Atl+2"
                  End If
            Case vbKeyF1
                  .....
     
      End Select
  End Sub
  
  - Bạn có thể thay đổi phím nào cũng được. Bạn xem thêm KeyCode Constants.

• RE: Phím tắt

  mrtoanbin > 21-02-17, 05:34 PM

  (20-02-17, 11:00 PM)ongke0711 Đã viết: Ngoài macro bạn có thể code cho sự kiện KeyDown trong Sub Form. Phải set KeyPreview:Yes mới có hiệu lực.
  VD: 
  Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  
      If Shift = acShiftMask + acCtrlMask Then
          Me.Parent.Textbox1.SetFocus
      End If
  End Sub
  
  - Nếu bấm 2 phím: Shift + Ctrl thì con trỏ chuột sẽ nhảy về Textbox1 của Main Form.
  
  Hoặc
  
  
  Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
      Select Case KeyCode
            Case vbKey2    
                  If Shift And acAltMask >0 Then
                        Msgbox "Bạn đang bấm phím Atl+2"
                  End If
            Case vbKeyF1
                  .....
     
      End Select
  End Sub
  
  - Bạn có thể thay đổi phím nào cũng được. Bạn xem thêm KeyCode Constants.

  
  Cảm ơn nhé, tiện cho mình hỏi luôn nha:Làm sao lấy tất cả các giá trị trong 01 listbox khi không chọn (nó làm điều kiện để liên kết tới query đó bạn)

• RE: Phím tắt

  ongke0711 > 21-02-17, 07:44 PM

  (21-02-17, 05:34 PM)mrtoanbin Đã viết: ... Làm sao lấy tất cả các giá trị trong 01 listbox khi không chọn (nó làm điều kiện để liên kết tới query đó bạn)

  
  Tất cả giá trị trong Listbox chính là Row Source của nó rồi. Còn nếu bạn muốn chọn nhiều giá trị trong Listbox để làm điều kiện tìm kiếm nào đó thì trong diễn đàn có nhiều bài viết về nó.
  http://thuthuataccess.com/forum/thread-8936.html
  http://thuthuataccess.com/forum/thread-6453.html
  http://thuthuataccess.com/forum/thread-6491.html
• Bài trước Bài tiếp