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

form tìm kiếm sản phẩm

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • [Hỏi] form tìm kiếm sản phẩm
• form tìm kiếm sản phẩm

• form tìm kiếm sản phẩm

  thanhhao > 30-06-17, 04:27 PM

  Xin các bạn hướng dẫn mình, khi nhập chữ "sữa" vào ô tìm kiếm sau đó enter con trỏ vẫn đứng sau chữ "sữa" không nhảy xuống textbox ở bên dưới . Mình gởi kèm clip và file nè các bạn .
  
         

• RE: form tìm kiếm sản phẩm

  tranthanhan1962 > 30-06-17, 05:04 PM

  Nhận xét: Tab Index của txttimkiem là 0 và Tab Index của Text2 là 1 như vậy sau khi Enter con trỏ sẽ từ txttimkiem chuyển sang Text2.
  Đặt bẩy event Text2_Enter sẽ trở về txttimkiem
  

  Mã:

  Private Sub Text2_Enter()
   DoCmd.GoToControl "txttimkiem"
End Sub

  Khi tiêu điểm trở về txttimkiem đặt bẩy event để chuyển trang thái edit (nếu không nó sẽ quét đen các ký tự của txttimkiem) để chuyển con trỏ đến cuối từ
  

  Mã:

  Private Sub txttimkiem_GotFocus()
   SendKeys "{F2}"
End Sub

  Bạn sẽ không bao giờ đưa con trỏ vào được Text2 vì ngay lập tức nó sẽ chuyển về txttimkiem, để giải quyết trường hợp này tạo một textbox tạm có Tab Index =1 để thay thế Text2, textbox này không được ẩn (visible=yes) vì nếu ẩn sẽ bị mất Tab Stop. Muốn dấu nó thiết đặt Height=0, Width=0 và đưa nó vào góc form. Yên tâm không bao giờ mất con trỏ vì nếu nó bị nhảy vào textbox tạm thì sẽ chạy ra ngay txttimkiem. Nhớ chuyển lệnh DoCmd.GoToControl "txttimkiem" sang textbox tạm
  

  Mã:

  Private Sub textbox tạm_Enter()
   DoCmd.GoToControl "txttimkiem"
End Sub
• Bài trước Bài tiếp