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

chỉ dùm bôi đen text trong form textbox

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thảo Luận Access
  • [Help] chỉ dùm bôi đen text trong form textbox
• chỉ dùm bôi đen text trong form textbox

• chỉ dùm bôi đen text trong form textbox

  bo bin > 14-11-18, 08:20 PM

  Xin các bạn chỉ dùm tôi làm sao bôi đen text trong form textbox để khi nhập liệu được nhanh không cần dùng con nháy để xóa.
  Xin cám ơn

• RE: chỉ dùm bôi đen text trong form textbox

  cpucloi > 15-11-18, 12:25 PM

  Cái này cần phân biệt rõ nha: form textbox  là dạng form nào?
  
  Nếu chọn bôi đen text trong textbox thì bạn có thể dùng phím Tab khi di chuyển đến textbox đó hoặc nhấn vào label của textbox đó cũng được

• RE: chỉ dùm bôi đen text trong form textbox

  bo bin > 15-11-18, 12:58 PM

  À tôi muốn khi nhập liệu tab qua text nó tự động bôi đen. Ví dụ: trong tab đó là cột s lượng đã mặc định có số 0.000. bây giờ tôi nhập hóa đơn mới không có lẻ vậy phải dùng Backspace đẻ xóa rất mất thợi gian. Nếu nó được tự động bôi đen thì thao tác rất nhanh. Cám ơn bạn đã góp ý. Rất mong được sự chỉ dẫn của các bạn.

• RE: chỉ dùm bôi đen text trong form textbox

  Xuân Thanh > 16-11-18, 06:54 AM

  (15-11-18, 12:58 PM)bo bin Đã viết: À tôi muốn khi nhập liệu tab qua text nó tự động bôi đen. Ví dụ: trong tab đó là cột s lượng đã mặc định có số 0.000. bây giờ tôi nhập hóa đơn mới không có lẻ vậy phải dùng Backspace đẻ xóa rất mất thợi gian. Nếu nó được tự động bôi đen thì thao tác rất nhanh. Cám ơn bạn đã góp ý. Rất mong được sự chỉ dẫn của các bạn.

  
  Bắt sự kiện GotForcus của TextBox như sau
  
  

  Mã PHP:

  Private Sub txtText_GotFocus()
    txtText.SelStart = 0: If Len(txtText) > 0 Then txtText.SelLength = Len(txtText)    
End Sub 


  
  Nếu muốn dùng chung thì viết một hàm SelText trong modul rồi gọi nó khi cần dùng
  Hàm SelText được viết trong modun như sau
  
  

  Mã PHP:

  Option Compare Database
Option Explicit

Public Function SelText(txtText As TextBox)
    txtText.SelStart = 0: If Len(txtText) > 0 Then txtText.SelLength = Len(txtText)
End Function 


  
  Gọi nó trong Form như sau
  
  

  Mã PHP:

  Private Sub txtSoLuong_GotFocus()
   Call SelText(txtSoLuong)
End Sub 


• RE: chỉ dùm bôi đen text trong form textbox

  bo bin > 17-11-18, 05:55 PM

  Cám ơn các bạn.

• RE: chỉ dùm bôi đen text trong form textbox

  bo bin > 17-11-18, 06:59 PM

  Các bạn vui lòng chỉ dùm tôi cách lọc dữ liệu từ báo báo để in.
  Ví dụ: Trong báo cáo CHẤM CÔNG TRẢ LƯƠNG HÀNG TUẦN có dữ liệu:
  Main form Gồm các cột: TÊN CÔNG TRÌNH - MÃ TUẦN - NGÀY CHẤM CÔNG
  Sub form có các cột: MÃ TUẦN - TÊN CÔNG NHÂN - CHUYÊN MÔN - TIỀN CÔNG/NGÀY - SỐ CÔNG - TIỀN XĂNG - THÀNH TIỀN
  Tôi muốn lọc dữ liệu theo tên công trình (vì có nhiều công trình) mã tuần (vì một công trình tôi cho một mã tuần) ngày tháng (ngày tháng thì chung cho nhiều công trình trong một tuần)
  Rất mong đc sự chỉ dẫn của các bạn.
  Xin cảm ơn

• RE: chỉ dùm bôi đen text trong form textbox

  bo bin > 05-12-18, 12:56 PM

  Mình viết mã như thế nầy:
  Private Sub SOCONG_Enter()
  
           SOCONG.SelStart = 0
           SOCONG.SelLength = Len(SOCONG.Text)
           SendKeys "^C"
  thì khi enter tới nó thì bàn phím numlock bị tắt và dấu phân cách , sẽ đổi thành . 
  còn mình viết như thế nầy: (theo bạn XUAN THANH đã hướng dẫn)
  Option Compare Database
  Option Explicit
  
  Public Function SelText(txtText As TextBox)
      txtText.SelStart = 0: If Len(txtText) > 0 Then txtText.SelLength = Len(txtText)
  End Function 
  gọi trong form
  Private Sub SOCONG_Enter()
     Call SelText(SOCONG)
  
  End Sub
  thì numbock củng tắt và nó chỉ bôi đen số nguyên thôi số lẻ không bôi.
  mong được các bạn hướng dẫn chi tiết hơn.
  xin cám ơn.
• Bài trước Bài tiếp